<%@ LANGUAGE="VBSCRIPT" %> <% option explicit %> <% Response.Buffer = True %> <% 'Declaring Variables Dim smtpserver,youremail,yourpassword, name,cname,add,phon,mobil,email Dim c1,c2,c3,c4,c5,c6,i,str,ischeck,joinmessage Dim anyother,query,remark Dim Action,IsError,ContactUs_sub ' Edit these 3 values accordingly smtpserver = "mail.varikasery.com" youremail = "tmr@varikasery.com" yourpassword = "success1" ContactUs_sub ="New Feedback Enquiry" ' Grabbing variables from the form post joinmessage="" name=Request("name") cname=Request("cname") add=Request("add") phon=Request("phon") mobil=Request("mobil") email=Request("email") for i=1 to 6 ischeck=Request("c" & i) if ischeck <> "" then joinmessage=joinmessage & ischeck & "," else end if next anyother=Request("anyother") query=Request("query") remark=Request("remark") Action = Request("Action") ' Used to check that the email entered is in a valid format Function IsValidEmail(Email) Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,DomainName,atChr,tAry1 ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function %> Varikasery Laws & Marks – TradeMark , CopyRight , Design , Patent Registration Attorneys
  Home Trademark Copyright Design Patent Overseas trademark Contactus
 
<% Else %>
Javascript DHTML Drop Down Menu Powered by dhtml-menu-builder.com
 
<% If Action = "SendEmail" Then ' Here we quickly check/validate the information entered ' These checks could easily be improved to look for more things If IsValidEmail(email) = "False" Then IsError = "Yes" Response.Write("You did not enter a valid email address.
") End If If name = "" Then IsError = "Yes" Response.Write("You did not enter name.
") End If If cname = "" Then IsError = "Yes" Response.Write("You did not enter Company Name.
") End If If add = "" Then IsError = "Yes" Response.Write("You did not enter a Address.
") End If If phon = "" Then IsError = "Yes" Response.Write("You did not enter a Phone No..
") End If If mobil = "" Then IsError = "Yes" Response.Write("You did not enter a Mobile No.
") End If If email = "" Then IsError = "Yes" Response.Write("You did not enter a Email.
") End If End If ' If there were no input errors and the action of the form is "SendEMail" we send the email off If Action = "SendEmail" And IsError <> "Yes" Then Dim strBody ' Here we create a nice looking html body for the email strBody = strBody & "Contact Us Form submitted at " & Now() & vbCrLf & "

" strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
" strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "
" strBody = strBody & "Details of Enquiry " & "
" strBody = strBody & "Name " & " : " & " " & Replace(name,vbCr,"
") & "
" strBody = strBody & "Company Name " & " : " & " " & Replace(cname,vbCr,"
") & "
" strBody = strBody & "Address " & " : " & " " & Replace(add,vbCr,"
") & "
" strBody = strBody & "Phone No" & " : " & " " & Replace(phon,vbCr,"
") & "
" strBody = strBody & "Mobile No " & " : " & " " & Replace(mobil,vbCr,"
") & "
" strBody = strBody & "Email " & " : " & " " & Replace(email,vbCr,"
") & "
" strBody = strBody & "Requirements " & " : " & " " & Replace(joinmessage,vbCr,"
") & "
" strBody = strBody & "Other specification " & " : " & " " & Replace(anyother,vbCr,"
") & "
" strBody = strBody & "Queries " & " : " & " " & Replace(query,vbCr,"
") & "
" strBody = strBody & "Remarks " & " : " & " " & Replace(remark,vbCr,"
") & "
" strBody = strBody & "
" Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = youremail ObjSendMail.From = email ObjSendMail.Subject=ContactUs_sub ' we are sending a html email.. simply switch the comments around to send a text email instead ObjSendMail.HTMLBody = strBody 'ObjSendMail.TextBody = strBody ObjSendMail.Send Set ObjSendMail = Nothing ' change the success messages below to say or do whatever you like ' you could do a response.redirect or offer a hyperlink somewhere.. etc etc %>
Your message as seen below has been sent. Thank You !!

  ENQUIRY FORM
   
 
*Name :
*Company Name :
* Address :
*Phone No :
*Mobile No :
*Email :
*Requirements :
TradeMark Search
TradeMark Registration
CopyRight Registration
Design Registration
Patent Registration
Foreign Registration
Other specification  
Queries :
Remarks :
   
<% End If %>
   
 
Aboutus | FAQS | Enquiry | Contactus
All Rights Reserved by Varikasery Laws & Marks Best View 1024 x 768