Jmail

Hey.. er der nogen der kan sige mig hvad fejlen er i dette:

set rs = Conn.Execute("Select * From Medlemmer Where LoginBrugernavn = '" & username & "'")       
set SMail = Server.CreateObject("JMail.SMTPMail")
SMail.Sender = "support@domain.dk"
SMail.SenderName = "domain.dk"
SMail.AddRecipient email
SMail.Subject = "Emne"
SMail.ServerAddress = "websmtp.datamekanikeren.dk"
SMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

Body = "----" & vbcrlf
Body = Body & "Følgende oplysninger er blevet indtastet:"
Body = Body & vbcrlf
Body = Body & "Medlemsnummer: " & rs("MedlemsNummer") & vbcrlf
Body = Body & "Medlems navn: " & rs("MedlemsNavn") & vbcrlf
Body = Body & "Medlems adresse: " & rs("MedlemsAdresse") & vbcrlf
Body = Body & "Medlems by: " & rs("MedlemsBy") & vbcrlf
Body = Body & "Medlems telefon: " & rs("MedlemsTelefon") & vbcrlf
Body = Body & "Medlems ICQ: " & rs("MedlemsICQ") & vbcrlf
Body = Body & "Medlems E-mail: " & rs("MedlemsEmail") & vbcrlf
Body = Body & "Bil model: " & rs("BilModel") & vbcrlf
Body = Body & "Bil motorstørrelse: " & rs("BilMotor") & vbcrlf
Body = Body & "Bil farve: " & rs("BilFarve") & vbcrlf
Body = Body & "Bil Bemærkninger: " & rs("BilBmk") & vbcrlf
Body = Body & "Login Brugernavn: " & rs("LoginBrugernavn") & vbcrlf
Body = Body & "Login Password: " & rs("LoginPassword") & vbcrlf
Body = Body & vbcrlf
Body = Body & "klik på linket nedenfor at offentliggøre oplysninger om denne bruger" & vbcrlf
Body = Body & vbcrlf
Body = Body & "GODKEND: http://www.domain.dk/login/admin.asp&case=godkend?ID=" & rs("MedlemID") & vbcrlf
Body = Body & vbcrlf
Body = Body & "SLET: http://www.domain.dk/login/admin.asp&case=slet?ID=" & rs("MedlemID") & vbcrlf
Body = Body & vbcrlf
Body = Body & "Hilsen Domain" & vbcrlf
SMail.Body = Body                   
SMail.Priority = 1
SMail.Execute
set JMail = Nothing