<% Dim ConnStr Dim Conn Dim rs Dim SQL Dim cmd Dim HTML Dim LastTran dim ID Dim DataType dim Done Done = false html = "" On Error Resume Next strErrorMsg = "" ' *************************************** ' Set Query values ' *************************************** cmd = Request.QueryString("cmd") cmd = trim(cmd) LastTran = Request.QueryString("LastTran") LastTran = trim(LastTran) ' LastTran = Clng(LastTran) if cmd = "inq" then connectdb else strErrorMsg = "Invalid command string." end if ' *************************************** ' Build Query ' *************************************** if strErrorMsg = "" then SQL = "SELECT " SQL = SQL & "ID, " SQL = SQL & "TableName, " SQL = SQL & "ColumnName, " SQL = SQL & "KeyID, " SQL = SQL & "UserID, " SQL = SQL & "DataType, " SQL = SQL & "Data, " SQL = SQL & "LongData, " SQL = SQL & "Tstamp " SQL = SQL & "FROM TranLog " SQL = SQL & "WHERE Status0 = 'A' " SQL = SQL & "AND ID > " & LastTran & " " SQL = SQL & "Order by ID " set rs = Conn.execute (SQL) If Err.number <> 0 Then strErrorMsg = strErrorMsg & "304. Error reading Tran Log.
" & err.description Err.Clear End If end if ' *************************************** ' Build return string ' *************************************** if strErrorMsg = "" then do until rs.eof or Done = true ID = 0 if not isnull(rs.fields("ID")) then ' ID = html & rs.fields("ID") ID = rs.fields("ID") end if LastTran = Clng(LastTran) if ID > LastTran then html = "INQ-1" html = html & "" & ID html = html & "" html = html & "" if not isnull(rs.fields("TableName")) then html = html & trim(rs.fields("TableName")) end if html = html & "" html = html & "" if not isnull(rs.fields("ColumnName")) then html = html & trim(rs.fields("ColumnName")) end if html = html & "" html = html & "" if not isnull(rs.fields("KeyID")) then html = html & rs.fields("KeyID") end if html = html & "" html = html & "" if not isnull(rs.fields("DataType")) then DataType = rs.fields("DataType") html = html & DataType end if html = html & "" html = html & "" if DataType = "L" then html = html & trim(rs.fields("LongData")) else if not isnull(rs.fields("Data")) then html = html & trim(rs.fields("Data")) end if end if html = html & "" html = html & "" if not isnull(rs.fields("Tstamp")) then html = html & rs.fields("Tstamp") end if html = html & "" html = html & "" if not isnull(rs.fields("UserID")) then html = html & rs.fields("UserID") end if html = html & "" html = html & "" done = true else rs.movenext end if loop if not done then html = "INQ100" end if rs.close set rs = nothing end if ' *************************************** ' Write return string ' *************************************** conn.close set conn = nothing if strErrorMsg > "" then if html = "" then html = "INQ-1" & strErrorMsg html = html & "" end if end if Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-store" response.write html %>