<%@Language = VBScript%> <%Option Explicit %> <% Dim body1, from1, per1 if request.form("hidden_feedback") = "" then test1 else from1 = Trim(request.form("email")) per1 = Trim(request.form("Name")) body1 = "To : Vijay Deepak & Co." & vbcrlf & vbcrlf & "Company Name : " & Trim(request.form("Organisation")) & vbcrlf &_ "Conatct Person : " & Trim(request.form("Name")) & vbcrlf &_ "Address : " & Trim(request.form("Address")) & vbcrlf &_ "City : " & Trim(request.form("City")) & vbcrlf &_ "Pin : " & Trim(request.form("Zip")) & vbcrlf &_ "Country : " & Trim(request.form("Country")) & vbcrlf &_ "Phone : " & Trim(request.form("Phone")) & vbcrlf &_ "Fax : " & Trim(request.form("Fax")) & vbcrlf &_ "Email : " & Trim(request.form("email")) & vbcrlf &_ "Enquiry/Comments : " & Trim(request.form("Message")) & vbcrlf sendmail body1,from1, per1 end if %> <% Sub test1 %> Vijay Deepak & Co.
 
   
Home Profile Partners Services Links Query Contact Disclaimer Site Map
Last Updated 5th May 2005

*Please describe your requirements:


(* mandatory fields)
Organisation/ Company Name:
*Your Name:
*Your Email:
Phone:(with area code)
Fax:(with area code)
Street Address:
City/State:
Zip/Postal Code:
Country:

                 
| Home | | Profile | | Partners | | Services | | Links | | Query | | Contact | | Disclaimer | | Site Map |
<% end sub %> <% Sub sendmail(body1, from1, per1) Dim mymail set mymail = server.Createobject("CDO.Message") mymail.From = from1 mymail.To = "vdc@del3.vsnl.net.in" mymail.Subject = "Query" mymail.TextBody = body1 mymail.Send Set mymail = nothing response.redirect "query_conf.asp" & "?" & "hhhhh=" & per1 end sub %>