Santlal Industries Pvt. Ltd.

<% Function isValidweb(myweb) dim isValidE1 dim regEx1 isValidE1 = True set regEx1 = New RegExp regEx1.IgnoreCase = False regEx1.Pattern = "^[a-zA-Z]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$" isValidE1 = regEx1.Test(myweb) isValidweb = isValidE1 End Function Function isValidEmail(myemail) dim isValidE dim regEx isValidE = True set regEx = New RegExp regEx.IgnoreCase = False regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$" isValidE = regEx.Test(myEmail) isValidEmail = isValidE End Function if Request.ServerVariables("REQUEST_METHOD") = "POST" then name=Request.Form("name") company=request.form("company") email=request.form("email") phone=Request.Form("phone") address=Request.Form("address") city=Request.Form("city") state=Request.Form("state") country=Request.Form("country") query=Request.Form("query") txtip=request.servervariables("REMOTE_ADDR") myEmail=request.form("email") a=isValidEmail(myEmail) if a="True" then txtbody="" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "

" & _ ""&typ&" Form Submitted
" & _ "
" & _ " Details" & _ "
" & _ "
" & _ "User Name: "&name & _ "
" & _ "Company: " & company & vbcrlf & _ "
" & _ "Email: " & email & vbcrlf & _ "
" & _ "Phone: " & phone & vbcrlf & _ "
" & _ "Address: " & address & vbcrlf & _ "
" & _ "city: " & city & vbcrlf & _ "
" & _ "state: " & state & vbcrlf & _ "
" & _ "country: " & country & vbcrlf & _ "
" & _ "Query: " & Query & vbcrlf & _ "
" & _ "IP Address: " & txtip & vbcrlf & _ "
" & _ "Regards,
" & _ "Administrator
" & _ "

" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "127.0.0.1" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = email cdoMessage.To = "info@adysoftindia.com" cdoMessage.Bcc = "paypal@adysoft.com" cdoMessage.Subject ="Santlal Groups : Send Enquery Form" cdoMessage.htmlBody = txtbody 'ON ERROR RESUME NEXT cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.redirect("thanks_enquiry.html") else msg="Enter valid email address." end if end if %> Santlal Industries Pvt. Ltd.

Home

Enquiry

Email

Enquiry Form

( * Mandatory )

*Name :**

*Company :**

*Email id :**

*Phone :**

*Address :**		<%address%>

City :

State :

Country :

*Query :**		<%=query%>