<% dim cnConnection dim rsComments dim cmComments Dim strFileName dim strOptions dim strDescription Dim strPreviousPage Dim strOSVersion Dim strTrackID Dim strComments dim strSystems Dim strNotes Dim strOS dim x dim iIncidentID Dim iPos Dim iLen Dim bolUpdate strComments = Request.Cookies("txtComments") strNotes = Request.Cookies("txtNotes") Call CVerifyEntry Call CCreateObjects Call CCreateConnection bolUpdate = false If oPassMgrObj.IsAuthenticated(TimeWindow, ForceLogin) = false then Response.Redirect("http://" & Request.ServerVariables("SERVER_NAME") & "/welcome.asp") Response.End end if if Request.QueryString("ud") = "1" then Call CUpdateData Call CWriteUpdateComplete bolUpdate = true end if if bolUpdate = false then Set rsComments = cnConnection.execute("Exec GetIncidentInfo " & iIncidentID) if rsComments.State = adStateClosed then Response.Write "

" & L_COMMENTS_NO_RECORDS_MESSAGE & "

" Response.Write "
" Call CDestroyObjects %> <% Response.End elseif rsComments.RecordCount < 1 then Response.Write "

" & L_COMMENTS_NO_RECORDS_MESSAGE & "

" Response.Write "
" Call CDestroyObjects %> <% Response.End else Set rsComments.ActiveConnection = nothing if cnConnection.State = adStateOpen then cnConnection.Close if rsComments("TrackID") = "" then Response.Cookies("TrackID") = "~|~|" else Response.Cookies("TrackID") = rsComments("TrackID") end if Call CFormOption Call CSetPreviousPage strFileName = unescape(Request.Cookies("status")("FileName")) strDescription = rsComments("Description") 'if strDescription = "" then 'Response.Cookies("status")("txtDescription") = "~|~|" 'else 'Response.Cookies("status")("txtDescription") = strDescription 'end if end if '_____________________________________________________________________________________________________________________ 'Sub Procedures Private Sub CFormOption on error resume next strOS = L_SUBMIT_SELECT_OPERATINGSYSTEM_GROUPBOX & ";" & L_SUBMIT_SELECT_WINDOWS2000_PROFESSIONAL_GROUPBOX & ";" & L_SUBMIT_SELECT_WINDOWS2000_SERVER_GROUPBOX & ";" & L_SUBMIT_SELECT_WINDOWS2000_ADVANCEDSERVER_GROUPBOX & ";" & L_SUBMIT_SELECT_WINDOWS2000_DATACENTER_GROUPBOX & ";" & L_SUBMIT_SELECT_WINDOWSXP_PERSONAL_GROUPBOX & ";" & L_SUBMIT_SELECT_WINDOWSXP_PROFESSIONAL_GROUPBOX & ";" & L_SUBMIT_SELECT_WINDOWSXP_SERVER_GROUPBOX & ";" & L_SUBMIT_SELECT_WINDOWSXP_ADVANCEDSERVER_GROUPBOX & ";" & L_SUBMIT_SELECT_WINDOWSXP_DATACENTER_GROUPBOX & ";" & L_SUBMIT_SELECT_WINDOWSXP_64BIT_GROUPBOX strOptions = split(strOS, ";") if rsComments.State = adStateOpen then if rsComments.RecordCount > 0 then if IsNull(rsComments("OSName")) = false then strOSVersion = rsComments("OSName") if rsComments("OSName") <> "" then for x = 0 to UBound(strOptions) - 1 if strOptions(x) = rsComments("OSName") then strSystems = strSystems & "