<% @ Language=VBScript %> <% Option Explicit response.buffer=true%> <% dim num num = Request.ServerVariables("SCRIPT_NAME") application.lock if isEmpty(application(num)) Then application(num)=0 END IF application(num)=application(num)+1 application.unlock %> <% dim newmail, strfeed, ipadd, brow, now, msgbody, date, strnam, strlast, stremail, strtel, strcount, stradd, strcom brow = Request.servervariables("HTTP_USER_AGENT") ipadd= Request.ServerVariables("REMOTE_ADDR") date = time strnam = Trim(Request.Form("name")) strlast = Trim(Request.Form("company")) stremail = Trim(request.form("Email")) strtel = Trim(request.form("telephone")) strcount = Trim(request.form("fax")) stradd = Trim(request.form("address")) strcom = Trim(request.form("comments")) num = application(num) msgbody = ("Name: " & strnam & vbcrlf & "Company: " & strlast & vbcrlf & "Email: " & stremail & vbcrlf & "Tel: " & strtel & vbcrlf & "Fax: " & strcount & vbcrlf & "Comments: " & stradd & vbcrlf & " " & strcom & vbcrlf & "PC info:" & "IP:" & ipadd & "Browser: " & brow & "Time:" & date & "Hits:" & num &"times!") if (strnam <> "" and stremail <> "")then Set Newmail = Server.CreateObject ("cdonts.newmail") Newmail.From = stremail Newmail.To = "suneet@datawind.com" Newmail.Subject = "Feedback:" & strnam Newmail.Body = msgbody Newmail.Send Set Newmail = Nothing response.redirect "Thanks.htm" End if %> Welcome to PocketSurfer3 : Feedback    
 
 
   
   
   
 
 
DataWind values your contributions and your opinions. Your feedback will help us improve the information and resources on our website. You can also contact us with your questions and comments at webmaster@datawind.com
 
Please complete all portions of this form in order for it to be correctly filed.
Fields marked (*) are mandatory
Name*  
     
Company  
     
Telephone  
     
FAX  
     
E-mail*  
     
Comments  
     
   
 
Copyrightę2009. PocketSurfer.co.uk.
All rights reserved