Object required ( fel i jMail )

Hej!
Efter flera år som jag inte sysselsatt mig med hemsidor och ASP så bad en vän mig att hjälpa honom med en simpel webbshop för hans hobbyverksamhet.
Jag letade reda på en gratis variant eftersom jag inte kan koda själv och denna finns på fips Shop lignt

Det var ju bara att skicka upp men när det var dags att testköra shoppen visade sig det att webbhotellet inte stöder ASPEmail (CDONTS ?) utan bara jMail.
Har nu försökt att ändra själv i koden men lyckas inte riktigt.
Finns det någon som kan hjälpa mig?

<%
Private sub SendMailOrder()
Dim strHTML, strHTML2, strArtikel, strName, strVorname, strEmail, strStrasse, strPLZ, strStadt, strLand, strTelefon, strAnmerkung, strDate
Dim BillisShipping, strHTMLShipping, strName2, strVorname2, strStrasse2, strPLZ2, strStadt2, strLand2
On Error Resume next

Dim jMail, jMail2
Dim Key, aParameters, sTotal, rsShop
strArtikel = "<table border=1><tr><td><strong>"&txt_itemNumber&"</strong></td><td><strong>"&txt_itemName&"</strong></td><td><strong>"&txt_VE&"</strong></td><td><strong>"&txt_pieces&"</strong></td><td><strong>"&txt_priceSingle&"</strong></td><td><strong>"&txt_priceSummary&"</strong></td></tr>"
sTotal = 0
For Each Key in fipsCart
aParameters = GetItemParameters(Key)

strArtikel = strArtikel & "<tr><td>"& aParameters(0) &"</td><td>"& aParameters(1) &"</td><td>"& aParameters(3) &"</td><td>"& fipsCart(Key) &"</td><td>"&shopCurrency&"&nbsp; "& aParameters(2) &"</td><td>"&shopCurrency&"&nbsp; "& FormatNumber(fipsCart(Key) * CSng(aParameters(2)),2) &"</td></tr>"

sTotal = sTotal + (fipsCart(Key) * CSng(aParameters(2)))
'rsShop.close
'set rsShop=nothing
'ConnShop.close
'set ConnShop=nothing
Next
strArtikel = strArtikel & "<tr><td colspan='5'><strong>"&txt_priceSummary1&"</strong></td><td><strong>"&shopCurrency&"&nbsp; "&FormatNumber(sTotal,2)&"</strong></td></tr>"
' Preisstaffelung Lieferkosten / Shipping costs
Dim sShipping2, cartTotal2
If sTotal = 0.00 Then
cartTotal2 = sTotal + 0.00
sShipping2 = 0.00
Elseif sTotal > 0.00 and sTotal < sShippingLimit1 then
cartTotal2 = sTotal + sShipping1
sShipping2 = sShipping1
Elseif sTotal => sShippingLimit1 and sTotal < sShippingLimit2 then
cartTotal2 = sTotal + sShipping2
sShipping2 = sShipping2
Elseif sTotal => sShippingLimit2 and sTotal < sShippingLimit3 then
cartTotal2 = sTotal + sShipping3
sShipping2 = sShipping3
Elseif sTotal => sShippingLimit3 and sTotal < sShippingLimit4 then
cartTotal2 = sTotal + sShipping4
sShipping2 = sShipping4
Elseif sTotal => sShippingLimit5 then
cartTotal2 = sTotal + sShipping5
sShipping2 = sShipping5
End If
Dim tax2, taxTotal2, cartTotalAll2
' Steuer-Prozentsatz / tax-percents
tax2 = taxPercent '%
taxTotal2 = (cartTotal2/100)*tax2
cartTotalAll2 = cartTotal2 + taxTotal2

strArtikel = strArtikel & "<tr><td colspan='5'>"&txt_shippingCosts&"</td><td>"&shopCurrency&"&nbsp; "&FormatNumber(sShipping2,2)&"</td></tr>"
strArtikel = strArtikel & "<tr><td colspan='5'><strong>"&txt_priceSummary1&"</strong></td><td><strong>"&shopCurrency&"&nbsp; "&FormatNumber(cartTotal2,2)&"</strong></td></tr>"
strArtikel = strArtikel & "<tr><td colspan='5'>"&txt_taxCosts&"&nbsp;("&tax2&"&nbsp;%)</td><td>"&shopCurrency&"&nbsp; "&FormatNumber(taxTotal2,2)&"</td></tr>"
strArtikel = strArtikel & "<tr><td colspan='5'><strong>"&txt_priceSummary2&":</strong></td><td><strong>"&shopCurrency&"&nbsp; "& FormatNumber(cartTotalAll2,2) &"</strong></td></tr></table><br>"

strName=Request.form("Nachname") 
strVorname=Request.form("Vorname") 
strEmail=Request.form("Email") 
strStrasse=Request.form("Strasse") 
strPLZ=Request.form("PLZ") 
strStadt=Request.form("Stadt") 
strLand=Request.form("Land") 
strTelefon=Request.form("Telefon") 
strAnmerkung=Request.form("Anmerkung")
strDate=now()
strName2=Request.form("Name2") 
strVorname2=Request.form("Vorname2") 
strStrasse2=Request.form("Strasse2") 
strPLZ2=Request.form("PLZ2") 
strStadt2=Request.form("Stadt2") 
strLand2=Request.form("Land2") 
BillisShipping = Request.form("BillisShipping")

