Hej jag försöker göra ett forum på nätet med hjälp av asp. men när jag försöker regga en användare så för jag bara upp ett fel-medelande. Är det nån som kan förklara? OBS Jag är nybörjare

Det här är coden:

<%
if Request.QueryString("action") = "register" then

Dim objConn 'as object
Dim strConn 'as string
Dim strSQL 'as string
Dim strLoginName 'as sstring
Dim strPassword 'as string
Dim strEmail 'as string
Dim strFullName 'as string
Dim strURL 'as string
Dim strPictureURL 'as string
Dim strPresentation 'as string
Dim rstUser 'as recordset

'Kontrollera om någon sträng är tom if strLoginName = "" then strLoginName = " "
if strPassword = "" then strPassword = " "
if strEmail = "" then strEmail = " "
if strFullName = "" then strFullName = " "
if strURL = "" then strURL = " "
if strPictureURL = "" then strPictureURL = " "

'Ta bort ogiltiga tecken från alla strängar (' och %)
strLoginName = Replace(Request.Form("userLoginName"), "'", "''")
strPassword = Replace(Request.Form("userPassword"), "'", "''")
strEmail = Replace(Request.Form("userEmail"), "'", "''")
strFullName = Replace(Request.Form("userFullName"), "'", "''")
strURL = Replace(Request.Form("userURL"), "'", "''")
strPictureURL = Replace(Request.Form("userPictureURL"), "'", "''")
strPresentation = Replace(Request.Form("userPresentation"), "'", "''")
strLoginName = Replace(strLoginName, "%", "")
strPassword = Replace(strPassword, "%", "")
strEmail = Replace(Request.Form("userEmail"), "%", "")
strFullName = Replace(Request.Form("userFullName"), "%", "")
strURL = Replace(Request.Form("userURL"), "%", "")
strPictureURL = Replace(Request.Form("userPictureURL"), "%", "")

'Skapa databaskopplingen
Set objConn = server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/community.mdb")
objConn.Open strConn

'Skapa sql-sträng för att kontrollera om anvndaren finns
strSQL = "SELECT userLoginName FROM tblUsers WHERE userLoginName = '" & strLoginName & "'"

'Skapa och öppna recordset
Set rstUser = objConn.Execute(strSQL)

if (rstUser.EOF or rstUser.BOF) then 'Namnet var ledigt.

'Skapa sql-sträng för att lägga in en ny användare
strSQL = ""
strSQL = strSQL & "INSERT INTO tblUsers ("
strSQL = strSQL & "userLoginName, userPassword, userEmail, userFullname, userURL, userPictureURL, "
strSQL = strSQL & "userPresentation, userLoginStatus, userRegistred, userLoginLatest, userPoints"
strSQL = strSQL & ")"
strSQL = strSQL & "VALUES ("
strSQL = strSQL & "'" & strLoginName & "', " 'Användarnamn
strSQL = strSQL & "'" & strPassword & "', " 'Lösenord
strSQL = strSQL & "'" & strEmail & "', " 'E-post
strSQL = strSQL & "'" & strFullName & "', " 'Fullständigt namn
strSQL = strSQL & "'" & strURL & "', " 'Hemsida
strSQL = strSQL & "'" & strPictureURL & "', " 'Bild-adress
strSQL = strSQL & "'" & strPresentation & "', " 'Presentation
strSQL = strSQL & "0, " 'Inte inloggad
strSQL = strSQL & "'" & Now() & "', " 'Registrerad dagens datum och tid
strSQL = strSQL & "'" & Now() & "', " 'Senast inloggad
strSQL = strSQL & "0" 'Antal poäng
strSQL = strSQL & ")"

'Kör sql-strängen mot databsaen
objConn.Execute(strSQL)

'Skicka tillbaka användaren till inloggnings-sidan med ett meddelande att han/hon är registrerad
Session("message") = "<font color=""green"">Du är registrerad.<br>Du kan nu logga in.</font>"
Response.Redirect("login.asp")

else 'Namnet var upptaget

'Skapa ett meddelande till användaren
Session("regmess") = "<font color=""red""><b>Namnet finns redan, försök med någonting annat.</b></font>"

end if

end if
%>


Och det här får jag när jag försöker regga mig:

HTTP 500.100 - Internal Server Error - ASP error
Apache/1.3.33 (Unix) Sun-ONE-ASP/4.0.2 PHP/4.3.11 mod_ssl/2.8.22 OpenSSL/0.9.6b FrontPage/5.0.2.2635 mod_throttle/3.1.2

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
ADODB.Connection.1 (0x800A0BB9)
The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.
/ojje/register.asp, line 40


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

Page:
POST 181 bytes to /ojje/register.asp

POST Data:
userLoginName=orjan.is&userPassword=tillbaka&userEmail=orjan.j.andersson@umea.se&userFullName=janm+bgrtf&userURL=www.aftonbladet.se&userPictureURL=&userPresentation=mfd%2Cfc%2Ckcfmd

Time:
Monday, August 29, 2005, 8:17:45 PM

Tack på förhand

Hej Örjan.
Först vill jag be dig att använda dig av enter-tagenten, så att inläggen inte blir så breda som ditt har blivet.
Sedan, utan att har satt mig in i hela din kod, så hittade jag ett par fel:
<code>

strSQL = strSQL & "'" & Now() & "', " 'Registrerad dagens datum och tid
strSQL = strSQL & "'" & Now() & "', " 'Senast inloggad
</code>
Jag misstänker att det bör se ut så här:
<code>
strSQL = strSQL & "#" & Now() & "#, " 'Registrerad dagens datum och tid
strSQL = strSQL & "#" & Now() & "#, " 'Senast inloggad

</code>
Detta är om det är en access-databas
Jag hoppas att detta kan hjälpa dig på traven.