% @ 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,uksupport@datawind.com,support@datawind.com"
Newmail.Subject = "Support:" & strnam
Newmail.Body = msgbody
Newmail.Send
Set Newmail = Nothing
response.redirect "Thanks.htm"
End if
%>
Welcome to PocketSurfer2 : Support
|
| |
|
|
| |
|
Nuestro Servicio de Atención al Cliente ofrece:
·
apoyo
técnico y solución de dudas a clientes particulares
·
apoyo
técnico y comercial a clientes empresa y
distribuidores
con
un objetivo claro: garantizar la satisfacción del
cliente en cada interacción con él. |
|
|
|
|
|
|
Para ello, estamos a su disposición
en el telefono del Servicio de Atención al Cliente
en el 902 050 552 |
|
|
. |
|
|
|
|
|
|
|
|
|
|
|
. |
| |
|
|
|
| |
| |
| |
|
|
| |
|
|
|
|
| |
Copyright@2008. PocketSurferspanish.com. All rights reserved
|
|
|
|