<%@ Language=VBScript %> <% DIM sSel, iRS, iRE, iRET, iRP, iRT, oConn, oCmd, oRs, oRecord, iStat, sStat iRP = 200 iRS = 1 iRE = 1 iRT = 0 iRET = 0 Response.Expires = -1000 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("FROM") sFrom = objXML.item(0).text Set objXML = xmldoc.getElementsByTagName("WHERE") sWhere = objXML.item(0).text If Err.number Then Response.Write objXML.item(0).xml Response.End End If if (objXML.length > 0) Then sOpTxt = objXML.item(0).text 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 oCmd.CommandText = "RunRCIncidentQuerySE" 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(5, i) sStat = "Unknown" If iStat = 0 Then sStat = "Active" If iStat = 1 then sStat = "Resolved" sUrl = "IncidentDetailSE.asp?ID=" & avarData(0,i) & _ "&IS=" & sStat & _ "&UD=" & Trim(avarData(2, i)) & _ "&MH=" & Trim(avarData(3, i)) & _ "&ML=" & Trim(avarData(4, i)) %> <% Next End If %>
iIncidentID sUserName dtUploadDate iMemberLow iMemberHigh sStatus
<%=avarData(0, i)%> <%=Trim(avarData(1, i))%> <%=Trim(avarData(2, i))%> <%=Trim(avarData(3, i))%> <%=Trim(avarData(4, i))%> <%=sStat%>
<% Response.End Else oCmd.CommandText = "GetRCIncidentsQryFieldSE" set oRs = oCmd.Execute Do While Not oRs.EOF sSel = sSel + "" oRs.MoveNext Loop if Len(sSel) > 0 Then _ sSel = "" set oRs = Nothing oCmd.CommandText = "GetQryOP" set oRs = oCmd.Execute Do While Not oRs.EOF sTmp = "" if oRs("iOpType") And &H1 Then sOpInt = sOpInt + sTmp ' int if oRs("iOpType") And &H2 Then sOpStr = sOpStr + sTmp ' Str if oRs("iOpType") And &H4 Then sOpDate = sOpDate + sTmp ' date if oRs("iOpType") And &H8 Then sOpTxt = sOpTxt + sTmp ' text oRs.MoveNext Loop if Len(sOpInt) Then sOpInt = "" if Len(sOpStr) Then sOpStr = "" if Len(sOpDate) Then sOpDate = "" if Len(sOpTxt) Then sOpTxt = "" End If set oRs = Nothing %> Remote control
Remote Control [ Support Engineer Query Tool]
  Field Operator Value   And/Or  
No record. 1 through 1 of <%=iRT%> records. records/page
iIncidentID sUserName dtUploadDate iMemberHigh iMemberLow sStatus
<% set oCmd = Nothing oConn.Close set oConn = Nothing %>