Address:
Technomat Springs
W-78, MIDC Waluj, Aurangabad,
Maharashtra, India - 431 136.
Telphone: +91 240 2554123
Email: info@technomatsprings.com
MAP
|
|
<% if request.form("email")="" then%>
<% else
if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
'receive the form values
sName = request.Form("Name")
sEmail=Request.Form("email")
sPhone=Request.Form("phone")
sComments=Request.Form("Comments")
CurrentDate = dateadd("n",30,dateadd("h",5,Now()))
Dim sEmailText
SEmailText = ""
sEmailText = sEmailText & " From : " & sName & "
"
sEmailText = sEmailText & " Email : " & sEmail & "
"
sEmailText = sEmailText & " Phone : " & sPhone & "
"
sEmailText = sEmailText & " Comments : " & sComments & "
"
sEmailText = sEmailText & " Date & Time:" & day(CurrentDate) & "/" & month(CurrentDate) & "/" & year(CurrentDate) & " " & Hour(CurrentDate) & ":" & minute(CurrentDate) & ":" & second(CurrentDate) & "
"
sEmailText = sEmailText & ""
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enquiry From www.technomatsprings.com"
myMail.From="info@technomatsprings.com"
'myMail.To="pravin@ameyacomputers.com"
myMail.To="info@technomatsprings.com"
myMail.Bcc="pravin@confluence.co.in"
myMail.TextBody=sEmailText
myMail.HTMLBody=sEmailText
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="localhost"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
'Auto Reply
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Auto Reply : Enquiry From www.technomatsprings.com"
myMail.From="info@technomatsprings.com"
myMail.To=sEmail
myMail.Bcc="pravin@confluence.co.in"
myMail.TextBody=" We got your feedback & we will get back to you. " & "
" & "Your information is as follows : " & "
" & sEmailText
myMail.HTMLBody=" We got your feedback & we will get back to you. " & "
" & "Your information is as follows : " & "
" & sEmailText
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="localhost"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
Thank you for your valuable enquiry !!!
We will get back to you. |
<% else
Response.Write("You have entered the wrong security code.")
Response.Write("
Go Back")
end if
end if %>
|
