<%

If cstr(Request.Form("txtSQL"))="" Then
Response.Write("<center><h3>WARNING!</h3>")
Response.Write("

Devi inserire una query da eseguire!" & "</center>")
Response.End
Else
Dim objConn
set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open ("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("Course.mdb"))
query = cstr(Request.Form("txtSQL"))

Set objRS = objConn.Execute(query)

Do While Not objRS.EOF
Response.Write("Cognome: " & objRS.fields("last_name"))
Response.Write(" Nome: " & objRS.fields("first_name"))


objRS.MoveNext()
Loop
Set objRS = nothing
End If
%>