ASP - databasstrul
Jag försöker göra ett formulär där man kan bli medlem i ett forum. Det jag vill göra är att klienten ska fylla i sina uppgifter. Sedan ska koden kolla om användarnamnet eller emailen redan finns i databasen. Jag har gjort på följande sett:
------------------------------------------------------
If Request.QueryString("do") = "addUser" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("users.mdb")
nick = Request.Form("nick")
If nick = "" Then
Session("mess") = "Du måste fylla i ett användarnamn!"
Response.Redirect "createuser.asp"
End If
email = Request.Form("email")
If email = "" Then
Session("mess") = "Du måste fylla i din email!"
Response.Redirect "createuser.asp"
End If
pass1 = Request.Form("pass1")
pass2 = Request.Form("pass2")
If pass1 <> pass2 Then
Session("mess") = "Lösenorden var inte identiska!"
Response.Redirect "createuser.asp"
Else
pass1 = pass1
End If
homepage = Request.Form("homepage")
joined = date
SQL = "Select * From tblUsers Where strUsername=" & Request.Form("nick")
Set RecSet = Conn.Execute(SQL)
If RecSet.EOF Then
nicktest = good
Else
Session("mess") = "Användarnamnet var upptaget!"
Response.Redirect "createuser.asp"
End If
SQL = "Select * From tblUsers Where strEmail=" & Request.Form("email")
Set RecSet = Conn.Execute(SQL)
If RecSet.EOF Then
emailtest = good
Else
Session("mess") = "E-postadressen var upptagen!"
Response.Redirect "createuser.asp"
End If
If nicktest = good AND emailtest = good Then
SQL = "Insert Into tblUsers(strUsername,strEmail,strHomepage,strPassword,strJoined) Values('" & nick & "','" & email & "','" & homepage & "','" & pass1 & "','" & joined & "')"
Conn.Execute(SQL)
Session("mess") = "inne"
Response.Redirect "createuser.asp"
End If
End If
------------------------------------------------------
Men jag får felmeddelandet:
Microsoft JET Database Engine (0x80040E10)
Det har inte angetts något värde för en eller flera nödvändiga parametrar.
Den pekar på denna rad:
SQL = "Select * From tblUsers Where strUsername=" & Request.Form("nick")
Men den är väl inte fel? fattar noll...
