Hvordan retter jeg det her til ?
'*******************************************************************' I´m gona mail this bugger to the admin i JMail format
' 6/2 - 2001 by cd@vestdata.dk
'*******************************************************************
Private sub SendMailToAdmin()
on error resume next
strMailBody = strMailBody & "<html><body bgcolor='#FFFFED'>"
strMailBody = strMailBody & "<h2><font color='#999999'>eshop bestilling</font></h2>"
strMailBody = strMailBody & "<p><font color='#999999'><pre>"
strMailBody = strMailBody & " <b>Navn:</b> " & Request.Form ("fldName") & "<br>"
strMailBody = strMailBody & " <b>Evt. firmanavn:</b> " & Request.Form ("fldCompanyName") & chr(10)
strMailBody = strMailBody & " <b>E-mail Adresse:</b> " & Request.Form ("fldEmail") & chr(10)
strMailBody = strMailBody & " <b>Adresse:</b> " & Request.Form ("fldURL") & chr(10)
strMailBody = strMailBody & " <b>Postnr./By:</b> " & Request.Form ("fldAreaCode") & " " & Request.Form ("fldPhone") & chr(10)
strMailBody = strMailBody & " <b>Tlf.:</b> " & Request.Form ("fldFax") & chr(10)
strMailBody = strMailBody & Request.Form ("bestillingForm")'ShowItemsInCart
strMailBody = strMailBody & "</pre>" & chr(10)
strMailBody = strMailBody & "</font></p>"
strMailBody = strMailBody & "</body></html>"
Set objMail = server.CreateObject("JMail.SMTPMail")
objMail.ContentType = "text/html"
' ## MAILPROG OPSÆTNING
objMail.ServerAddress = "Your.host.com"
objMail.Sender = "your@email.com"
objMail.ReplyTo = "your@email.com"
objMail.Sendername = "E-shoppen"
objMail.subject = "Your subject"
' ## MODTAGER PÅ EMALEN
objMail.AddRecipient("Your@email.com")
objMail.body = strMailBody
objMail.Priority = 1
' ## SENDER
objMail.Execute
Set objMail = nothing
If err.Number < 0 Then
Response.Write "<b>Bestilling blev ikke sendt</b>"
Else
Response.Write "<b>Dette er en DEMO. Du vil IKKE modtage en bekræftigelse</b>"
End If
ShowItemsInCart
Det skal passe på cliche.dk's servere, de vil ikke hjælpe mig...
Tak.
