<% Dim ConnStr Dim Conn Dim rs Dim SQL Dim cmd Dim HTML Dim LastTran dim ID Dim DataType dim Done Done = false ' *************************************** ' Set Query values ' *************************************** cmd = Request.QueryString("cmd") cmd = trim(cmd) LastTran = Request.QueryString("LastTran") LastTran = trim(LastTran) On Error Resume Next strErrorMsg = "" if cmd = "clr" then connectdb else strErrorMsg = "Invalid command string." end if ' *************************************** ' Build Query ' *************************************** if strErrorMsg = "" then SQL = "DELETE from TranLog " SQL = SQL & "WHERE Status0 <> 'A' " Conn.execute SQL If Err.number <> 0 Then strErrorMsg = strErrorMsg & "304. Error clearing Tran Log.
" & err.description Err.Clear End If end if ' *************************************** ' Commit the transaction ' *************************************** if strErrorMsg = "" then SQL = "COMMIT " Conn.execute SQL If Err.number <> 0 Then strErrorMsg = strErrorMsg & "304. Error commiting trans.
" & err.description Err.Clear End If conn.close set conn = nothing end if ' *************************************** ' Build return string ' *************************************** if strErrorMsg = "" then html = "CLR0" else html = "CLR1" & strErrorMsg html = html & "" end if ' *************************************** ' Write return string ' *************************************** response.write html %>