Hello,Can anyone help me. I am using asp and access. I have a foreign key on the two tables to link them.I have a dynamic dropdownlist that gets the options from 'weblog_Blog_01_Category table' and it displays on the page in the dd/list. At the end of the form there is a submit button which has the rest of the fields such as 'title', 'intro' etc goes to this table 'weblog_Blog_01 table'.As i mentioned that i have got the dd/list to get the category options from the 'category table' but i want when the user clicks on submit to put the option from the dropdown list to appear in the 'entry table' along with the other data.This is the code that inserts into the table, (all except it leaves the category empty. I want it the chosen option to appear in the category column in the weblog_Blog_01 table.
'**** ENTER BLOG IN DATABASE *****************************IF Request.Form("Active") = "True" Thendim strRequestBlog_01Titledim strRequestBlog_01Categorydim strRequestBlog_01IntrostrRequestBlog_01Title = Replace(CSTR(Request.Form("Blog_01_Title")), "'", "''", 1, -1, 1)strRequestBlog_01Category = Replace(CSTR(Request.Form("Blog_01_Category")), "'", "''", 1, -1, 1)strRequestBlog_01Intro = Replace(CSTR(Request.Form("Blog_01_Intro")), "'", "''", 1, -1, 1)'**** Enter Record into database ************dim rsEnterRecorddim strEnterSQLstrEnterSQL = strDBDateFormat & "INSERT INTO weblog_Blog_01 "strEnterSQL = strEnterSQL & "("strEnterSQL = strEnterSQL & "Blog_01_Title, "strEnterSQL = strEnterSQL & "Blog_01_Category,strEnterSQL = strEnterSQL & "Blog_01_Intro "strEnterSQL = strEnterSQL & ")"strEnterSQL = strEnterSQL & " VALUES "strEnterSQL = strEnterSQL & "("strEnterSQL = strEnterSQL & "'" & strRequestBlog_01Title & "', "strEnterSQL = strEnterSQL & "'" & strRequestBlog_01Category & "', "strEnterSQL = strEnterSQL & "'" & strRequestBlog_01Intro & "', "strEnterSQL = strEnterSQL & ")"Set rsEnterRecord = Server.CreateObject("ADODB.Connection")rsEnterRecord.Open MM_connCM001_STRINGrsEnterRecord.Execute strEnterSQLrsEnterRecord.CloseSet rsEnterRecord = Nothing'*******************************************End If