<% '/// Use contact Form if contactform<>"" then response.write "" response.end end if status=request("status") name=request.cookies("xlaALSuser")("name") email=request.cookies("xlaALSuser")("email") website=request.cookies("xlaALSuser")("website") requestid=request("requestid") sessionid=getsessionid() ip=request.ServerVariables("REMOTE_ADDR") busy=request("busy") if status="" then topic=request.cookies("xlaALSrequest")("topic") deptid=request.cookies("xlaALSrequest")("deptid") end if button=request("button") if button<>"" then name=request("name")&"" email=request("email")&"" website=request("website")&"" topic=request("topic") deptid=request("deptid") message=request("message") if name="" and email="" or instr(email,"@")=0 or instr(email,".")=0 then errormsg="Please provide a name and a valid e-mail address" if message="" then errormsg="Please type your message" if errormsg="" then response.cookies("xlaALSuser")("name")=name response.cookies("xlaALSuser")("email")=email response.cookies("xlaALSuser")("website")=website response.cookies("xlaALSuser").expires=now+365 '/// Send e-mail msg=msg & "
Fecha recibido : "&now&vbcrlf msg=msg & "
" & subject & vbcrlf if requestid<>"" then msg=msg & "Request ID # "&requestid&vbcrlf msg=msg & "

"&vbcrlf msg=msg & "
Titulo : "&topic&vbcrlf msg=msg & "
Nombre : "&name&vbcrlf msg=msg & "
E-Mail : "&email&vbcrlf msg=msg & "
Sitio Web : "&website&vbcrlf psql="select * from xlaALSdepts where deptid="&deptid set conn=server.createobject("ADODB.Connection") conn.open connection set rs=conn.execute(psql) deptemail=rs("deptemail") deptname=rs("deptname") rs.close set rs=nothing '/// Update Action if busy<>"" then call updatevisitoraction(ip,sessionid,4,"Left a message : All representatives were busy") elseif requestid="" then call updatevisitoraction(ip,sessionid,4,"Left a message : All representatives were Offline") else call updatevisitoraction(ip,sessionid,3,"Left chat session and sent a message") end if conn.close set conn=nothing msg=msg & "
Departamento : "&deptname&vbcrlf msg=msg & "
Mensaje : "&message call sendmail(deptemail,email,subject&" ("&topic&")",msg) emailsent=true end if end if if deptid="" or not(isnumeric(deptid)) then deptid=0 %> <%=chattitle%>

<%if emailsent="" then if requestid="" or busy<>"" then %> <% end if %> <%if errormsg<>"" then%> <%end if%> <%if deptid=0 then%> <%end if%> <%else%> <%end if%>
Una vez recibido su reporte será procesada su solicitud y asignado un Consultor Técnico para su seguimiento.
Por favor llene este formulario para enviar su mensaje (* Datos obligatorios)
<%=errormsg%>
Nombre : *
E-Mail : *
Titulo :
Sitio Web ( URL ):
Departamento:
Mensaje: *
  <%if deptid>0 then%> <%end if%>

 

 

Gracias!

Su Solicitud ha sido enviada.
Uno de nuestros Consultores Técnicos lo contactara de inmediato.