<% ' ************************************************************ Dim gConnection, gCommand, gRecordset ' ************************************************************ Function gOpenConnection() Set gConnection = CreateObject("ADODB.Connection") Set gRecordset = CreateObject("ADODB.Recordset") Set gCommand = CreateObject("ADODB.Command") gCommand.CommandType = &H0004 'adCmdStoredProc Dim constSERVER, constUID, constPWD, constDB constSERVER = "dbprod02" ' "CMTNY03" ' 'constSERVER = "dbqa02" constUID = "SGCowenUser" constPWD = "cR2Vxa" ' "SGCowenPassword" ' constDB = "SGCowen" gConnection.Open("PROVIDER=SQLOLEDB;" & _ "DATA SOURCE=" & constSERVER & ";" & _ "USER ID=" & constUID & ";" & _ "PASSWORD=" & constPWD & ";" & _ "DATABASE=" & constDB) If Err.number = 0 Then ' Set command Set gCommand.ActiveConnection = gConnection End If If Err.number <> 0 Then 'Display Error gPrintError Err.number, Err.Description, "Database connection failure." Response.End End If End Function ' ************************************************************ Function gCloseConnection On Error Resume Next Set gCommand = Nothing Set gRecordset = Nothing gConnection.Close Set gConnection = Nothing On Error Goto 0 End Function ' ************************************************************ Function gCStr(value) gCStr = CStr("" & value) End Function ' ************************************************************ Function gPadLeftZero(value, width) If IsNumeric(width) Then gPadLeftZero = String(width-Len(value),"0") & value Else gPadLeftZero = value End If End Function ' ************************************************************ Function gPrintError(errNumber, errDescription, action) Response.Write("") End Function ' ************************************************************ ' ************************************************************ Dim issueName,issueTicker,offeringDateFrom, offeringDateTo Dim transactionTypeID, dealTypeID, engagementRoleID, industryID Dim sortColumn, sortAscDesc ' ************************************************************ Call Main() ' ************************************************************ Sub Main() Response.Write vbCrLf & "

Financial Sponsors Transactions

