Behöver hjälp igen:

Jag får inte detta att fungera???

Det skall skicka iväg en bekräftelse mail på inloggnings uppgifterna allt läggs i databasen som det skall men inget mail kommer till den som har regat sig och jag ser inte varför enligt mig ser det korrekt ut!!!

Jag hoppas att någon annan kan se vad som är fel!!!

<%If Request.Querystring("go") = "add" Then

Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet   = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB

Email = Request.Form("Email") 
Losen = Request.Form("losen") 
Datum = Recset("datum") 
Manad = RecSet("manad") 
Id    = RecSet("id") 

Sidnamn = Request.Form("Sidnamn")
Losen = Request.Form("Losen")
Email = Request.Form("Email")
Url = Request.Form("Url")

If Url <> "" Then
  If Left(Url,7) = "http://" Then
Url = Url
  Else
    Url = "http://" & Url
  End If
End If
Banner = Request.Form("Banner")
If Banner <> "" Then
  If Left(Banner,7) = "http://" Then
Banner = Banner
  Else
    Banner = "http://" & Banner
  End If
End If
Info = Request.Form("Info")
Datum = Request.Form("Datum")
Manad = Request.Form("Manad")

SQL = "INSERT INTO topplista"
SQL = SQL & "(Sidnamn, Losen, Email, Url, Banner, Info, Datum, Manad)" 
SQL = SQL & "VALUES('" & Sidnamn & "','" & Losen & "','" & Email & "','" & Url & "','" & Banner & "','" & Info & "','" & Datum & "','" & Manad & "')"
Conn.Execute(SQL)

Session("done") = "<b>Du är nu tillagd i Topplistan. Här kan du logga in och ända dina uppgifter.<br>Ett mejl med dina uppgifter kommer att skickats till dig! Kan bli lite fördröjd om det är många som har registrerat sig!!!</b>"
Session.TimeOut = 1

Session("email") = Request.Form("email")

Response.Redirect "default.asp?go=skicka"
End If

If Request.QueryString("go") = "skicka" Then 

Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet   = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB

SQL = "Select * From topplista WHERE ucase(email) = '"&ucase(Session("email"))&"'"
RecSet.Open SQL, Conn, 2, 1

Email = RecSet("Email") 
Losen = RecSet("losen") 
Id = RecSet("id") 
Sidnamn = RecSet("Sidnamn")

Set Jmail = Server.CreateObject("JMail.Message")
Jmail.Logging = True
Jmail.Fromname = "Topp 30 LISTAN:"
Jmail.AddRecipient Email
Jmail.Subject = "Dina uppgifter på Topp 30 KATT LISTAN!"
Jmail.Body = "Bekräftelse meddelande från [url]http://www.topp30.acke.biz,[/url] skickades " & Now & ""
Jmail.appendHTML "<font face=verdana size=2>"
Jmail.appendHTML "<br><br>"
Jmail.appendHTML "Bekräftelse meddelande från [url]http://www.topp30.acke.biz[/url]<br><br>"
Jmail.appendHTML "<b>Dina inloggnings uppgifter till Topp 30 LISTAN:</b><br><br>"
Jmail.appendHTML "<b>Sidans Namn:</b> &nbsp;" & Sidnamn & "<br><br>"
Jmail.appendHTML "<b>Användarid:</b> &nbsp;" & Id & "<br><br>"
Jmail.appendHTML "<b>Lösenord:</b> &nbsp;" & Losen & "<br><br>"
Jmail.appendHTML "<b>Detta är koden som du ska klistra in på din hemsida: OBS tänk på att du bara kan trycka en gång per 24 timmar fr&aring;n din hemsida</b><br><br>"
Jmail.appendHTML "________________________________________________________________________________________"
Jmail.appendHTML "<br><font color=#800000>&#60;a href=&quot;" & Hemsida & "/default.asp?go=in&id=" & id &"&quot; target=&quot;_blank&quot;&#62;<br>"
Jmail.appendHTML "&#60;img src=&quot;" & Knapp & "&quot; border=&quot;0&quot; alt=&quot;" & Alt & "&quot;&#62;&#60;/a&#62;</font><br>"
Jmail.appendHTML "________________________________________________________________________________________"
Jmail.appendHTML "<br><br>"
Jmail.appendHTML "Du får gärna hjälpa mig att sprida sidan vidare till din katt vänner så sidan blir mer populärare och så du får fler besökare till din hemsida."
Jmail.appendHTML "<br>"
Jmail.appendHTML "MVH Admin på Topp30 Kattlistan's Hemsida. Ingemar Axelsson"
Jmail.appendHTML "</font>"

Jmail.Send ("smtp_server")

Response.Redirect "default.asp?go=loggain"
End If%>

Vore tacksamm om ni har lust att hjälpa mig med detta

MVH Megaman