<%@ LANGUAGE="VBSCRIPT" %>
Xhost Backup Form
<%
p_backup_date = Request.queryString("RQ3")
search_month=Month(p_backup_date)
search_day=day(p_backup_date)
search_year=year(p_backup_date)
p_search_date=search_month&"/"&search_day&"/"&search_year
set xhostDB=server.createObject("ADODB.Connection")
xhostDB.open "xhost"
sqlText = "select * from TapeA where backupDate=#"&p_search_date&"#"
set xhostSet = xhostDB.Execute(sqlText)
if xhostSet.EOF then
Response.write "End of File"
else
p_id_no=xhostSet("ID")
p_tape_result=xhostSet("tape_result")
p_tape_used=xhostSet("tape_used")
p_next_tape_inserted=xhostset("next_tape_inserted")
p_log_file_no=xhostSet("log_file_no")
p_operator=xhostSet("operator")
p_comments=xhostSet("tape_comments")
p_no_of_errors=xhostSet("no_of_errors")
p_no_of_warnings=xhostSet("no_of_warnings")
end if
NextDate = DateAdd("d", 1, p_backup_date)
search_month=Month(nextdate)
search_day=day(nextdate)
search_year=year(nextdate)
p_next_date=search_month&"/"&search_day&"/"&search_year
sqlText = "select * from TapeA where backupDate=#"&p_Next_Date&"#"
set xhostSet = xhostDB.Execute(sqlText)
if xhostSet.EOF then
Response.write "End of File"
else
p_next_tape_used=xhostSet("tape_used")
end if
xhostSet.Close
set xhostSet=Nothing
xhostDB.Close
set xhostDB = Nothing
s=""
w=""
e=""
f=""
Select Case p_tape_result
Case 1
s="checked"
Case 2
we="checked"
Case 3
we="checked"
Case 4
f="checked"
End Select
logYes=""
logNo=""
tapeYes=""
tapeNo=""
if p_next_tape_inserted then
tapeYes="checked"
else
tapeNo="checked"
end if
p_log_file_no = Mid(p_log_file_no,6,3)
%>
Update Daily Backup Database for <%=p_backup_date%>