<%@ Language=VBScript %>
<% Option Explicit %>
<%
'
%>
<%
Dim BACK_TO_SUMMARY_TEXT
BACK_TO_SUMMARY_TEXT = "Click " _
& "here to go back to summary page.
"
'BACK_TO_SUMMARY_TEXT = "Click " _
' & "here to go back to summary page.
"
%>
HOURS TRACKING LOG -- Edit Record
<%
Dim iRecordId, cSqlStr, rs, nHrs
Dim dcnDB, db_path
Set dcnDB = Server.CreateObject("ADODB.Connection")
dcnDB.ConnectionString = HtlDbConn
dcnDB.Open
iRecordId = Request.QueryString("id")
If IsNumeric(iRecordId) Then
iRecordId = CLng(iRecordId)
Else
iRecordId = 0
End if
cSqlStr = "SELECT " & _
"THrsLog.Id, " & _
"THrsLog.BadgeId, " & _
"THrsLog.WeekOf, " & _
"THrsLog.Weekday, " & _
"THrsLog.Pcr, " & _
"THrsLog.SunHrs, " & _
"THrsLog.MonHrs, " & _
"THrsLog.TueHrs, " & _
"THrsLog.WedHrs, " & _
"THrsLog.ThuHrs, " & _
"THrsLog.FriHrs, " & _
"THrsLog.SatHrs, " & _
"THrsLog.PStatus " & _
"FROM THrsLog " & _
"WHERE THrsLog.id=" & iRecordId & " " & _
"ORDER BY ID"
'Response.Write cSqlStr
'Response.Flush
'Response.End
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open cSqlStr, dcnDB,3,3
%>