%
'To send mail
if request.QueryString("Mode")="Send" then
Report=""
Report = ""
Report = Report & "
| Enquiry Details |
"
Report = Report & "| Requirements | "&request.Form("txtRequirements")&" |
"
if(request.Form("txtCompany")<>"") then
Report = Report & "| Organization/Company Name | "&request.Form("txtCompany")&" |
"
end if
Report = Report & "| Name | "&request.Form("txtName")&" |
"
Report = Report & "| E-Mail | "&request.Form("txtEmail")&" |
"
Report = Report & "| Phone | "&request.Form("txtPhone")&" |
"
if(request.Form("txtFax")<>"") then
Report = Report & "| Fax | "&request.Form("txtFax")&" |
"
end if
if(request.Form("txtAddress")<>"") then
Report = Report & "| Street Address | "&request.Form("txtAddress")&" |
"
end if
if(request.Form("txtCity")<>"") then
Report = Report & "| City/State | "&request.Form("txtCity")&" |
"
end if
if(request.Form("txtZip")<>"") then
Report = Report & "| Zip/Postal Code | "&request.Form("txtZip")&" |
"
end if
Report = Report & "| Country | "&request.Form("cmbCountry")&" |
"
Report = Report & "
"
mailmsg=Report
mailComp="CDOSYS"' CDOSYS'
'strSubject="Enquiry Details From : "&request.Form("txtName")
strSubject="Enquiry Details From GreyCells Website"
fromAddr=request.Form("txtEmail")
recipients="info@grey-cells.in"
SendMail fromAddr,recipients,strSubject,mailmsg,mailComp
'SendMail strfromAddr,strRecipients,strSubject,strReport,strmailComp,strattachmentpath
session("Msg")="Thanks for your enquiry. we will contact you shortly."
response.Redirect("thanks.html")
end if
%>