3 svar · 178 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...
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.. 
Jag ska prova...