%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim dbOps,strSQL set dbOps = new dbOperations %>
|
|||||||||||
" & strName & "
" & strAddress & "
" & strCity & "
" & strCountry & "
" & strZip
Set oMail = Server.CreateObject("JMail.SMTPMail")
oMail.ServerAddress = smtpServer & ":" & smtpPort
oMail.Sender = strSenderEmail
oMail.Subject = strSubject
oMail.ContentType = "text/html" 'or you can put 'text/plain' for plain text email
oMail.AddRecipient strRecipient
oMail.ISOEncodeHeaders = False
oMail.ContentTransferEncoding = "8bit"
oMail.Body = strMessage
' 1 - highest priority (Urgent) ' 3 - normal ' 5 - lowest
oMail.Priority = 3
' Add sender's IP address (not required, but useful for web-based email)
oMail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
' Actually send mail
on error resume next
oMail.Execute
If(Err.Number = 0) Then
response.write("Thank you, your mail has been sent")
response.redirect C_F_CONTACT & "?sFlag=True"
Else
response.write(Err.description)
End If
Set oMail = Nothing
strMessage="Your message has been sent!"
End If
%>