codice:
 
<% @ LANGUAGE = VBScript %>
<% Option Explicit %>
<% 	Dim conn
	Dim strconn
	Dim strSQL
	Dim rs
	Dim a
	a=0
	Dim b
	b=1


strconn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source ="
strconn = strconn + Server.MapPath ("GestioneOrdiniCartiera.accdb")
set conn = Server.CreateObject ("ADODB.Connection")
conn.Open strconn
set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "Agente", conn

rs.MoveFirst
Do While Not rs.EOF
if rs.Fields(1).Value = Request.Form("txtusername") then a =1
rs.MoveNext
Loop

if Request.Form("txtpassword")= Request.Form("psw") then b=0

if b=1 then a=1

If a=0 then

strSQL = "INSERT INTO Agente(Username, Password, Nome, Cognome) VALUES('" & Request.Form("txtusername") & "','" & Request.Form("txtpassword") & "','" & Request.Form("txtnome") & "','" & Request.Form("txtcognome") & "');"
conn.Execute(strSQL)

conn.Close
rs.close
set rs = nothing
set conn = nothing

%>
<HTML>
<HEAD>
<TITLE> Registrazione </TITLE>
</HEAD>
<BODY>
<%
if a=0 then  Response.Write "Registrazione avvenuta con successo" 

elseif b=1 then Response.Write "Registrazione fallita! Campi password non corrispondenti."  
else Response.Write "Registrazione fallita! Username esistente."
End if
%>


Torna alla pagina di registrazione
</BODY>
</HTML>
Ci sto impazzendo da due giorni, mi da errore sulla query(evidenziata in grassetto). Le ho sempre fatte così e mi sono sempre funzionate. Aiuto per favore!!!