<% sYouEmail="gbahri@vsnl.com" EmailSubject="feed back and query form" ' Heading font color FontColor="#000080" ' Heading Background Color HeadColor="ffffff" ' Form Font Color FormFontColor="#000000" ' Form Background Color FormBackColor="#ffffff" 'Error Message Color ErrorColor="red" Function ValidateField(sFieldvalue, sFieldtype) ValidField = true Select Case LCase(sFieldtype) Case "name" If Len(sFieldvalue) = 0 Then ValidField = False Case "email" If Len(sFieldvalue) < 5 Then ValidField = False Else If InStr(1, sFieldvalue, "@", 1) < 2 Then ValidField = False End If End If Case "else" ValidField = False End Select ValidateField = ValidField End Function Sub ShowForm %>
" method="post">
Name* ; color="#000080">">
<% If dictFields(LCase("name")) Then Response.Write "You need to enter your name" Else Response.Write " " End If %>
Company name ; color="#000080">
Address ; color="#000080">
State ; face="Tahoma" color="#000080">
Country ; face="Tahoma" color="#000080">
Phone Number ; face="Tahoma" color="#000080">
Fax Number ; face="Tahoma" color="#000080">
E-mail* ; face="Tahoma" color="#000080">

Please let us know your area of interest

0 then Response.Write "checked" End If %>> Tick here if you wish to be included on our mailing list.

 

<% End Sub Sub Send sSender = Request.Form("name") sEmail = Request.Form("email") sCompany = Request.Form("company") sAddress = Request.Form("address") sState = Request.Form("state") sCountry = Request.Form("country") sPhone = Request.Form("phone") sFax = Request.Form("fax") Message = Request.Form("comment") If Request.Form("agree") = "true" then Mailout = "They wish to be included on the mailing list" Else Mailout ="They DO NOT wish to be included on the mailing list" End If sMessage = "This is a message from " & sSender & vbcrlf _ & vbcrlf _ & vbcrlf _ & Message & vbcrlf _ & vbcrlf _ & "Their email is: " & sEmail & vbcrlf _ & vbcrlf _ & "Their company name is: " & sCompany & vbcrlf _ & vbcrlf _ & "Their Address is: " & sAddress & vbcrlf _ & vbcrlf _ & "Their state is: " & sState & vbcrlf _ & vbcrlf _ & "Their country is: " & sCountry & vbcrlf _ & vbcrlf _ & "Their phone is: " & sPhone & vbcrlf _ & vbcrlf _ & "Their Fax is: " & sFax & vbcrlf _ & vbcrlf _ & Mailout & vbcrlf _ & vbcrlf Set objNewMail = CreateObject("CDONTS.NewMail") objNewMail.BodyFormat = 0 objNewMail.MailFormat = 0 objNewMail.From = "client" objNewMail.To = sYouEmail objNewMail.Subject = EmailSubject objNewMail.Body = sMessage objNewMail.Send Set objNewMail = Nothing End Sub Set dictFields = Server.CreateObject("Scripting.Dictionary") For Each Field in Request.Form If ValidateField(Request.Form(Field), Field) = False Then dictFields.Add LCase(Field), true End If Next If Request.Form.Count <> 0 And dictFields.Count = 0 Then %> Your message has been mailed!

Thanks for visiting our site. We shall shortly get back to you.

BAHRI PAPERS <% Call Send Else ShowForm End If %>

This website is designed & developed by Pathfinder Tel:-9896051160, 91-130-2251160[w]