asp-classic
डेटाबेस से कनेक्ट करना

परिचय

डेटाबेस से एक ड्रॉपडाउन पॉपिंग

(कैविएट एम्प्टर: कई, कई प्रोग्रामर होते हैं, जो अगर कोड को पूरा करते हैं, जो कमांड और स्टोर की गई प्रक्रियाओं के बजाय रिकॉर्डसेट का उपयोग करते हैं।)

<%
dim rs, sql
dim SelectedUser
SelectedUser = request.form("user")
if IsNumeric(SelectedUser) then
    SelectedUser = CLng(SelectedUser)
else
    SelectedUser = 0
end if
%>
...
<p>Select a user: <select name="user" size="1">
<%
sql = "SELECT id, displayname FROM users WHERE active = 1 ORDER BY displayname"
set rs = server.createobject("ADODB.Recordset")
rs.open sql,"[connection string stuff goes here]",1,2
do until rs.eof
    response.write "<option value='" & rs("id") & "'"
    if rs("id") = SelectedUser then response.write " selected"
    response.write ">" & rs("displayname") & "</option>" & vbCrLf
    rs.Movenext '<- VERY VERY IMPORTANT!
loop
rs.close
set rs = nothing
%>
</select></p>
...