lav dette form script jmail/w3upload om til jmail/aspupload

jeg har dette script som skal uploade et attachment og derefter sende det via jmail ..problemet er blot at mit webhotel ikke understøtter w3upload men derimod aspupload ...hvordan skal koden se ud for at virke ?

<%
' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )
Set upload = Server.CreateObject( "w3.Upload")

' Check for attachments and add them to the email
set attachment = upload.Form( "attachment" )
if attachment.IsFile then
  msg.AddCustomAttachment attachment.filename, attachment.item, false
end if

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Get the form variables, using the upload object
historie = upload.Form("historie")
fornavn = upload.Form("fornavn")
efternavn = upload.Form ("efternavn")
email = upload.Form("email")
adresse= upload.Form("adresse")
bynavn = upload.Form("bynavn")
postnummer = upload.Form("postnummer")
telefon = upload.Form("telefon")
alder= upload.Form("alder")
' And apply them to the message
msg.From = "blabla@mitdomæne.dk"
msg.FromName = fornavn
msg.AddRecipient "blabla@mitdomæne.dk"
msg.Subject = "En lille historie blablabla !!!"

msg.Body = " Denne mail er fra blablabla !!!!" & vbCrLf & vbCrLf & "Indholdet af formularen er : " & vbCrLf & vbCrLf & "historie: " & historie & vbCrLf & vbCrLf & "Fornavn: " & fornavn & vbCrLf & vbCrLf & "Efternavn: " & efternavn & vbCrLf & vbCrLf & "Adresse: " & adresse & vbCrLf & vbCrLf & "Postnummer: " & postnummer & vbCrLf & vbCrLf & "By: " & bynavn & vbCrLf & vbCrLf & "Telefonnummer: " & telefon & vbCrLf & vbCrLf & "Email: " & email & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Afsendt fra http://www.mitdomæne.dk" & (Now) & " !"

' To capture any errors which might occur, we wrap the call in an IF statement
if not msg.Send( "mail.mitdomæne.dk" ) then
  Response.write "<pre>" & msg.log & "</pre>"
else
  Response.write "Din historie er på vej ...stiller om !"
  'JMail.Priority = 3

'JMail.AddHeader "Originating-IP",
'Request.ServerVariables("REMOTE_ADDR")

' Must make sure that IUSR_???? has access to the following files.
' I've disabled the attachments and footer in this demo
'JMail.AppendBodyFromFile "e:\mail\standard_footer.txt"
'JMail.AddAttachment "e:\products\MyProduct.exe"
'JMail.Execute
end if


' And we're done! the message has been sent.
%>