<%
Dim ConnStr
Dim Conn
Dim rs
Dim SQL
Dim TrackID
Dim CaseID
Dim UserID
Dim UserType
Dim EnteredBy
Dim EntryDate
Dim Comment
Dim strErrorMsg
' On Error Resume Next
strErrorMsg = ""
TrackID = Request.QueryString("TrackID")
TrackID = trim(TrackID)
' ***************************************
' Connect to Database
' ***************************************
connectdb
If Err.number <> 0 Then
strErrorMsg = strErrorMsg & "Error Unable to connect to database.
"
Err.Clear
End If
' ***************************************
' Select Case Information
' ***************************************
if strErrMsg = "" then
SQL = "SELECT TrackID, "
SQL = SQL & "ID, "
SQL = SQL & "EmpID, "
SQL = SQL & "EntryDate, "
SQL = SQL & "Private, "
SQL = SQL & "Comment "
SQL = SQL & "FROM Track "
SQL = SQL & "Where TrackID = " & TrackID & " "
' ***** Run Query *****
Set rs = Conn.Execute(SQL)
If Err.number <> 0 Then
strErrorMsg = strErrorMsg & "Error Unable to read Update Record.
"
Err.Clear
End If
if Not rs.EOF then
if not isnull(rs.fields("ID")) then
CaseID = rs.fields("ID")
end if
if not isnull(rs.fields("EmpID")) then
EmpID = rs.fields("EmpID")
end if
if not isnull(rs.fields("EntryDate")) then
EntryDate = rs.fields("EntryDate")
end if
if not isnull(rs.fields("Private")) then
Confidential = rs.fields("Private")
end if
on error resume next
Comment = rs.fields("Comment")
end if
end if
' *************************************************************************
' Begin HTML
' *************************************************************************
%>
Update
|
Update
|
|
|
<%
' *************************************************************************
' End HTML
' *************************************************************************
%>