" issueName = "" & Request.Form("txtFilterIssue") issueTicker = "" & Request.Form("txtFilterTicker") offeringDateFrom = "" & Request.Form("txtFilterDateFrom") offeringDateTo = "" & Request.Form("txtFilterDateTo") transactionTypeID = Request.Form("cboFilterTransactionType") dealTypeID = "" 'Request.Form("cboFilterDealType") engagementRoleID = Request.Form("cboFilterEngagementRole") industryID = Request.Form("cboFilterIndustry") If IsNumeric("" & Request.QueryString("TransactionTypeID")) Then transactionTypeID = CInt("" & Request.QueryString("TransactionTypeID")) End If 'If IsNumeric("" & Request.QueryString("DealTypeID")) Then ' DealTypeID = CInt("" & Request.QueryString("DealTypeID")) 'End If If IsNumeric("" & Request.QueryString("EngagementRoleID")) Then EngagementRoleID = CInt("" & Request.QueryString("EngagementRoleID")) End If If IsNumeric("" & Request.QueryString("IndustryID")) Then IndustryID = CInt("" & Request.QueryString("IndustryID")) End If sortColumn = "" & Request.Form("hidSortColumn") sortAscDesc = "" & Request.Form("hidSortAscDesc") If sortColumn = "" Then sortColumn="OfferingDate" If sortAscDesc = "" Then sortAscDesc="DESC" Dim testDate on error resume next testDate = CDate(offeringDateFrom) If err.number <> 0 Then offeringDateFrom = "" err.Clear Else offeringDateFrom = testDate End if testDate = CDate(offeringDateTo) If err.number <> 0 Then offeringDateTo = "" err.Clear Else offeringDateTo = testDate End if 'If Not IsDate(offeringDateFrom) Then offeringDateFrom = "" 'If Not IsDate(offeringDateTo) Then offeringDateTo = "" on error goto 0 End Sub ' ************************************************************ Sub LoadCombo(selectedType, selectedValue) dim value, selected, sp, trxTypeID trxTypeID = CInt("0" & transactionTypeID) selected = " selected " Select Case selectedType Case "TransactionType" sp = "spIBTransactionTypeGetAll" ' Case "DealType" ' sp = "spIBDealTypeGetFiltered (" & trxTypeID & ")" Case "EngagementRole" sp = "spIBEngagementRoleGetFiltered (" & trxTypeID & ")" Case "Industry" sp = "spIBIndustryGetAll" Case Else Exit Sub End Select gOpenConnection gCommand.CommandText = sp Set gRecordset = gCommand.Execute Do until gRecordset.EOF value = gRecordset(selectedType & "ID").Value If CInt("0" & selectedValue) = CInt("0" & value) Then selected = " selected " else selected = "" Response.Write vbCrLf & "" & gRecordset("Name").Value & "" gRecordset.MoveNext Loop gCloseConnection End Sub ' ************************************************************ Sub bindGrid() Dim altRow Dim dte dim codeAbbreviation issueName = Replace(issueName,"'", "") issueTicker = Replace(issueTicker,"'", "") gOpenConnection gCommand.CommandText = "spIBOfferingGetFiltered ('" & issueName & "','" & issueTicker & "','" & offeringDateFrom & "','" & offeringDateTo & "'," & transactionTypeID & "," & dealTypeID & "," & engagementRoleID & "," & industryID & ",'" & sortColumn & "','" & sortAscDesc & "')" Set gRecordset = gCommand.Execute altRow = "GridAltItem" Do Until gRecordset.EOF If altRow = "GridAltItem" Then altRow = "GridItem" Else altRow = "GridAltItem" dte = gRecordset("OfferingDate") 'dte = Year(dte) & "-" & gPadLeftZero(Month(dte),2) & "-" & gPadLeftZero(Day(dte),2) dte = MonthName(Month(dte), True) & " " & CStr(Year(dte)) Response.Write vbCrLf & "" Response.Write vbCrLf & "" & dte & "" Response.Write vbCrLf & "" & gRecordset("IssueName") & "" 'Response.Write vbCrLf & "" & gRecordset("IssueTicker") & "" If Not IsNumeric("" & Request.QueryString("TransactionTypeID")) Then Response.Write vbCrLf & "" & gRecordset("TransactionTypeAndDesc") & "" End if ' Response.Write vbCrLf & "" & gRecordset("DealType") & "" ' Response.Write vbCrLf & "" & gRecordset("EngagementRole") & "" If Not IsNumeric("" & Request.QueryString("TransactionTypeID")) Then Response.Write vbCrLf & "" & gRecordset("EngagementRole") & "" else Response.Write vbCrLf & "" & gRecordset("EngagementRoleAndDesc") & "" end if If Not IsNumeric("" & Request.QueryString("IndustryID")) Then Response.Write vbCrLf & "" & gRecordset("Industry") & "" End if If CDbl("" & gRecordSet("IssueAmount")) = 0 Then Response.Write vbCrLf & "Undisclosed" Else on error resume next codeAbbreviation = " " & gRecordset("CodeAbbreviation") on error goto 0 Response.Write vbCrLf & "" & FormatNumber(gRecordset("IssueAmount"),1) & codeAbbreviation & "" End If Response.Write vbCrLf & "" gRecordset.MoveNext Loop gCloseConnection End Sub ' ************************************************************ %>

From (mm/dd/yyyy) To (mm/dd/yyyy) Client Transaction Role Industry   (Display All) <%Call LoadCombo("TransactionType", transactionTypeID)%> (Display All) <%Call LoadCombo("EngagementRole", engagementRoleID)%> (Display All) <%Call LoadCombo("Industry", industryID)%>

<% If Not IsNumeric("" & Request.QueryString("TransactionTypeID")) Then Response.Write("") End If %> <% If Not IsNumeric("" & Request.QueryString("IndustryID")) Then Response.Write("") End If %> <% bindGrid %> Date Client Transaction Role Industry Amt (MM)

<% If Not IsNumeric("" & Request.QueryString("TransactionTypeID")) Then Response.Write "" End If 'If Not IsNumeric("" & Request.QueryString("DealTypeID")) Then ' Response.Write "" 'End If If Not IsNumeric("" & Request.QueryString("EngagementRoleID")) Then Response.Write "" End If If Not IsNumeric("" & Request.QueryString("IndustryID")) Then Response.Write vbCrLf & "" End If ' Disable EngagementRole Filter if TransactionType Is Not selected If Not IsNumeric("" & Request.QueryString("IndustryID")) Then Response.Write vbCrLf & "" End If %>