If Request.Form("signatur") = ?

3 svar · 173 visningar · startad av timedia 23 nov. 2001

timediaMedlem sedan maj 2001420 inlägg

Trådstart23 nov. 2001 09:55#1

Jag behöver kontrollera att medlemmen inte redan är registrerad. Vad är smidigaste lösningen för att undvika att två personer reggar sig med samma signatur?

      <%
dim namn, signatur, losenord, epost, ort, alder
name = Request.Form("namn")
sign = Request.Form("signatur")
password = Request.Form("losenord")
email = Request.Form("epost")
ort = Request.Form("ort")
age = Request.Form("alder")

Set databas = Server.CreateObject("ADODB.Connection")
databas.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("")

SQLStmt = "INSERT INTO members"
SQLStmt = SQLStmt & "(Namn, Signatur, Losenord, Epost, Ort, Alder) "
SQLStmt = SQLStmt & "VALUES('" & name & "', '" & sign & "','" & password & "','" & email & "','" & ort & "', '" & age & "'); "
Set skicka = databas.Execute(SQLStmt)
databas.Close
%>

lolukokasosMedlem sedan mars 2001196 inlägg

23 nov. 2001 10:07#2

Skapa ett recordset där du kollar om signaturen redan finns inlagd.

Set rs=Server.CreateObject("ADODB.Recordset")
Set databas = Server.CreateObject("ADODB.Connection")
databas.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("admin/film.mdb")

SQL="SELECT signatur FROM members WHERE signatur ='"& sign &"'"

rs.open SQL,databas

if rs.eof then
SQLStmt = "INSERT INTO members"
SQLStmt = SQLStmt & "(Namn, Signatur, Losenord, Epost, Ort, Alder) "
SQLStmt = SQLStmt & "VALUES('" & name & "', '" & sign & "','" & password & "','" & email & "','" & ort & "', '" & age & "'); "
Set skicka = databas.Execute(SQLStmt)
databas.Close
else
response.write "Signaturen finns redan"
databas.close
end if

Kankse hjälper detta dig?
PS. Lite osäker på "Set Skicka=...", en INSERT-sats returnerar väl ingenting?. DS

[Redigerat av lolukokasos den 23 nov 2001]

timediaMedlem sedan maj 2001420 inlägg

23 nov. 2001 10:25#3

Tack. Det funkade bra!

@ndersMedlem sedan juni 200032 967 inlägg

23 nov. 2001 10:26#4

PS. Lite osäker på "Set Skicka=...", en INSERT-sats returnerar väl ingenting?. DS

Nix.

Fullt tillräckligt:

databas.Execute(SQLStmt)

Mvh,