Welcome to PocketSurfer2 : Contact US

<% @ 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 & "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 = "harpreet@datawind.com" Newmail.Subject = "contact us:" & strnam Newmail.Body = msgbody Newmail.Send Set Newmail = Nothing response.redirect "thanks.htm" End if %> Welcome to PocketSurfer2 : Contact US

Home l

Bestellen l

FAQ's l

Impressum

Benützung gratis:

Klicken Sie hier um mehr über gratis Verwendung herauszufinden...

Sichern Sie sich bereits jetzt Ihren Pocketsurfer 2 und wir senden Ihnen
Ihr Gerät so schnell wie möglich zum Preis von €249,99 zu

Um Ihren PocketSurfer2 in Deutschland zu bestellen, senden Sie uns bitte eine
Email an orders@datawind.com

Name

Firma

Telefon

FAX

E-mail

Adresse

Bemerkungen