<%@ Language=VBScript %> <% DIM sSel, iRS, iRE, iRET, iRP, iRT, oConn, oCmd, oRs, oRecord, iStat, sStat DIM iML, iMH iRP = 200 iRS = 1 iRE = 1 iRT = 0 iRET = 0 Response.Expires = -1000 iML = Request.QueryString ("ML") iMH = Request.QueryString ("MH") On Error Resume Next Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open Application("StrConnect") if Err.number <> 0 Then Response.Write Err.description Response.End End If On Error Goto 0 Set oCmd = Server.CreateObject("ADODB.Command") oCmd.ActiveConnection = oConn oCmd.CommandType = adCmdStoredProc if (Request.ServerVariables("REQUEST_METHOD") = "POST") Then DIM xmldoc, objXML set xmldoc = CreateObject("Microsoft.XMLDOM") if xmldoc.load(Request) = false Then %>

Not a valid XML.

<% End If Set objXML = xmldoc.getElementsByTagName("RS") if (objXML.length > 0) Then iRS = CLng(objXML.item(0).text) Set objXML = xmldoc.getElementsByTagName("RP") if (objXML.length > 0) Then iRP = CLng(objXML.item(0).text) Set objXML = Nothing Set xmldoc = Nothing ' start query sWhere = "[TblRCIncidents].[iMemberHigh] = " + iMH + " And [TblRCIncidents].[iMemberLow] = " + iML oCmd.CommandText = "RunRCIncidentQueryCust" oCmd.Parameters.Append oCmd.CreateParameter("@sWhere", adVarWChar,adParamInput,2000,sWhere) oCmd.Parameters.Append oCmd.CreateParameter("@iStart",adInteger,adParamInput,,iRS) oCmd.Parameters.Append oCmd.CreateParameter("@iGet",adInteger,adParamInput,,iRP) oCmd.Parameters.Append oCmd.CreateParameter("@iTotal",adInteger,adParamOutput) oCmd.Parameters.Append oCmd.CreateParameter("@iRet",adInteger,adParamOutput) Set oRecord = oCmd.Execute if oRecord.state <> adStateClosed Then avarData = oRecord.GetRows End If Set oRecord = Nothing iRT = oCmd.Parameters("@iTotal") iRET = oCmd.Parameters("@iRet") iRE = iRS + iRET - 1 %> <% If iRET = 0 Then %> <% Else %> <% End If %>
No record. <%=iRS%> through <%=iRE%> of <%=iRT%> records.<%=iRS%> through <%=iRE%> of <%=iRT%> records.   records/page
<% ' Records of Report %> <% if iRET > 0 Then For i =0 To UBound(avarData, 2) %> <% iStat = avarData(3, i) sStat = "Unknown" If iStat = 0 Then sStat = "Active" If iStat = 1 Then sStat = "Resolved" %> <% Next End If %>
IncidentID sDescription dtUploadDate sStatus
<%=avarData(0, i)%> <%=Trim(avarData(2, i))%> <%=Trim(avarData(1, i))%><%=sStat%>
<% Response.End Else ' Do nothing. End If set oRs = Nothing %> Remote control
Remote Control [ Customer Query Tool ]
No record. 1 through 1 of <%=iRT%> records. records/page
iIncidentID sDescription dtUploadDate sStatus
<% set oCmd = Nothing oConn.Close set oConn = Nothing %>