jasonhuibers
Programmer
Wow I am really stuck on this one - I dont actually see the value in the drop down list when I view the page but when I do a View Source the values are populated. Can anyone help me out here!!!
Dim sql_insert
Dim drs
ConnectStr = "Driver={SQL Server};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword
data_source = "DSN=CaterDB"
sql_insert = "SELECT Community FROM Stores"
set conn2 = CreateObject("ADODB.Connection")
conn2.open ConnectStr
set drs = CreateObject("adodb.recordset")
drs.open sql_insert,conn2
%>
<tr>
<td height="25" width="166" align="left" valign="top" style="font-family: tahoma, helvetica; font-size: 11px; line-height: 14px">
<b>City*</b></td>
<td height="25" width="265" align="left" valign="top" style="font-family: tahoma, helvetica; font-size: 11px; line-height: 14px">
<select size="1" name="cboClientCity" style="font-family: Tahoma; font-size: 10px" tabindex="3">
'''Code below
<option selected value="-1">Select One</option>
<%do while not drs.eof %>
<option value="<%= drs("Community").value %>"><%= drs("Community").value %></option>
<%drs.MoveNext
Loop
conn2.close
set conn2 = nothing %>
</select>
Dim sql_insert
Dim drs
ConnectStr = "Driver={SQL Server};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword
data_source = "DSN=CaterDB"
sql_insert = "SELECT Community FROM Stores"
set conn2 = CreateObject("ADODB.Connection")
conn2.open ConnectStr
set drs = CreateObject("adodb.recordset")
drs.open sql_insert,conn2
%>
<tr>
<td height="25" width="166" align="left" valign="top" style="font-family: tahoma, helvetica; font-size: 11px; line-height: 14px">
<b>City*</b></td>
<td height="25" width="265" align="left" valign="top" style="font-family: tahoma, helvetica; font-size: 11px; line-height: 14px">
<select size="1" name="cboClientCity" style="font-family: Tahoma; font-size: 10px" tabindex="3">
'''Code below
<option selected value="-1">Select One</option>
<%do while not drs.eof %>
<option value="<%= drs("Community").value %>"><%= drs("Community").value %></option>
<%drs.MoveNext
Loop
conn2.close
set conn2 = nothing %>
</select>