Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<%
set conn=server.createobject("ADODB.CONNECTION")
conn.open yourConnectionString
strSql="SELECT * FROM myTABLE WHERE myCriteria=" & myCriteria
set rs=conn.execute(strSql)
If not rs.eof then
'more variable assignments here
mySelectID = rs("mySelectIDField")
End if
rs.close
set rs=nothing
' later on ...you build your SELECT from another recordset
' I'm leaving that stuff out
%>
<SELECT name="mySelect">
<%
do while not rs.eof
%>
<option value="<%=RS2("Id")%>" <%IF RS2("ID") = mySelectID THEN%>SELECTED<%End if%>><%=RS2("Activity")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</SELECT>
Response.Write("selected=""selected""")