<%format=request("format") if format<>"" then Response.Clear Response.Buffer = TRUE Response.Expires = 0 Response.ContentType="application/octetstream" Response.AddHeader "Pragma", "no-cache" Response.AddHeader "Content-Disposition", "attachment; filename=Requests.xls" end if '/// Get Departments : set conn=server.createobject("ADODB.Connection") conn.open connection psql="select * from xlaALSdepts order by deptname asc;" set d=Server.CreateObject("Scripting.Dictionary") d.add 0," None (Proactive chat)" set rs=conn.execute(psql) do until rs.eof thisdeptname=rs("deptname") thisdeptid=rs("deptid") d.add thisdeptid,thisdeptname rs.movenext loop rs.close set rs=nothing lvl=validate(1) searchsql=request("searchsql") if format="" then%> Absolute Live Support : <%=license%> <%end if%> <% set rs=conn.execute(searchsql) do until rs.eof cc=cc+1 requestid=rs("requestid") topic=rs("topic")&"" if topic="" then topic="Undefined" ref=rs("ref") rating=rs("rating") stars="" if rating="" then rating="Not Rated" requestdate=rs("requestdate") deptid=rs("deptid") deptname=d.item(deptid) name=rs("name") email=rs("email") %> <% rs.movenext loop rs.close set rs=nothing conn.close set conn=nothing %>
# Request Topic
Customer E-Mail Dept. Date Rating
ID Referer
<%=cc%>. <%=topic%> <%=name%> ><%=email%> <%=deptname%> <%=requestdate%> <%=rating%> <%=requestid%> <%=ref%> 
<%if format="" then%> <%end if%>