Ej dubletter

1 svar · 208 visningar · startad av nicon 2 okt. 2001

niconMedlem sedan sep. 200125 inlägg

Frågan2 okt. 2001 07:06#1

Jag har en medlems databas, när nya användare registrerar sig så ska det inte kunna bli dubletter, har gjort såhär men det verkar inte fungera.

Tips!?

<%
Dim idnr
idnr = request.form("username")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members2.mdb")

	SQL = "SELECT * FROM Members WHERE Username = " + Replace(idnr, "'", "''") + ""
	Set view = Connect.Execute(SQL)
	Username = view("Username")
	

Connect.Close
Set Connect = Nothing

if idnr = Username then
responde.redirect "register.asp?error=Användarnamnet%20upptaget!"
end if

	%>

@ndersMedlem sedan juni 200032 967 inlägg

2 okt. 2001 07:27#2

I VB-Script konkatenerar man bäst med &. Dessutom skall du ha apostrofer runt värden där fältet är av typen text.

Jag pillade lite i din asp-kod också, hoppas det inte gör något.

<%
Dim idnr, error
error = false
idnr = request.form("username")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members2.mdb")

SQL = "SELECT * FROM Members WHERE Username = '" & Replace(idnr, "'", "''") & "'"
Set view = Connect.Execute(SQL)
if view.eof then error = true

Connect.Close
Set Connect = Nothing

if error then responde.redirect "register.asp?error=Användarnamnet%20upptaget!"
%>

red: kan vara bra att klistra in koden också. ;)

Mvh,