<% Function ManagePostingTypes() On Error Resume Next dim rsPostingTypes dim strPostingTypeName dim strPostingTypeLinks Set rsPostingTypes = GetPostingTypes() If Not rsPostingTypes.Eof Then strPostingTypeLinks = "" & vbCRLF Do While Not rsPostingTypes.Eof strPostingTypeLinks = strPostingTypeLinks & "" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "" & vbCRLF rsPostingTypes.MoveNext Loop strPostingTypeLinks = strPostingTypeLinks & "

" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "" & GetPostingTypeName(rsPostingTypes("POSTING_TYPE_ID")) & " (" & GetPostingTypeCount(rsPostingTypes("POSTING_TYPE_ID")) & ")" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "	" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "Edit" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "	" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "Delete" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "
" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "" & vbCRLF strPostingTypeLinks = strPostingTypeLinks & "

" & vbCRLF Else strPostingTypeLinks = "" & vbCRLF End If If err.number <> 0 Then Call ReportError("ManagePostingTypes", err.number, err.description) End If ManagePostingTypes = strPostingTypeLinks On Error Goto 0 End Function Function GetPostingTypeCount(intPostingTypeId) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_GET_POSTING_TYPE_COUNT" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("POSTING_TYPE_ID", adInteger, adParamInput, , intPostingTypeId) cmd.Parameters.Append cmd.CreateParameter("POSTING_TYPE_COUNT", adInteger, adParamOutput) cmd.execute If err.number <> 0 Then Call ReportError("GetPostingTypeCount", err.number, err.description) End If GetPostingTypeCount = cmd.Parameters("POSTING_TYPE_COUNT") set cmd = nothing On Error Goto 0 End Function Sub ModifyPostingTypeName(intPostingTypeId, strPostingTypeName) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_SET_POSTING_TYPE_NAME" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("POSTING_TYPE_ID", adInteger, adParamInput, , CInt(intPostingTypeId)) cmd.Parameters.Append cmd.CreateParameter("LANGUAGE_ABBREVIATION", adVarchar, adParamInput, 10, strLanguage) cmd.Parameters.Append cmd.CreateParameter("POSTING_TYPE_NAME", adVarchar, adParamInput, 250, strPostingTypeName) cmd.execute If err.number <> 0 Then Call ReportError("ModifyPostingTypeName", err.number, err.description) End If set cmd = nothing On Error Goto 0 End Sub Function AddPostingTypeName(strPostingTypeName) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_INSERT_POSTING_TYPE_NAME" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("LANGUAGE_ABBREVIATION", adVarchar, adParamInput, 10, strLanguage) cmd.Parameters.Append cmd.CreateParameter("POSTING_TYPE_NAME", adVarchar, adParamInput, 250, strPostingTypeName) cmd.Parameters.Append cmd.CreateParameter("POSTING_TYPE_ID", adInteger, adParamOutput) cmd.execute If err.number <> 0 Then Call ReportError("AddPostingTypeName", err.number, err.description) End If AddPostingTypeName = cmd.Parameters("POSTING_TYPE_ID") set cmd = nothing On Error Goto 0 End Function Sub DeletePostingType(intPostingTypeId) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_DELETE_POSTING_TYPE" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("POSTING_TYPE_ID", adInteger, adParamInput, , CInt(intPostingTypeId)) cmd.execute If err.number <> 0 Then Call ReportError("DeletePostingType", err.number, err.description) End If set cmd = nothing On Error Goto 0 End Sub %>