Ragazzi questo codice mi da errori... non capisco perche' pero'

codice:
<html>

<head>
<title></title>
</head>

<body bgcolor="#ffffFF">
<%

Dim con, nome, nominat, p1, p2, rtip 

nominat = Request.Form("new_nominat")
nome = Request.Form("newuser")
p1 = Request.Form("pwd1")
p2 = Request.Form("pwd2")
rtip = Request.Form("tipo")


'Apre la connessione al database
Set objConn = Server.CreateObject("ADODB.Connection")
ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\public\tra.mdb")
objConn.Open ConnectionString

'Controlla se il nominativo esiste gia
Set askusr = Server.CreateObject("ADODB.Recordset")
askusr.Open "SELECT * FROM users where nominativo = '" & nominat & "' ", objConn, 1, 2

If askusr("nominativo") <> "" Then

	Response.Write "
<center>"
	Response.Write "

<font color='#000000' face='Tahoma' size='2'>Errore - Nominativo già presente.</font></p>" & vbCrLf
	Response.Write "

<font face='Tahoma' color='#FFFF00' size='2'>Torna indietro</font></p></center>" & vbCrLf

Else

'Controlla se il userid esiste gia
Set askusid = Server.CreateObject("ADODB.Recordset")
askusid.Open "SELECT * FROM users where utente = '" & nome & "' ", objConn, 1, 2

If askusid("utente") <> "" Then
	Response.Write "
<center>"
	Response.Write "

<font color='#000000' face='Tahoma' size='2'>Errore - Userid già presente.</font></p>" & vbCrLf
	Response.Write "

<font face='Tahoma' color='#FFFF00' size='2'>Torna indietro</font></p></center>" & vbCrLf

Else


'Controlla autenticazione
If p1 <> p2 Then

	Response.Write "
<center>"
	Response.Write "

<font color='#000000' face='Tahoma' size='2'>Errore - Le password inserite non coincidono.</font></p>" & vbCrLf
	Response.Write "

<font face='Tahoma' color='#FFFF00' size='2'>Torna indietro</font></p></center>" & vbCrLf

	 Else


'Creazione oggetti recordset
Set con = Server.CreateObject("ADODB.Recordset")
con.Open "SELECT * FROM users", objConn, 1, 2

	con.AddNew

con("nominativo") = nominat
con("utente") = nome
con("password") = p1


If rtip = "Amministratore" Then

con("tipo") = "plus"

Else

con("tipo") = "norm"

End If


con.Update

End If

'Response.Redirect ("done.asp")



con.Close
Set con = Nothing

askusr.Close
Set askusr = Nothing

askusid.Close
Set askusid = Nothing
	
%>



</body>

</html>