3 svar · 147 visningar · startad av Andiee
Gott Nytt År på er alla!!
Jag har fått ett litet problem som jag inte kan få ordning på. Jag har en registreringssida och när man fyllt i alla fält som ska fyllas i ska jag kolla om användarnamnet är upptaget. Så långt fungerar allt felfritt men sen...
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Kolla = "SELECT * FROM login WHERE anvnamn = '" & Trim(Request.Form("anvnamn")) & "'"
RecSet.Open Kolla, Connect, adOpenStatic, adLockOptimistic
If RecSet.EOF = True then
RecSet.Close
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Laggtill = "SELECT * FROM login"
RecSet2.Open Laggtill, Connect, adOpenStatic, adLockOptimistic
RecSet2.AddNew
RecSet2("anvnamn") = Request.Form("anvnamn")
RecSet2("losenord") = Request.Form("losenord")
RecSet2("fornamn") = Request.Form("fornamn")
RecSet2("efternamn") = Request.Form("efternamn")
RecSet2("hemort") = Request.Form("hemort")
RecSet2("epost") = Request.Form("epost")
RecSet2("foddatum") = Request.Form("ar") & "-" & Request.Form("manad") & "-" & Request.Form("dag")
RecSet2("kortinfo") = Request.Form("kortinfo")
RecSet2.Update
RecSet2.Close
Response.Redirect("default.asp")
Else
Response.Write "Användarnamnet som du angivit är upptaget! Välj ett annat<BR><BR><A HREF=""javascript:history.go(-1)""><B>Försök igen</B></A><BR>"
End If
Min försök. Jag har varit tillräckligt påhittig idag. Nu står det still...
------------------
~~~~~~~~~~~~~~~~~~~~
Mvh, Andreas
zizo@telia.com
[Redigerat av Andiee den 01 jan 2001]
[Redigerat av Andiee den 01 jan 2001]
Ser inte riktigt vad det är för fel du får men...
lite förenklat brukar jag skriva på ett liknande sätt
Set RecSet = connection.execute("SELECT user FROM users")
user = Request.Form("login_id")
X = FALSE
Do Until X = TRUE OR RecSet.EOF
If RecSet("user") = user Then
X = TRUE
Exit Do
End If
RecSet.MoveNext
Loop
if X = TRUE then
'Användarnamnet är upptaget
else
'Registrera användaren
end if
Hoppas det funkar.. ;)
------------------
MVH // Cyprys
[Redigerat av cyprys den 01 jan 2001]
Fungerar bra!
Tackar och bockar!! ;)
------------------
~~~~~~~~~~~~~~~~~~~~
Mvh, Andreas
zizo@telia.com