<% Dim ConnStr Dim Conn Dim rs Dim SQL Dim LogSQL Dim ID Dim TableName Dim ColumnName Dim KeyID Dim TranDate Dim DataType Dim Data Dim HTML Dim TrackID Dim NewTstamp Dim PromaryKey dim strErrorMsg strErrorMsg = "" On Error Resume Next ' *************************************** ' Set query values ' *************************************** ID = Request.QueryString("ID") ID = trim(ID) If Err.number <> 0 Then strErrorMsg = strErrorMsg & "The field ID is not valid.
" & vbCrLf Err.Clear End If KeyID = Request.QueryString("KeyID") KeyID = trim(KeyID) If Err.number <> 0 Then strErrorMsg = strErrorMsg & "The field KEYID is not valid.
" & vbCrLf Err.Clear End If TableName = Request.QueryString("TableName") TableName = trim(tableName) If Err.number <> 0 Then strErrorMsg = strErrorMsg & "The field TABLENAME is not valid.
" & vbCrLf Err.Clear End If ColumnName = Request.QueryString("ColumnName") ColumnName = trim(ColumnName) If Err.number <> 0 Then strErrorMsg = strErrorMsg & "The field COLUMNNAME is not valid.
" & vbCrLf Err.Clear End If DataType = Request.QueryString("DataType") DataType = trim(DataType) If Err.number <> 0 Then strErrorMsg = strErrorMsg & "The field DATA TYPE is not valid.
" & vbCrLf Err.Clear End If Data = Request.QueryString("Data") Data = trim(Data) If Err.number <> 0 Then strErrorMsg = strErrorMsg & "The field DATA is not valid.
" & vbCrLf Err.Clear End If ' *************************************** ' Connect to Database ' *************************************** IF strErrorMsg = "" then connectdb If Err.number <> 0 Then strErrorMsg = strErrorMsg & "Unable to connect to database.
" Err.Clear End If end if ' *************************************** ' Determine Primary Key ' *************************************** IF strErrorMsg = "" then select case(TableName) case "Case" PrimaryKey = "CaseID" case "tCase" PrimaryKey = "CaseID" case "Collector" PrimaryKey = "CollectorID" case "Condition" PrimaryKey = "ID" case "Rdex" PrimaryKey = "ID" case "TranLog" PrimaryKey = "ID" case "Team" PrimaryKey = "ID" case "Track" PrimaryKey = "TrackID" case "Employee" PrimaryKey = "EmpID" case "Client" PrimaryKey = "ClientID" case "Company" PrimaryKey = "CompanyID" case else strErrorMsg = "Invalid Table Name" & TableName end select end if ' *************************************** ' Translate tracking Keys ' *************************************** IF TableName = "Track" then 'first column of a new tracking note if ColumnName = "TrackID" then TrackID = NewKey("Track") Session("TrackID") = TrackID else TrackID = Session("TrackID") end if if TrackID > 0 then KeyID = TrackID end if 'last column of a new tracking note if ColumnName = "TrackID" then Session("TrackID") = 0 end if end if ' *************************************** ' Read Existing Record ' *************************************** IF strErrorMsg = "" then sql = "SELECT " SQL = SQL & Primarykey & " " ' SQL = SQL & "Tstamp " SQL = SQL & "FROM " & Tablename & " " SQL = SQL & "WHERE " & PrimaryKey & " = " & KeyID & " " set rs = conn.execute (SQL) If Err.number <> 0 Then strErrorMsg = strErrorMsg & "Error reading record for update.
" & SQL & "
" Err.Clear End If if rs.eof then SQL = "INSERT INTO " & TableName & " (" SQL = SQL & primarykey SQL = SQL & ") VALUES (" SQL = SQL & KeyID SQL = SQL & " )" Conn.Execute SQL If Err.number <> 0 Then strErrorMsg = strErrorMsg & "Error inserting new record.
" Err.Clear End If end if rs.close set rs = nothing end if ' *************************************** ' Update Record ' *************************************** IF strErrorMsg = "" then SQL = "UPDATE " & TableName & " SET " if DataType = "S" then SQL = SQL & ColumnName & " = '" & Data & "' " elseif DataType = "N" then SQL = SQL & ColumnName & " = " & Data & " " elseif DataType = "D" then SQL = SQL & ColumnName & " = #" & Data & "# " else data = replace(data, "'", "''") SQL = SQL & ColumnName & " = '" & Data & "' " end if SQL = SQL & "WHERE " & PrimaryKey & " = " & KeyID & " " Conn.execute SQL If Err.number <> 0 Then strErrorMsg = strErrorMsg & "Error updating database. " & SQL Err.Clear End If end if ' *************************************** ' send response ' *************************************** Session("UserID") = 0 NewTstamp = Now() WriteLog KeyID,TableName, ColumnName,DataType, Data,newTstamp HTML = "TRAN" IF strErrorMsg = "" then HTML = HTML & "0" ' WriteLog KeyID,TableName, ColumnName,DataType, Data,newTstamp else HTML = HTML & "-1" end if HTML = HTML & "" & strErrorMsg & "" HTML = HTML & "" conn.close set conn = nothing response.write HTML %>