Lav CDOmail om til Jmail eller ASPmail

Jeg har lavet en side som skal sende min mails videre til mig. Mit problem er at jeg fik at vide af min udbyder \"enavn\", at de selvfølgelig understøtter CDO. Men efter at have brugt to dage på at få det til at virke, måtte jeg give op, da de til sidst måtte indrømme at de har slået CDO fra på deres webserver..suk.
Jeg fik det til at lykkes til sidst, men da var det på mit arbejdes server at det kørte fra.
Nu har jeg så den CDOmail som jeg gerne vil lave om til en Jmail eller ASPmail.

ER der nogen af jer som kan lave den, om eller fortælle mig hvad man skal gøre

Her er koden til min CDOmail
----------------------------------
<%@LANGUAGE=\"VBSCRIPT\"%>
<% response.buffer = true %>

<% if (cStr(Request(\"Submit\")) <> \"\") Then
Dim email
Set email = Server.CreateObject(\"JMail.SMTPMail\")

email.ServerAddress = \"db.fcweb.dk\"

email.From = (Request.form(\"person\"))

email.To = \"tommy@fcweb.dk\"

email.CC = \"\"

email.Subject = \"Ny beløb til Dongklubben\"

email.Body = \"Indtast er modtaget fra indtjeningslisten\" & vbcrlf & \"Person: \"  & Request(\"person\") & vbcrlf & \"Email: \" & Request(\"email\") & vbcrlf & \"Password: \" & Request(\"password\") & vbcrlf & \"Kommentare: \" & Request(\"kommentare\") & vbcrlf & \"Dato: \" & Request(\"dato\") & vbcrlf & \"Oddset: \" & Request(\"oddset\") & vbcrlf & \"Tipning: \" & Request(\"tipning\") & vbcrlf & \"Vundetbeløb: \" & Request(\"indtastbeloeb\")


\'email.body=Mailtext
\'Mailtext = \"Indtastning er modtaget fra indtjeningssiden\" & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"person\")) & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"email\")) & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"password\")) & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"kommentare\")) & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"oddset\")) & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"tipning\")) & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"indtastbeloeb\")) & vbcrlf


email.Execute

Set email = Nothing
Response.Clear
Response.Redirect(\"tak_for_mail.asp\")
End If
%>

------------------------
Hilsen
Tommy