Remote Control
[ Incident Details ]
<%
DIM oRs, oConn, oCmd, sID, sIT, sIS, dtUD, iMH, iML
sID = Request.QueryString("ID")
sIS = Request.QueryString("IS")
dtUD = Request.QueryString("UD")
iMH = Request.QueryString("MH")
iML = Request.QueryString("ML")
if Len(sID)=0 Then
Response.Write "
Wrong parameter
"
Response.End
End If
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open Application("StrConnect")
if Err.number <> 0 Then
Response.Write Err.description
Response.End
End If
%>
iIncidentID
dtUploadDate
iMemberHigh
iMemberLow
sStatus
<%=sID%>
<%=dtUD%>
<%=iML%>
<%=iMH%>
<%=sIS%>
<%
Dim iHasRec
iHasRec = 0
Set oCmd = Server.CreateObject("ADODB.Command")
oCmd.ActiveConnection = oConn
oCmd.CommandType = adCmdStoredProc
oCmd.CommandText = "GetRCIncidentDetail"
oCmd.Parameters.Append oCmd.CreateParameter("@iIncidentID",adInteger,adParamInput,,CLng(sID))
set oRs = oCmd.Execute
if oRs.state <> adStateClosed Then
On Error Resume Next
avarData = oRs.GetRows
iHasRec = UBound(avarData, 2) + 1
if Err.Number <> 0 Then
iHasRec = 0
On Error Goto 0
End If
End If
Set oRs = Nothing
Set oCmd = Nothing
oConn.Close
Set oConn = Nothing
%>