<%requestid=request("requestid") deptid=request("deptid") ip=request("ip") sessionid=request("sessionid") todo=request("todo") userid=getusrid if userid="" then response.redirect "Logout.asp" response.buffer=true response.flush if deptid<>"" and isnumeric(deptid) and todo="transfer" then set conn=server.createobject("ADODB.Connection") conn.open connection call transfer(requestid,deptid) call setbusy(requestid,userid) call updateattending(requestid) call updatevisitoraction(ip,sessionid,1,"Waiting for representative, the user has been transfered") conn.close set conn=nothing '/// Add Transfer Message roomname="ALSRoom"&requestid newmsg="
Transfering request, please wait...

" msg="Please wait while your request is transfered..." theroom=application(roomname) theroom(3)=theroom(3) &"starttimeout()" theroom(2)=theroom(2) &newmsg application(roomname)=theroom toclose=true if logchat<>"" then call addtolog(newmsg) response.write "" response.end end if if todo="timeout" then toclose=request("toclose") set conn=server.createobject("ADODB.Connection") conn.open connection call endsession(requestid) conn.close set conn=nothing if toclose<>"" then response.write "" response.end end if end if if todo="close" then set conn=server.createobject("ADODB.Connection") conn.open connection call endsession(requestid) conn.close set conn=nothing response.write "" response.end end if %>
Print Session TranscriptClose The Session