%
if Request.Form("Send") = "Send" then
Set Mail = Server.CreateObject("Persits.MailSender")
'============================================================================
' this script requires the ASPEMAIL component
' To run this script you must install the aspemail component.
' to do this please simply run the aspemail.exe sent by me or download it from
' the http://www.aspemail.com/download.html address where is available free
'============================================================================
' enter valid SMTP host
Mail.Host = "mail.justlogin.com" 'REPLACE WITH VALID MAIL SERVER ADDRESS !!!!!!!!!
'============================================================================
'============================================================================
Mail.From = Request.Form("email") ' From address
Mail.FromName = Request.Form("name") ' optional
Mail.AddAddress "janet@imr.com.sg","Ms Janet Wee"
Mail.Subject = "Email from www.imr.com.sg website"
Mail.IsHTML = true
Mail.Body = "Name:" & Request.Form("name") & "
" & _
"Email:" & Request.Form("email") & "
" & _
"Phone:" & Request.Form("phone") & "
" & _
"Company:" & Request.Form("company") & "
" & _
"Product query:" & Request.Form("product_query") & "
" & _
replace(Request.Form("Message"),vbCrLf,"
")
strErr = "Your message was successfully sent !"
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
'response.write strerr
end if
%>
|
|
|
|