<% Set objMessage = CreateObject("CDO.Message") if Trim(Request.Form("name")) <> "" then dim strMailBody dim strRet strMailBody = "" strMailBody = strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "
Enquiry
Name"& Trim(Request.Form("name")) & "
Company"& Trim(Request.Form("company")) & "
E-mail"& Trim(Request.Form("email")) & "
Address"& Trim(Request.Form("address")) & "
City"& Trim(Request.Form("city")) & "
Comments"& Trim(Request.Form("comments")) & "
" strRet = SendMail("safecitysecuritysystems@gmail.com", "Enquiry", strMailBody) If(strRet = "") then 'Response.Redirect("payment.asp") Else Response.Write(strRet) End if end if function SendMail(toAddr, subjectText, bodyText) dim mailer dim cdoMessage, cdoConfig 'Assume all will go well. SendMail = "" 'Configure the message. set cdoMessage = Server.CreateObject("CDO.Message") set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "safecitysecuritysystems@gmail.com" cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "information" cdoConfig.Fields.Update set cdoMessage.Configuration = cdoConfig 'Create the email. 'cdoMessage.From = ADMIN_USERNAME & " <" & ADMIN_EMAIL & ">" cdoMessage.From = "info@safecity.co.in" cdoMessage.To = toAddr cdoMessage.Subject = subjectText cdoMessage.HTMLBody = bodyText 'Send it. on error resume next cdoMessage.Send 'If an error occurred, return the error description. if Err.Number <> 0 then SendMail = Err.Description end if 'Clean up. set cdoMessage = Nothing set cdoConfig = Nothing end function %> SAFECITY - Security Systems :: Enquiry
HOME
ABOUT US
SERVICES
PRODUCTS
CLIENTS
ENQUIRY
CONTACT US

Please fill the below fields.
Name
:
 *
Company
:
 * 
E-mail
:
 *
Address
:
  *
City
:
 *
Queries / Comments
:
* Indicates Mandatory Fields