Trillithium
Technical User
Please Help me. Im trying to add some of my access DB values in a listbox. All I get is an empty box with no errors. This is the partial script i'm writing. Where do i go wrong.
<form name="form2" method="post" action="">
<select name="LB1">
<%
Dim CN
Dim RS
Set CN=Server.CreateObject("ADODB.Connection"
CN.Open "DSN=ISAH7"
Set RS = CN.Execute("SELECT * FROM test"
While not RS.EOF
Respons.Write "<option value=" & RS.Fields("Stef"
& ">" & RS.Fields("Stef"
& "</option>"
RS.MoveNext
Wend
Set RS = nothing
CN.Close
Set CN=nothing
%>
</select>
</form>
<form name="form2" method="post" action="">
<select name="LB1">
<%
Dim CN
Dim RS
Set CN=Server.CreateObject("ADODB.Connection"
CN.Open "DSN=ISAH7"
Set RS = CN.Execute("SELECT * FROM test"
While not RS.EOF
Respons.Write "<option value=" & RS.Fields("Stef"
RS.MoveNext
Wend
Set RS = nothing
CN.Close
Set CN=nothing
%>
</select>
</form>