Har lige et spørgsmål / problem til, lidt i samme stil som det jeg spurgte om sidst:
Har lavet siderne "register.asp" (som henter brugerens input) og "registercomplete.asp", hvor problemmet ligger ved "registercomplete.asp".
Har denne kode:
strSQL2 = "SELECT Count(username) AS Counter FROM user WHERE username='" & Request.Form("usernamex") & "'"
Set RS = Conn.Execute(strSQL2)
If RS("Counter") = 0 Then
'Lav Bruger! (indsaet i db)
strSQL2 = "Insert into user ("
strSQL2 = strSQL2 & "fullname, "
strSQL2 = strSQL2 & "username, "
strSQL2 = strSQL2 & "password, "
strSQL2 = strSQL2 & "email, "
strSQL2 = strSQL2 & "regdate, "
strSQL2 = strSQL2 & "points, "
strSQL2 = strSQL2 & "adminpoints, "
strSQL2 = strSQL2 & "givepoints, "
strSQL2 = strSQL2 & "info) "
strSQL2 = strSQL2 & "values( "
strSQL2 = strSQL2 & "'" & Request.Form("namex") & "', "
strSQL2 = strSQL2 & "'" & Request.Form("usernamex") & "', "
strSQL2 = strSQL2 & "'" & Request.Form("passwordx") & "', "
strSQL2 = strSQL2 & "'" & Request.Form("emailx") & "', "
strSQL2 = strSQL2 & "'" & date & "', "
strSQL2 = strSQL2 & "'0', "
strSQL2 = strSQL2 & "'0', "
strSQL2 = strSQL2 & "'2', "
strSQL2 = strSQL2 & "'" & Request.Form("infox") & "')"
'Kør og luk forbindelse!
RS = Conn.Execute(strSQL2)
Conn.Close
Set Conn = Nothing
'Skriv beskeder!
Response.Write = "Du er nu registreret"
Else
Response.Write("Brugernavnet er taget.")
End If
Når jeg afprøver på nettet, sætter den ind i databasen, men siden vises som fejl, og skriver denne meddeelse:
Error Type:
-----
Sun ONE ASP VBScript runtime (0x800A01AE)
Class does not support automation
-----
Har jeg lavet den samme fejl som sidst, eller hvad kan der være galt her? :-)
På Forhånd Tak