Ciao a tutti! Sto cercando di fare 1 sistema di registrazione utenti; Ho creato le seguenti pagine ma mi dà sempre questo errore:
HTTP 500 - ERRORE INTERNO DEL SERVER
e questa è la pagina di controllo:codice:<html> <head></head> <body> <form method="POST" action="registrazione_2.asp"> Username: <input type="text" name="UserName"> Password: <input type="text" name="PassWord"> E-mail utente: <input type="text" name="email"> <input type="submit" value="INVIA"> </form> </body> </html>
mi sapreste dare 1 consiglio?codice:<% ' Recuperiamo i dati dal form dim strNome strUserName = request.form("UserName") dim strCognome strPassWord = request.form("PassWord") dim strEmail strEmail = request.form("email") ' Verifichiamo che i campi non siano vuoti... If strUserName <> "" and strPassWord <> "" and strEmail <> "" Then ' Se i campi NON sono vuoti procediamo... ' Connessione al DB myDB = "/mdb-database/login.mdb" Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB) ' Lavoriamo sul Recordset Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Login", conn, 3, 3 rs.addnew rs("UserName") = strUserName rs("PassWord") = strPassWord rs("email") = strEmail rs.update ' Chiusura del database rs.Close set rs = Nothing conn.Close set conn = Nothing ' Risposta a video di conferma response.write "Scrittura avvenuta correttamente!" ' Se i campi SONO vuoti... Else response.write "Errore! Nessun campo può essere vuoto!" ' Chiudiamo la condizione IF End If %>
Rispondi quotando