if BillisShipping <> 1 then
strHTMLShipping = "<strong><u>"&txt_formShippingAdress&"</u></strong>"
strHTMLShipping = strHTMLShipping & "<br><strong>"&txt_formName&": " & strName2 & "&nbsp;" & strVorname2 & "</strong>"
strHTMLShipping = strHTMLShipping & "<br>"&txt_formStreet&": " & strStrasse2
strHTMLShipping = strHTMLShipping & "<br>"&txt_formZIP&": " & strPLZ2
strHTMLShipping = strHTMLShipping & "<br>"&txt_formCity&": " & strStadt2
strHTMLShipping = strHTMLShipping & "<br>"&txt_formCountry&": " & strLand2
else
strHTMLShipping = txt_formBillisShippingAdress
end if

strHTML = "<html><head><title></title></head>"
strHTML = strHTML & "<body>"
strHTML = strHTML & "<strong>"&txt_order&":</strong><br><br>"
strHTML = strHTML & strArtikel
strHTML = strHTML & txt_formTextEmail1&"<br>"
strHTML = strHTML & "<br><br><strong><u>"&txt_formCustomer&" / "&txt_formBillAdress&"</u></strong><br><strong>"&txt_formName&": " & strName & "&nbsp;" & strVorname
strHTML = strHTML & "</strong><br>"&txt_formEmail&": " & strEmail
strHTML = strHTML & "<br>"&txt_formStreet&": " & strStrasse
strHTML = strHTML & "<br>"&txt_formZIP&": " & strPLZ
strHTML = strHTML & "<br>"&txt_formCity&": " & strStadt
strHTML = strHTML & "<br>"&txt_formCountry&": " & strLand
strHTML = strHTML & "<br>"&txt_formPhone&": " & strTelefon
strHTML = strHTML & "<br>"&txt_formComments&":<br> " & strAnmerkung
strHTML = strHTML & "<br><br>"&txt_formDate&": " & strDate
strHTML = strHTML & "<br><br>"&strHTMLShipping&"<br><br>"
strHTML = strHTML & "</body>"
strHTML = strHTML & "</html>"

strHTML2 = "<html><head><title></title></head>"
strHTML2 = strHTML2 & "<body>"
strHTML2 = strHTML2 & "<strong>"&txt_formTextEmail2&"</strong><br><br>"
strHTML2 = strHTML2 & strArtikel
strHTML2 = strHTML2 & txt_formTextEmail3&"<br>"
strHTML2 = strHTML2 & "<br><br><strong><u>"&txt_formTextEmail4&"</u></strong><br><strong>"&txt_formName&": " & strName
strHTML2 = strHTML2 & "</strong><br>"&txt_formEmail&": " & strEmail
strHTML2 = strHTML2 & "<br>"&txt_formStreet&": " & strStrasse
strHTML2 = strHTML2 & "<br>"&txt_formZIP&": " & strPLZ
strHTML2 = strHTML2 & "<br>"&txt_formCity&": " & strStadt
strHTML2 = strHTML2 & "<br>"&txt_formCountry&": " & strLand
strHTML2 = strHTML2 & "<br>"&txt_formPhone&": " & strTelefon
strHTML2 = strHTML2 & "<br>"&txt_formComments&":<br> " & strAnmerkung
strHTML2 = strHTML2 & "<br><br>"&strHTMLShipping&"<br>"
strHTML2 = strHTML2 & "<br>"&txt_formTextEmail5
strHTML2 = strHTML2 & "<br><br>"&txt_formDate&": " & strDate
strHTML2 = strHTML2 & "</body>"
strHTML2 = strHTML2 & "</html>"

' Email Data set in ../includes/const.asp*
' eMail an Shop / eMail to Shop*

Set jMail = Server.CreateObject("JMail.Message")  
   jMail.From = MyMailAddress
   jMail.Host = MyMailserver
   jMail.AddAddress  MyMailAddress
   jMail.Subject = "fipsShop light - " & strName & " - Order"
   jMail.IsHTML = True
   jMail.Body = strHTML
   if cartTotalAll2 <> 0 then
   jMail.Send
   end if
set jMail = Nothing

' eMail an Käufer / eMail to customer*
'eMail an Käufer*

Set jMail2 = Server.CreateObject("JMail.Message") 
   jMail2.From = MyMailAddress
   jMail2.Host = MyMailserver
   jMail2.AddAddress  strEmail
   jMail.Subject = "fipsShop light - " & strName & " - Order"
   jMail2.IsHTML = True
   jMail2.Body = strHTML2
   if cartTotalAll2 <> 0 then
   jMail2.Send
   end if
set jMail2 = Nothing

If err.Number = 0 Then
Response.Write "<div align=""center""><strong>"&txt_thx&", " & strVorname & "&nbsp;" & strName & "</strong></div><br>"
ShowItemsInCart
%>

Del från original koden där jag ändrat

' Email Data set in ../includes/const.asp*
' eMail an Shop / eMail to Shop*

Set objNewMail = CreateObject("Persits.MailSender") 
   objNewMail.From = MyMailAddress
   objNewMail.Host = MyMailserver
   objNewMail.AddAddress  MyMailAddress
   objNewMail.Subject = "fipsShop light - " & strName & " - Order"
   objNewMail.IsHTML = True
   objNewMail.Body = strHTML
   if cartTotalAll2 <> 0 then
  objNewMail.Send
   end if
set objNewMail = Nothing

' eMail an Käufer / eMail to customer*
'eMail an Käufer*
'Set objNewMail2 = CreateObject("Persits.MailSender") 
  objNewMail2.From = MyMailAddress
   objNewMail2.Host = MyMailserver
   objNewMail2.AddAddress  strEmail
   objNewMail2.Subject = "fipsShop light - " & strName & " - Order"
   objNewMail2.IsHTML = True
   objNewMail2.Body = strHTML2
  if cartTotalAll2 <> 0 then
  objNewMail2.Send
  end if
set objNewMail2 = Nothing