problema registrazione nuovi utenti su pagine asp

MartiD · 2 Set 2015

Buongiorno a tutti! Io ho un problema, devo creare un sito che effettui il login e la creazione di nuovi utenti che poi registrerà in un database. Se il nome utente è già presente nel database devo dire che il nome utente è già in uso, altrimenti aggiungerlo al database. Il database è payments.mdb e l'ho salvato nella cartella nella quale sono presenti le pagine del sito.
Io ho scritto il codice seguente, ma mi da errore quando lo carico.. sono disperata, dove sbaglio? potete aiutarmi?
Grazie mille!

<!DOCTYPE HTML PUBLIC"-//W3C//DTD HTML 4.01//EN""http://www.w3.org/TR/html4/strict.dtd">
<%@language="JScript"%>


<html>
<head>

<%
nick = Replace(Request.QueryString("nick"), "'", "''");

IF nick <> "" then
var con;
var conString;
con = Server.CreateObject("ADODB.Connection");
conString = "Provider=Microsoft.Jet.OLEDB.4.0; "+"Data Source="+Server.MapPath("payments.mdb");
con.Open(conString);
%>
<title>Registrazione</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">

</head>
<body>

<%

var rst;
var sSQLString;
rst = Server.CreateObject("ADODB.Recordset");
sSQLString = "SELECT * from users where nick = '" & nick &"'";
rst.Open(sSQLString, con, adOpenStatic, adLockOptimistic);

IF (!rst.EOF) Then

usato = True
Else

usato = False
End IF

rst.Close();
rst = Nothing;

IF usato = True then
%>

<hr>
Username inserito già in uso!
<hr>

<%
Else

rst = Server.CreateObject("ADODB.Recordset");
sSQLString = "SELECT * from users Order By user_id Desc";
rst.Open(sSQLString, con, adOpenStatic, adLockOptimistic);
rst.Addnew;

rst("nick") = nick;

rst.Update;
rst.Close();
con.Close();
rst = null;
con = null:

%>
</body>
</html>

Paolo69 · 4 Set 2015

Testa questo codice:

Codice:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Registrazione</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
</head>

<body>
<%
Dim nik
	nick = Replace(Request.QueryString("nick"), "'", "''");


If nick <> "" then
					
					' connessione al DB
					conString = "Provider=Microsoft.Jet.OLEDB.4.0; "+"Data Source="+Server.MapPath("payments.mdb");

			Set rs = Server.CreateObject("ADODB.Recordset")
				rs.ActiveConnection = conString
				rs.Source = "SELECT * from users where nick = '" & nick &"'"
				rs.CursorType = 0
				rs.CursorLocation = 2
				rs.LockType = 1
				rs.Open()
		
					If NOT rs.EOF Then
					
					' rs presente
					' visualizzo un messaggio
					%>
                    <hr>
					<p align="center"><b><font face="Verdana" size="2">Username inserito già in uso!</font></b></p>
					<hr>
					<%
					
					Else
					
					' rs assente
					' inserisco il nick nel DB
			Set RsU = server.CreateObject ("ADODB.Connection")
				RsU.ConnectionString = conString
				RsU.Open
				QuerySQL = "INSERT INTO users (nick) VALUES ('"&nick&"')"
				RsU.Execute QuerySQL
			Set RsU = Nothing

					%>
						<script language="javascript">
							msg = "Operazione conclusa con successo!"
								alert(msg)
						//	location.replace("default.asp");
						</script>
					<%
	
					End If

		
				rs.Close
			Set rs = Nothing

%>
</body>
</html>

purtroppo il codice non l'ho testato.
Se non funziona mandami una copia del DB al seguente indirizzo: virtual_box@hotmail.com
Buona giornata

Cerca

Cerca

problema registrazione nuovi utenti su pagine asp

MartiD

Nuovo Utente

Paolo69

Moderatore

Discussioni simili