<%@ 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
Mail Media Sitemap  
973 073 8888  
 
 
Enquiry
Aspire Brochure
Click here to Download
 
Greenfields County Brochure
Click here to Download
<% if request.form("email")="" then%>
Project* :
Name* :
Address* :
Place :
Phone :
Mobile* :
Email ID* :
Occupation* :
Source of Information* :
Budget* :
Mode of Payment* :
Preferred Mode of Communication* :
Preferred Time of Communication* :
Comment* :
Please enter the Security Code below* :
   
Change Image
     
   
     

 
<% 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 %>
 
 
 
Powered By : Confluence
Home About Us Our Project Career Contact Us Sitemap