<% If Not Server.HTMLEncode(Request.form("Message")) = "True" Then %>

Contact Form

Pls Feel free to contact us, we will highly appreciate your Query.

All fields are mandatory.

Your name:

E-mail address:

Phone:

Your message:

   

<% Else dim strTB1, strTB2, strTB3, strTB4, strMB1, strCommand strTB1 = Server.HTMLEncode(Request.form("nameown")) strTB2 = Server.HTMLEncode(Request.form("email")) strTB3 = Server.HTMLEncode(Request.form("phone")) strTB4 = Server.HTMLEncode(Request.form("txtqry")) '**********Validating Blank field ************************************ If "" = strTB1 or "" = strTB2 or "" = strTB3 or "" = strTB4 then If "" = strTB1 then Response.Write("Your name field is blank. Please go back and fill this field.") ElseIf "" = strTB2 then Response.Write("E-mail address field is blank. Please go back and fill this field.") ElseIf "" = strTB3 then Response.Write("Phone field is blank. Please go back and fill this field.") ElseIf "" = strTB4 then Response.Write("Your message field is blank. Please go back and fill this field.") End If Else 'strProvider = "provider=sqloledb;data source=;uid=vwhcom;pwd=rajverma;database=vwhcom;" strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("prosoft.mdb") Set objConn = server.createobject("ADODB.Connection") objConn.Open strProvider abc=date() strCommand = "INSERT INTO freeplan (Noo,Email,Phone,QF,Categ) VALUES ('" strCommand = strCommand & strTB1 & "','" & strTB2 & "','" & strTB3 & "','" & strTB4 & "','" & abc & "')" 'strCommand = strCommand & "')" 'Response.write strcommand objConn.Execute strCommand Response.Write("Thank you! Your data has been added.")%>
<% Response.Write("We Will be in touch with you soon.") End If End If %>

Primary Contacts

141, New Arya Nagar,
Ghaziabad, India.

Telephone:         + 91 120 410 1665
Mob:                      + 91 801 001 9798
E-mail: info@prosoftworld.net