%@ Language=VBScript %>
<%
function TestCaptcha(byval valSession, byval valCaptcha)
dim tmpSession
valSession = Trim(valSession)
valCaptcha = Trim(valCaptcha)
if (valSession = vbNullString) or (valCaptcha = vbNullString) then
TestCaptcha = false
else
tmpSession = valSession
valSession = Trim(Session(valSession))
Session(tmpSession) = vbNullString
if valSession = vbNullString then
TestCaptcha = false
else
valCaptcha = Replace(valCaptcha,"i","I")
if StrComp(valSession,valCaptcha,1) = 0 then
TestCaptcha = true
else
TestCaptcha = false
end if
end if
end if
end function
%>
Welcome to Omicron Group - Power Infrastructure | Real Estate | Construction
973 073 8888
<% if request.form("email")="" then%>
<% else
if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
'receive the form values
sProject = request.Form("Project")
sName = request.Form("Name")
sAddress=Request.Form("address")
sCity=Request.Form("place")
sPhone=Request.Form("ph")
sMobile=Request.Form("mob")
sEmail=Request.Form("email")
sOccupation = request.Form("occupation")
sSourceofInfo = request.Form("info_source")
sBudget=Request.Form("budget")
sPayMode=Request.Form("payment")
sPrefCom =Request.Form("mode")
sPrefTime=Request.Form("pre_comm")
sComments=Request.Form("Comments")
CurrentDate = dateadd("n",30,dateadd("h",5,Now()))
Dim sEmailText
SEmailText = ""
sEmailText = sEmailText & " Project : " & sProject & " "
sEmailText = sEmailText & " From : " & sName & " "
sEmailText = sEmailText & " Address : " & sAddress & " "
sEmailText = sEmailText & " Place : " & sCity & " "
sEmailText = sEmailText & " Phone : " & sPhone & " "
sEmailText = sEmailText & " Cell : " & sMobile & " "
sEmailText = sEmailText & " Email : " & sEmail & " "
sEmailText = sEmailText & " Occupation : " & sOccupation & " "
sEmailText = sEmailText & " Source of Information : " & sSourceofInfo & " "
sEmailText = sEmailText & " Budget : " & sBudget & " "
sEmailText = sEmailText & " Mode of Payment : " & sPayMode & " "
sEmailText = sEmailText & " Preferred Mode of Communication : " & sPrefCom & " "
sEmailText = sEmailText & " Preferred Time of Communication : " & sPrefTime & " "
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.omicrongroup.co.in"
myMail.From="info@omicrongroup.co.in"
'myMail.To="pravin@ameyacomputers.com"
myMail.To="info@omicrongroup.co.in"
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.omicrongroup.co.in"
myMail.From="info@omicrongroup.co.in"
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 %>