Salve, volevo sapere se in qualche modo e' possibile in un form di modifica con estrazione dati

<%
ID = Request.QueryString("ID")
set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("database.mdb")

conn.Open DSNtemp
sqlstmt = "SELECT * FROM strutture WHERE ID=" & ID & " "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, conn, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 9999
If rs.eof then
Exit For
Else

id = rs("id")
data = rs("data")
provincia = rs("provincia")
regione = rs("regione")
%>

poi mostro i campi

<input type="text" name="regione" size="33" value="<%=regione%>">
<input type="text" name="provincia" size="33" value="<%=provincia%>">

<%
rs.MoveNext
End If
Next
%>

inserirci un altro script di estrazione dopo
<input type="text" name="provincia" size="33" value="<%=provincia%>">

e precisamente

<select name="categoria">
<%
ordine = "campo"

set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

' in locale
DSNtemp=dsntemp & "DBQ=" & server.mappath("database.mdb")

conn.Open DSNtemp
sqlstmt = "SELECT * FROM form1 order by " & ordine
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, conn, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 0 to 100
If rs.eof then
Exit For
Else

id = rs("id")
campo = rs("campo")
%>

<option value="<%=campo%>"><%=campo%></option>

<%
rs.MoveNext
End If
Next
%>

</select>

perchè mi da errore:

Errore di compilazione di Microsoft VBScript (0x800A0410)
Variabile di controllo del ciclo 'for' non valida
/upload10/test.asp, line 20, column 6
For x = 0 to 100

....mmm