Exception occurred.

/wis1878/registrera.asp, line 155

Koden är:

If Request.Querystring("steg") = "2" Then

Email = Request.Form("email")
Password = Request.Form("losen")
Namn = Request.Form("namn")
Kon = Request.Form("kon")
Username = Request.Form("username")
Presentation = "Användaren har inte presenterat sig själv ännu."
Email2 = Request.Form("email2")
Kommentar = Request.Form("kommentar")
Datum = date()

Set Recset = Connect.Execute("Select * From medlemmar")

If Request.Form("email") = Recset("email") Then
Session("felemail") = "Denna emailadressen är redan registrerad, kontakta oss ifall du förlorat ditt lösenord."
Response.Redirect "registrera.asp?fel=email"
ElseIf Request.Form("username") = Recset("username") Then
Session("feluser") = "Det finns tyvärr redan någon annan person med detta användarnamn, testa med någonting annat."
Response.Redirect "registrera.asp?fel=user"

Else

koden då....


Line 155 är:

If Request.Form("email") = Recset("email") Then

Tack!!

Hej, i ditt fall så kontrollerar du inte först om du fått några poster till ditt recordset. Troligtvis har du inte det och gör ett anrop till ett record som inte finns. Testa alltid att se om du får några poster innan du refererar till objekt i kollektionen:

Ex:
<code>
Set Recset = Connect.Execute("Select * From medlemmar")
If Not RecSet.Eof Then
If Request.Form("email") = Recset("email") Then
Else
' Inga poster finns
End If
</code>

Hoppas detta hjälper dig. Om inte detta går, kontrollera att det verkligen finns ett fält som heter email och inte något annat istället.
/Pelle

Alltså, ja klickar på Bli Medlem...
tex registrera.asp?steg=2 men sidan är helt tom, inget felmeddelande ingenting, min kod ser ut så:

<% ' ################ REGISTRERAR STEG 2 ################
If Request.Querystring("steg") = "2" Then

Set Recset = Connect.Execute("Select * From medlemmar")

If Not Recset.Eof Then

If Request.Form("email") = Recset("email") Then
Session("felemail") = "Denna emailadressen är redan registrerad, kontakta oss ifall du förlorat ditt lösenord."
Response.Redirect "registrera.asp?fel=email"
ElseIf Request.Form("username") = Recset("username") Then
Session("feluser") = "Det finns tyvärr redan någon annan person med detta användarnamn, testa med någonting annat."
Response.Redirect "registrera.asp?fel=user"

Recset.Close
Set Recset = Nothing

Else

Email = Request.Form("email")
Password = Request.Form("losen")
Namn = Request.Form("namn")
Kon = Request.Form("kon")
Username = Request.Form("username")
Presentation = "Användaren har inte presenterat sig själv ännu."
Email2 = Request.Form("email2")
Kommentar = Request.Form("kommentar")
Datum = date()

Connect.Execute("Insert Into medlemmar([email],[password],[namn],[kon],[username],[presentation],[email2],[kommentar],[datum]) Values('" & Email & "','" & Password & "','" & Namn & "','" & Kon & "','" & Username & "','" & Presentation & "'," & Len(Email2) & "," & Len(Kommentar) & ",'" & Datum & "')")

Set jmail = Server.CreateObject("JMail.Message")

jmail.AddRecipient email
jmail.From = "Hassaninho@hotmail.com"
jmail.Subject = "Välkommen"
jmail.Body = "Detta meddelande skickades " & Now & ""
jmail.appendHTML "<font face=verdana size=2>"
jmail.appendHTML "Hej " & Namn & " och varmt välkommen till Vackrast.com<br>"
jmail.appendHTML "</font>"
jmail.appendHTML "<font face=verdana size=1>"
jmail.appendHTML "Du kan redan nu logga in med dina uppgifter för att lägga upp dina bilder, skriva en dikt eller ett skämt."
jmail.appendHTML "<br><br>"
jmail.appendHTML "<b>Email:</b> " & Email & "<br>"
jmail.appendHTML "<b>Lösenord:</b> " & Password & "<br><br>"
jmail.appendHTML "Vi hoppas verkligen du trivs som medlem hos oss och har du några åsikter så vänd dig till oss, Välkommen =)"
jmail.appendHTML "</font>"

jmail.Send ("mail1.telia.com")

Session("registrerad") = "<b>Tack för medverkan!</b><br><br> Logga in för att registrera bilder, dikter eller skämt.<br>Glöm inte att skriva i din presentation så andra kan läsa om dig och fyll gärna i övriga val."
Response.Redirect "registrera.asp?tack=meddelande"

End If
End If
End If %>