<% '/// Any People on-line? if isonline()=false then response.redirect "UserForm.asp?status=offline" name=request.cookies("xlaALSuser")("name") email=request.cookies("xlaALSuser")("email") website=request.cookies("xlaALSuser")("website") alias=request.cookies("xlaALSuser")("alias") customerid=request.cookies("xlaALSuser")("customerid") logindate=getlogin(now) ref=request("ref")&"" d=request("d") u=request("u") if d<>"" then bypass=request("bypass") button=request("button") if button<>"" or (bypass<>"" and d<>"") or u<>"" then ip=request.ServerVariables("REMOTE_ADDR") sessionid=getsessionid() name=request("name")&"" email=request("email")&"" website=request("website")&"" alias=request("alias")&"" topic=request("topic")&"" deptid=request("deptid") userid=0 if fieldsrequired<>"" and bypass="" and u="" then if name="" and email="" or instr(email,"@")=0 or instr(email,".")=0 then errormsg="Please provide a name, e-mail and a screen name" end if if alias="" then alias=defaultalias if errormsg="" then if bypass<>"" then deptid=d if name="" then name="Not Provided" end if if u<>"" then userid=u deptid=0 name=request.cookies("xlaALSuser")("name") email=request.cookies("xlaALSuser")("email") customerid=request.cookies("xlaALSuser")("customerid") if name="" then name="Not Provided" topic="" end if if customerid="" or not(isnumeric(customerid)) then customerid=0 '/// Save-Update customer set conn=server.createobject("ADODB.Connection") conn.open connection '/// Update User Action call updatevisitoraction(ip,sessionid,1,"Waiting for representative") psql="select * from xlaALScustomers where customerid="&customerid&" and email='"&email&"'" Set rs = Server.CreateObject("ADODB.Recordset") rs.open psql,conn,1,2 if rs.eof then rs.addnew rs("dateregistered")=logindate totalrequests=1 else totalrequests=rs("totalrequests")+1 end if rs("name")=name rs("email")=email rs("website")=website rs("totalrequests")=totalrequests rs("lastrequestdate")=logindate rs.Update customerid=rs("customerid") rs.close set rs=nothing '/// Save Request set rs=server.createobject("ADODB.Recordset") rs.open "xlaALSrequests",conn,1,3,2 rs.addnew rs("customerid")=customerid rs("rating")=0 rs("requestdate")=logindate rs("deptid")=deptid rs("userid")=userid rs("transcript")="" rs("topic")=topic rs("ref")=ref rs("ip")=ip rs("sessionid")=sessionid rs.update requestid=rs("requestid") rs.close set rs=nothing '/// Create New Room /// dim thisroom(7) thisroom(0)=0 '/// Available thisroom(1)="" '/// Rep Messages thisroom(2)="" '/// Customer Messages thisroom(3)="" '/// Commands thisroom(4)="" '/// Is closed ? thisroom(5)="" '/// Current User Rating thisroom(6)="--" '/// Current user actions (Who's typing) application("ALSRoom" & requestid)=thisroom '/// Assign Users /// call assignrep(requestid,userid) conn.close set conn=nothing '/// Set Cookies /// response.cookies("xlaALSuser")("name")=name response.cookies("xlaALSuser")("email")=email response.cookies("xlaALSuser")("website")=website response.cookies("xlaALSuser")("alias")=alias response.cookies("xlaALSuser")("totalrequests")=totalrequests response.cookies("xlaALSuser")("customerid")=customerid response.cookies("xlaALSuser").expires=now+365 response.cookies("xlaALSrequest")("requestid")=requestid response.cookies("xlaALSrequest")("topic")=topic response.cookies("xlaALSrequest")("deptid")=deptid response.cookies("xlaALSrequest")("lastlogin")=logindate response.redirect "UserChat.asp" end if end if if fieldsrequired<>"" then note="
* Campos requeridos" reqd="*" end if response.buffer=true response.flush %> <%=chattitle%>
<%if errormsg<>"" then%> <%end if%> <%if d<>"" and isnumeric(d) then%> <%else%> <%end if%>
Bienvenido al soporte en linea
Para ofrecerle un mejor servicio porfavor llene los siguientes campos<%=note%>
<%=errormsg%>
Nombre : <%=reqd%>
E-Mail : <%=reqd%>
Su sitio Web ( URL ) :
Seleccione el departamento:
Escriba un nombre de usuario para la sesión :
Tema de la sesión: