<%@ Language=VBScript %>
<%Response.Buffer=true%>
<% Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"%>
<%
if Request.Form.Count > 0 then
Send_mail()
End if
%>
<%
Function Send_mail()
dim Mailer,message, strBody
Set Mailer=server.CreateObject("CDONTS.Newmail")
Mailer.From = Request.Form("txtFrom")
Mailer.To = "abacus@abacusinfotech.com"
Mailer.Cc = "abacuscyber@hotmail.com"
Mailer.Subject = Request.Form("txtSubject")
strBody=""
strBody = "Name: "& Request.Form("txtName") & vbCrLf
strBody= strBody & "Address: " & Request.Form("txtAddress") & vbCrLf
strBody= strBody & "Phone: " & Request.Form("txtPhone") & vbCrLf
strBody= strBody & "Email: " & Request.Form("txtFrom") & vbCrLf & vbCrLf
strBody= strBody & "Details: " & Request.Form("txtDetails") & vbCrLf
Mailer.Body = strBody
on error resume next
Mailer.Send
IF err.number <> 0 then
session("Message")="Could not send your mail. Un expected error occurred !"
err.Clear
exit function
End if
session("Message")="Your Feedback has been sent! Thanks for your mail."
set Mailer=nothing
Response.Redirect("feedback.asp")
End Function
%>
: : - H e l i c o n R e s o r t s : :
