<%@ LANGUAGE="VBSCRIPT" %>
Saving Xhost Backup Form
<%
dim p_id_no, p_tape_used, p_tape_result, p_log_file_no
dim p_log_printed, p_next_tape_inserted, p_operator, p_tape_comments
dim p_no_of_errors, p_no_of_warnings, xhostDB, xhostSet
p_id_no=Request.form("id_no")
p_tape_used=Request.form("tape_used")
p_tape_result=Request.form("radioBox")
p_log_file_no=Request.form("log_file_no")
p_log_printed=Request.form("log_printed")
p_next_tape_inserted=Request.form("next_tape_inserted")
p_operator=ucase(Request.form("operator"))
p_tape_comments=Request.form("tape_comments")
p_no_of_errors=Request.form("no_of_errors")
p_no_of_warnings=Request.form("no_of_warnings")
log_file="J000"&p_log_file_no&".log"
if p_tape_result="2" then
if p_no_of_errors>0 then
p_tape_result="3"
end if
end if
set xhostDB=server.createObject("ADODB.Connection")
xhostDB.open "xhost"
set xhostSet=Server.CreateObject("ADODB.RecordSet")
xhostSet.Open "select * from TapeA order by ID", xhostDB, adOpenDynamic, adLockPessimistic, adCmdText
xhostSet.MoveFirst
xhostSet.Find "ID = "&p_id_no
pdate=Now
if xhostSet.EOF then
Response.write "End of File"
else
xhostSet("tape_result")=p_tape_result
xhostSet("tape_used")=p_tape_used
xhostset("next_tape_inserted")=p_next_tape_inserted
xhostSet("log_file_no")=log_file
xhostSet("operator")=p_operator
xhostSet("tape_comments")=p_tape_comments
xhostSet("timeStamp")=pdate
xhostSet("no_of_errors")=p_no_of_errors
xhostSet("no_of_warnings")=p_no_of_warnings
end if
xhostSet.Update
xhostSet.Close
set xhostSet=Nothing
xhostDB.Close
set xhostDB = Nothing
%>