JMail.SMTPMail

Dette asp var før sat op til at sende med smtpsvg.mailer og nu skal jeg bruge den på et andet webhotel... jeg har forsøgt og rette så den kan sende med JMail.SMTPMail... men den virker ikke... håber der er en der kan se hvad jeg mangler og rette eller har rettet forkert ;-)

<%
\'****************************************
\'* mySQL paging, why so fucking hard? *
\'* www.netsrac.dk *
\'****************************************

\'****************************************
\'* SETTING *
\'****************************************
\'Antal records pr. side
pagesize = 10
this = Request.ServerVariables(\"SCRIPT_NAME\")
tabel = \"brugere\"
\'****************************************
\'* CODE *
\'****************************************

page = Request.QueryString(\"page\")
If page = \"\" Then
    page = 1
Else
    page = Int(page)
End if
start = (page - 1) * pagesize

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"driver={MySql};server=localhost;database=xxx;uid=xxx;pwd=xxx\"

Set rs = Conn.Execute(\"select count(*) as antal from \" & tabel & \" where pizzariaid = \'\" & Request.Form(\"pizza\") & \"\'\")
    total = rs(\"antal\")
Set rs = nothing
totalpages = (total / pagesize)
If totalpages Mod 1 <> 0 Then
    totalpages = Int(totalpages) + 1
End if

Set rs = Conn.Execute(\"select klubnavn from pizzaria where id = \'\" & Request.Form(\"pizza\") & \"\'\")
    navn = rs(\"klubnavn\")
Set rs = nothing

Set Mailer = Server.CreateObject (\"JMail.SMTPMail\")
Mailer.ServerAddress = \"212.97.129.16\"
\'Mailer.ContentType = \"text/html\"
Mailer.SenderName = navn
Mailer.Sender = \"bestil-online@esenet.dk\"
Mailer.AddRecipient \"bestil-online@esenet.dk\"
Mailer.Subject = Request.Form(\"sub\")
Mailer.Body = Request.Form(\"body\")

Set rs = Conn.Execute(\"select * from \" & tabel & \" where pizzariaid = \'\" & Request.Form(\"pizza\") & \"\' limit \" & start & \",\" & pagesize)
Do until rs.eof
    If rs(\"email\") <> \"\" Then
        Mailer.AddRecipientBCC \"\", rs(\"email\")
    End if
rs.movenext
Loop
Set rs = nothing

Mailer.execute
Set Mailer = nothing

Conn.Close
Set Conn = nothing

If page < totalpages Then
    Response.Write(\"<form action=\"\"send.asp?page=\" & page + 1 & \"\"\" method=\"\"post\"\" name=\"\"form\"\">\")
    For each item in Request.Form
        Response.write(\"<input type=\"\"hidden\"\" name=\"\"\" & item & \"\"\" value=\"\"\" & Request.Form(item) & \"\"\">\")
    Next
    Response.Write(\"</form>\")
    Response.Write(\"<script>document.form.submit();</script>\")
Else
    Response.Write(\"Alle mails afsendt!\")   
    \'Response.Write(page & \"-\" &  totalpages)
   
End if
%>