<% Dim FileCount Dim Conn On Error Resume Next Call CCreateConnection If (Request.QueryString("Count") < 0) Then FileCount = 0 Else FileCount = Request.QueryString("Count") End If Conn.Execute("PostFileCount(" & Request.QueryString("id") & "," & FileCount & ")") If (Err.Number <> 0) Then 'Response.Write "

" & Err.Description & "

" Response.Write "

" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "

" Response.Write "

" & L_COMMENTS_DATABASE_FAILED_TEXT & "

" %><% Call CDestroyObjects Response.End End If Response.Cookies("OCA")("Done") = 1 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_CERDONE_FILE_ONE_TEXT %>

<%=L_CERDONE_SUCCESS_PARTONE_TEXT%> <%=Request.QueryString("id")%> <%=L_CERDONE_SUCCESS_PARTTWO_TEXT%> <%=FileCount%> <%=L_CERDONE_SUCCESS_PARTTHREE_TEXT%>


<% = L_WELCOME_GO_IMAGEALT_TEXT %>/cerintro.asp"><% = L_CERDONE_HOME_LINK_TEXT %>
<% = L_WELCOME_GO_IMAGEALT_TEXT %>/secure/corptransactions.asp"><% = L_CERDONE_STATUS_LINK_TEXT %>
<% Call CDestroyObjects %>