Salve a tutti!
Sto letteralmente sclerando non so più dove mettere le mani per raddrizzare ste due pagine...
Dunque l'errore:
Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access] Errore di valutazione del vincolo CHECK .

Lo script:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim vMissingFields
Dim vNome
Dim vCognome
Dim vIndirizzo
Dim vCitta
Dim vCap
Dim vTelefono
Dim vEmail
Dim vUserName
Dim vPassword


For Each collitem in Request.Form
If Len(request.form(collitem)) < 1 Then
vMissingFields = vMissingFields & collitem & ", "
End If
Next
If Len(vMissingFields) < 1 Then

vNome = request.form("nome")
vNome = Replace(vNome, "<", "")
vNome = Replace(vNome, ">", "")
vNome = Replace(vNome, "%", "")
vNome = Replace(vNome, "'", "''")


vCognome = request.form("cognome")
vCognome = Replace(vCognome, "<", "")
vCognome = Replace(vCognome, ">", "")
vCognome = Replace(vCognome, "%", "")
vCognome = Replace(vCognome, "'", "''")

vIndirizzo = request.form("indirizzo")
vIndirizzo = Replace(vIndirizzo, "<", "")
vIndirizzo = Replace(vIndirizzo, ">", "")
vIndirizzo = Replace(vIndirizzo, "%", "")
vIndirizzo = Replace(vIndirizzo, "'", "''")

vCitta = request.form("citta")
vCitta = Replace(vCitta, "<", "")
vCitta = Replace(vCitta, ">", "")
vCitta = Replace(vCitta, "%", "")
vCitta = Replace(vCitta, "'", "''")

vCap = request.form("cap")
vCap = Replace(vCap, "<", "")
vCap = Replace(vCap, ">", "")
vCap = Replace(vCap, "%", "")
vCap = Replace(vCap, "'", "''")

vTelefono = request.form("telefono")
vTelefono = Replace(vTelefono, "<", "")
vTelefono = Replace(vTelefono, ">", "")
vTelefono = Replace(vTelefono, "%", "")
vTelefono = Replace(vTelefono, "'", "''")

vEmail = request.form("Email")
vEmail = Replace(vEmail, "<", "")
vEmail = Replace(vEmail, ">", "")
vEmail = Replace(vEmail, "%", "")
vEmail = Replace(vEmail, "'", "''")


vUserName = request.form("User")
vUserName = Replace(vUserName, "<", "")
vUserName = Replace(vUserName, ">", "")
vUserName = Replace(vUserName, "%", "")
vUserName = Replace(vUserName, "'", "''")

vPassword = request.form("Pass")
vPassword = Replace(vPassword, "<", "")
vPassword = Replace(vPassword, ">", "")
vPassword = Replace(vPassword, "%", "")
vPassword = Replace(vPassword, "'", "''")

Set Connessione = Server.CreateObject("ADODB.Connection")
Connessione.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.MapPath("McPalladiodb.mdb")
sql= "SELECT username, password From utente WHERE username = '" & request.form("User") & "';"
Set rsRegistra = Connessione.Execute(sql)
If rsRegistra.EOF Then

Set Connessione = Server.CreateObject("ADODB.Connection")
Connessione.Open "inlinea"
sql= "INSERT INTO utente "
sql= sql & "(nome,"
sql= sql & " cognome,"
sql= sql & " indirizzo,"
sql= sql & " citta,"
sql= sql & " cap,"
sql= sql & " telefono,"
sql= sql & " email,"
sql= sql & " username,"
sql= sql & " password,"
sql= sql & " regdata) VALUES "
sql= sql & "('" & vNome & "', "
sql= sql & "'" & vCognome & "', "
sql= sql & "'" & vIndirizzo & "', "
sql= sql & "'" & vCitta & "', "
sql= sql & "'" & vCap & "', "
sql= sql & "'" & vTelefono & "', "
sql= sql & "'" & vEmail & "', "
sql= sql & "'" & vUserName & "', "
sql= sql & "'" & vPassword & "', "
sql= sql & "'" & Date & "')"
Connessione.Execute (sql)
Connessione.Close
%>


L'ho preso da un libro " guida ad ASP3.0"
e l'ho adattato vorrei capire dove sbaglio
Grazie

Ok grazie mille per l'aiuto!
..ma non è ancora finita:
dunque in effetti la seconda apertura alla connessione era superflua, l'ho eliminata ed ho aggiunto gli asterischi ma sei sicuro della posizine del secondo? L'ho volutamente omesso.
Ora mi da un errore più umano:
Microsoft JET Database Engine (0x80040E14)
Errore di sintassi nell'istruzione INSERT INTO.
/mcpvb/TMP1zww486pht.asp, line 106

ecco il codice:
Set Connessione = Server.CreateObject("ADODB.Connection")
Connessione.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.MapPath("McPalladiodb.mdb")
sql= "SELECT username, password From utente WHERE username = '" & request.form("User") & "';"
Set rsRegistra = Connessione.Execute(sql)
If rsRegistra.EOF Then

sql= "INSERT INTO utente "
sql= sql & "(nome,"
sql= sql & " cognome,"
sql= sql & " indirizzo,"
sql= sql & " citta,"
sql= sql & " cap,"
sql= sql & " telefono,"
sql= sql & " email,"
sql= sql & " username,"
sql= sql & " password,"
sql= sql & " regdata) VALUES "
sql= sql & "('" & vNome & "', "
sql= sql & "'" & vCognome & "', "
sql= sql & "'" & vIndirizzo & "', "
sql= sql & "'" & vCitta & "', "
sql= sql & "'" & vCap & "', "
sql= sql & "'" & vTelefono & "', "
sql= sql & "'" & vEmail & "', "
sql= sql & "'" & vUserName & "', "
sql= sql & "'" & vPassword & "', "
sql= sql & "'#" & Date & "')"
Connessione.Execute(sql)
Connessione.Close
%>

<!-- #include file="IncludeRegister1.txt" -->
<%
Else


%>
<!-- #include file="IncludeRegister2.txt" -->
<%
End If

Else

%>

<!-- #include file="IncludeRegister3.txt" -->

<%
End If
%>
Ciao e grazie ancora

Ok ci provo, ti faccio sapere
Grazie