<% @ 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 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")) num = application(num) msgbody = ("Name: " & strnam & vbcrlf & "Last Name: " & strlast & vbcrlf & "Email: " & stremail & vbcrlf & "Postal Code: " & strtel & vbcrlf & " " & strfax & vbcrlf & " " & 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 = "Sign Up Form:" & strnam Newmail.Body = msgbody Newmail.Send Set Newmail = Nothing response.redirect "thanks.htm" End if %> Welcome to PocketSurfer3 : Sign_up
 
 
 
 
 
Fields marked (*) are mandatory
">
 
Email Address*
     
 
First Name
     
 
Last Name
     
 
Postal Code
     
     
PocketSurfer3 Newsletter - Subscribe me to PocketSurfer3 email newsletter to keep me up-to-date on new product and entertainment releases; learn how to make the most of the latest technology; and inform me of PocketSurfer3 upcoming promotions, exclusive offers, exciting contests, and special events.
 
     
 
*Required Information
 
 
We value your privacy. We do not sell or share your personal information with third parties. Should you no longer wish to receive emails from us, you may unsubscribe at any time.
 
     
   
     
 
Copyrightę2009. PocketSurfer.co.uk.
All rights reserved