Add Drop Down TO ACCESS

[mbm2000]

Hi
I want to add a dropdown Menu to my ACCESS database With ASP
Please Help Me

[DrBunchman]

Hi mbm2000,

To populate a drop down list from a database in ASP you can do the following:

 <% 
'Initialise the recordset and connection objects and open the connection
Dim oRS, oConn, sSQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open CONNECTION_STRING
Set oRS = Server.CreateObject ("ADODB.Recordset")
 
'Define the SQL used to query the database
sSQL = "SELECT ValueColumn, NameColumn FROM Table1 WHERE id = 1"
 
'Open the recordset
oRS.Open sSQL, oConn, 3
 
Response.Write "<select name='dropdown1'>"
 
'Loop through the recordset, writing an option for each row
Do Until oRS.EOF
     Response.Write "<option value='" & oRS("ValueColumn") & ">"
     Response.Write oRS("NameColumn")
     Response.Write "</option>"
     oRS.MoveNext
Loop
 
Response.Write "</select>"
 
'Destroy the objects
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
 

Does this help at all? Let me know.

Dr B

[mbm2000]

HI DR B
I want put this data to my access db
I use This code for Drop Down Menu

<select size="1" name="star"value="<%= star %>">
    <option selected>0</option>
    <option>1</option>
    <option>2</option>
    <option>3</option>
    <option>4</option>
    <option>5</option>
    <option>6</option>
    <option>7</option>
  </select>
 

and This Code For proccess

<!--#include file="header.asp"-->
<% 
On Error Resume Next
If Request.Cookies("user_logged_ID" & strSUnique) = Empty then Response.Redirect "register.asp"
If Request.Form("catID") = Empty Or Request.Form("subcatID") = Empty then Response.Redirect "post_new1.asp"
If isnotfree And Not Request.Cookies("allow_post" & strSUnique) = "True" then Response.Redirect "filter.asp?url=post_new1.asp&act=startOver"
 
If isnotfree then
    set rs = objConn.Execute("SELECT credits FROM " & tablUPfx & "User WHERE userID = " & CLng(session("user_logged_ID" & strSUnique)) & ";")
    If not rs.EOF then Session("user_logged_credit" & strSUnique) = FormatNumber(CCur(rs("credits")), 2)
    rs.close
    If CCur(Request.Cookies("final_price" & strSUnique)) > CCur(Session("user_logged_credit" & strSUnique)) Then 
        Response.Write strText_NotEnoughCredits
        Response.End
    End If
End If
 
 
Dim msg, star
setLocale server_locale
sdd = dd(objConn)
 
userID = CLng(Request.Cookies("user_logged_ID" & strSUnique))
postExpire = DateAdd("d", CLng(Request.Form("S1")), Now)
 
 
star = Request.form("star")
 
IP = Request.ServerVariables("REMOTE_ADDR")
adID = subcatID & RandomNumber & userID
adID = CStr(adID)
If moderate then active = 0: Else: active = 1
If len(subject) > 0 and Len(descr) > 0 Then
 
If not Request.Form("imgFile") = Empty then
    img = sq(Request.Form("imgFile"))
    imgArray = Split(img, sf)
    For d = 0 to UBound(imgArray) - 1
        imgName = Split(imgArray(d), "|")(0)
        set rs = objConn.Execute("SELECT " & tablPfx & "Temp.tempimg FROM " & tablPfx & "Temp WHERE tempimg = '" & imgName & "';")
        If Not rs.EOF then objConn.Execute("DELETE FROM " & tablPfx & "Temp WHERE tempimg = '" & imgName & "';")
        rs.close
    Next
End If
 
If isnotfree then 
    hotlist = Request.Cookies("hotlist" & strSUnique)
    'If Len(img) > 0 then
        userimglimit = Request.Cookies("image_limit" & strSUnique)
    'Else: userimglimit = 0        
    'End If
Else
    userimglimit = imagelimit
    hotlist = 0
End If
 
For uo = 0 to 7
    nextUserFormText = Request.Form("uO" & uo)
    If Len(nextUserFormText) = 0 then nextUserFormText = Request.Form("uCOF" & uo)
    strUserValues = strUserValues & ", '" & sq(HTMLEncode(nextUserFormText)) & "'"    
    strUserFields = strUserFields & ", " & "uopt" & uo + 1
