<% @ 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, strfax, stradd, strcom, strcar, strwhere, strspec, strlst 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")) strfax = Trim(request.form("Fax")) stradd = Trim(request.form("Address")) strcom = Trim(request.form("Comments")) strcar = Trim(request.form("Carrier")) strwhere = Trim(request.form("wheredidyou")) strspec = Trim(request.form("specificquestion")) strlst = Trim(request.form("listedmobile")) num = application(num) msgbody = ("Where Did You: " & strwhere & vbcrlf & "Specific Question: " & strspec & vbcrlf & "Listed Mobile: " & strlst & vbcrlf & "Name: " & strnam & vbcrlf & "Company: " & strlast & vbcrlf & "Email: " & stremail & vbcrlf & "Tel: " & strtel & vbcrlf & "Fax: " & strfax & vbcrlf & "Address: " & stradd & vbcrlf & "Comments: " & 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 = "Partners From:" & strnam Newmail.Body = msgbody Newmail.Send Set Newmail = Nothing response.redirect "Thanks.htm" End if %> Welcome to PocketSurfer3 : Partners
 
 
 
 
Fields marked (*) are mandatory
">
Where did you hear of us?
 
     
Please type in your specific question here: *
 
     
Please list the mobile application that are important to you, and websites you visit often: *
 
     
Contact Information    
     
Name*
 
     
Company
 
     
Telephone
 
     
FAX
 
     
E-mail*
 
     
Address
 
     
Comments
 
     
     
   
     
 
 
Copyrightę2009. PocketSurfer.co.uk.
All rights reserved