problema registrazione nuovi utenti su pagine asp

MartiD

Nuovo Utente
1 Set 2015
1
0
0
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"%>
<!--#include file="adojavas.inc"-->

<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>
<p align="center"><b><font face="Verdana" size="2">Username inserito già in uso!</font></b></p>
<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

Moderatore
Membro dello Staff
MOD
18 Feb 2010
549
13
18
Italy
www.riciclarte.info
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