Investment Banking
<% ' ************************************************************ 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(""
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
' ************************************************************
%>
<%
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
%>
<% ' ************************************************************ 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("
")
Response.Write("
" & action) Response.Write("
Error: " & errNumber & ", " & errDescription & ".") Response.Write("
If this problem persists, please notify the site administrator.") Response.Write("
")
End Function
' ************************************************************
' ************************************************************
Dim issueName,issueTicker,offeringDateFrom, offeringDateTo
Dim transactionTypeID, dealTypeID, engagementRoleID, industryID
Dim sortColumn, sortAscDesc
' ************************************************************
Call Main()
' ************************************************************
Sub Main()
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.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 & "" & action) Response.Write("
Error: " & errNumber & ", " & errDescription & ".") Response.Write("
If this problem persists, please notify the site administrator.") Response.Write("