Next
 
For o = 1 to 20
    nextFormText = Request.Form("O" & o)
    If Len(nextFormText) = 0 then nextFormText = Request.Form("COF" & o)
    nextFormText = Replace(Replace(nextFormText, "<", "&lt;"), ">", "&gt;")
    nextFormText = sq(HTMLEncode(nextFormText))
    strCatValues = strCatValues & ", '" & nextFormText & "'"
    strCatFields = strCatFields & ", " & "opt" & o
Next
 
strSQL = "INSERT INTO " & tablPfx & "Ads(adID, catID, scatID, cat3rdID, userID, pdate, edate, nick, city, subject, phone, web, images, webimage, body, status, IP, adcounter, hotlist, price"
strSQL = strSQL & strUserFields & strCatFields & ", userimagelimit) VALUES ('" & adID & "', " & catID & ", " & subcatID & ", " & cat3rdID & ", " & userID & ", " & sdd & PostPosted & sdd & ", " & sdd & postExpire & sdd & ", '" & nick & "', "
strSQL = strSQL & "'" & city & "', '" & subject & "', '" & phone & "', '" & URL & "', '" & img & "', '" & onlineImg & "', '" & descr & "', " & active & ", '" & IP & "', "
strSQL = strSQL & 0 & ", " & hotlist & ", '" & star & "', '" & price & "'" & strUserValues & strCatValues & ", " & userimglimit & ");"
 
objConn.Execute(strSQL)
 
Call updateUserPostData(userID, adID, price, "postnew")
 
If moderate then
    Call getTemplate("New_Ad_Pending", email, Empty, nick, Empty, adID)
Else
    Call UpdateList(True, catID, subcatID, cat3rdID)
    Call getTemplate("New_Ad_Approved", email, Empty, nick, Empty, adID)
    Application("cl_marquee" & strUnique) = Empty
    Call matchAlerts(adID, catID, subcatID, cat3rdID, subject, descr)
End If
 
If IsCache then Call cacheAds(adID)
 
Call sendEmail(email, notify_email, uSubject, uBody)
Call getTemplate("Admin_Notify", email, Empty, nick, Empty, adID)
Call sendEmail(admin_email, notify_email, uSubject, uBody)
If isEvents then Call logEvent("New Ad", adID, subject, Empty, Empty, Empty)
 
Response.Cookies("user_logged_ID" & strSUnique) = Empty
Session("image_limit" & strSUnique) = Empty
Session("duration_limit" & strSUnique) = Empty
Session("hotlist" & strSUnique) = Empty
Session("allow_post" & strSUnique) = Empty
Session("final_price" & strSUnique) = Empty
session("Select_Category" & strSUnique) = Empty
session("Select_SubCategory" & strSUnique) = Empty
session("Select_CategoryID" & strSUnique) = Empty
session("Select_SubCategoryID" & strSUnique) = Empty
session("Select_3rdCategory" & strSUnique) = Empty
session("Select_3rdCategoryID" & strSUnique) = Empty
Session("Attach_Image" & strSUnique) = Empty
Set session("Attach_Image" & strSUnique) = Nothing
Set session("Temp_UserArray" & strSUnique) = Nothing
Session("Count_Image" & strSUnique) = Empty
 
 
Response.Write "<br><div align='center'>" & strText_Posted & "&nbsp;<b>" & email & "</b></div><br>"
If moderate then Response.Write "<div align='center'>" & strText_Posted1 & "</div><br>"
End If
%><!--#include file="tneval_footer.asp"--><!--#include file="footer.asp"-->
 
 

Thanks alot DR B

[DrBunchman]

Sorry, I'm a bit confused - what is the actual problem?

[mbm2000]

Hi DR B
I use the First code for Drop down Menu and the Second code for process it
but no data Insert In The DataBase
Thanks alot

[DrBunchman]

I see!

The first thing to do is to remove any error trapping: comment out the On Error Resume Next line and try again - do you get any errors?

Dr B

[mbm2000]

Hi What Is error trapping?
please say more
I want the complete Sourse Of This dropdown
[HTML]<select><option>1</option></select>[/HTML]