" & L_CERUP_NO_FILES0_TEXT & "

" Response.Write "

" & L_CERUP_NO_FILES_TEXT & Request.Cookies("OCA")("Path") & "

" Response.Write "

" %><% Call CDestroyObjects Response.End End If If (Request.QueryString("n") > 32) Then Count = 32 Done = 0 Else Count = Request.QueryString("n") Done = 1 End If If (Request.QueryString("f") = 1) Then Conn.Execute("SetFileCount(" & Request.QueryString("t") & "," & Request.QueryString("n") & ")") End If For aa = 1 To Count Set RS = Conn.Execute("GetIncident2(" & oPassMgrObj.Profile("MemberIdHigh") & "," & oPassMgrObj.Profile("MemberIdLow") & "," & Request.QueryString("t") & ")") If (Err.Number <> 0) Then Response.Write "" Response.Write "

" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "

" Response.Write "

" & L_COMMENTS_DATABASE_FAILED_TEXT & "

" 'Response.Write "

" & Err.Description & "

" %><% Call CDestroyObjects Response.End End If If (Not RS.EOF) Then Conn.Execute("SetTrackID(" & RS("IncidentID") & ",'" & Hex(Date()) & Hex(RS("IncidentID")) & "')") IncidentIDs = IncidentIDs & RS("IncidentID") & ";" RS.Close End If Set RS = Nothing Next Response.Write "" Private Sub CCreateConnection Set Conn = Server.CreateObject("ADODB.Connection") With Conn .ConnectionString = strCustomer .CursorLocation = adUseClient .ConnectionTimeout = strGlobalConnectionTimeout .Open End With If (Err.Number <> 0) Then Response.Write "ERROR: [" & Err.Number & "]" & Err.Description Call CDestroyObjects Response.End End If End Sub Private Sub CDestroyObjects Conn.Close Set Conn = Nothing End Sub %>

<%=L_CERUP_TIT_LE_TEXT%>

<%=L_CERUP_UPLOAD_SUMMARY_TEXT%>

<%=L_CERUP_SUB_TITLE_TEXT%>

<%=L_CERUP_UPLOADING_BLOCK_TEXT%> <%=Request.QueryString("b")%>

<% Else %>

<%=L_CERCUST_PASSPORT_TITLE_TEXT%>

<%=L_CERCUST_PASS_PORT_TEXT%> <%=L_WELCOME_PASSPORT_LINK_TEXT%>

<%=oPassMgrObj.LogoTag(Server.URLEncode(ThisPageURL),TimeWindow,ForceLogin,CoBrandArgs,strLCID,Secure)%>

<% End If %> <% Call CDestroyObjects %>