Premetto che non sono un gran che come programmatore, spero che qualcuno riesca a darmi una soluzione.
Ho un Data Base con diverse tabelle, e volevo creare una procedura che mi consentisse di visualizzare i records del database che interrogavo tramite il recupero della query da un form.
Ll'idea è quella di richiamare i campi del database tramite l'oggetto "objField" e di costruire una tabella con il ciclo FOR e WHILE.
Ma il risultato a video mi da questo tipo di errore:

Errore di compilazione di Microsoft VBScript (0x800A0410)
Variabile di controllo del ciclo 'For' non valida
.../execute_SQL.asp, line 34, column 18
For Each objField in objRS.Field
-----------------^


Vi riporto il file che esegue la query.

<%
Dim objRS,objConn,SQL


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'txtSQL é la sringa SQL che recupero dal form

SQL = Server.htmlencode(Request.Form( "txtSQL" ))

If SQL="" Then

Response.Redirect "fallita.htm"
Else

objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("mdb/nome_database.mdb")
Set objRS =Conn.Execute(SQL)

End IF
%>


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Manipolazione delle righe del recordset

<table border=1 cols=<%=objRS.Fields.Count%>>
<tr>
<% For Each objField in objRS.Fields %>
<td> <%=objField.Name %> </td>
< % Next %>
</tr>
<% While not objRS.EOF %>
<tr> <% For Each objField in objRS.Field %>
<td align=right>
<% If IsNull(objField) Then
Response.Write("&nbsp;")
else
Response.Write("objField.Value")
End If
%>
</td>
< % Next %>
</tr>
<% objRS.MoveNext
Wend
rec.close
%>
</table>

Ciao e grazie.

Scusa se sono un po tardo..

Ho corretto l?imprecisione sul testo, ma l?errore rimane lo stesso.

Ciao : )