|
|
|
|
|
Name of Issue
|
Size (Rs.)
|
Instrument Name
|
Tenor
|
Rate
|
Rating
|
<%
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("\MMB.Mdb")
ConnectStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
MyConn.Open ConnectStr
Sort_Type = "Col1"
if (Request.QueryString = "") then
else
if (Request.QueryString = "Col1") then
Sort_Type = Request.QueryString
end if
if (Request.QueryString = "Col2") then
Sort_Type = Request.QueryString
end if
if (Request.QueryString = "Col3") then
Sort_Type = Request.QueryString
end if
if (Request.QueryString = "Col4") then
Sort_Type = Request.QueryString
end if
if (Request.QueryString = "Col5") then
Sort_Type = Request.QueryString
end if
if (Request.QueryString = "Col6") then
Sort_Type = Request.QueryString
end if
end if
SQL_Query1 = "SELECT * FROM CF_Mandates ORDER BY Company_Name;"
if (Sort_Type = "Col1") then
SQL_Query1 = "SELECT * FROM CF_Mandates ORDER BY Company_Name;"
else
if (Sort_Type = "Col2") then
SQL_Query1 = "SELECT * FROM CF_Mandates ORDER BY Investment_Size;"
end if
if (Sort_Type = "Col3") then
SQL_Query1 = "SELECT * FROM CF_Mandates ORDER BY Instrument_Name;"
end if
if (Sort_Type = "Col4") then
SQL_Query1 = "SELECT * FROM CF_Mandates ORDER BY Tenor;"
end if
if (Sort_Type = "Col5") then
SQL_Query1 = "SELECT * FROM CF_Mandates ORDER BY Rate;"
end if
if (Sort_Type = "Col6") then
SQL_Query1 = "SELECT * FROM CF_Mandates ORDER BY Rating;"
end if
end if
Set RS1 = MyConn.Execute(SQL_Query1)
TempStr = ""
NewColStr1 = ""
NewColStr2 = " | "
i = 1
while not(RS1.EOF)
Company_Name = RS1("Company_Name")
Investment_Size = RS1("Investment_Size")
if (Investment_Size <> "") then
Investment_Size = FormatNumber(Investment_Size, 0, true, false, true)
end if
Instrument_Name = RS1("Instrument_Name")
Tenor = RS1("Tenor")
Rate = RS1("Rate")
Rating = RS1("Rating")
if (i mod 2 = 0) then
TempStr = TempStr & " | "
else
TempStr = TempStr & " "
end if
TempStr = TempStr & NewColStr1 & "" & i & "" & "" & NewColStr2 & Company_Name & "" & _
NewColStr1 & Investment_Size & "" & NewColStr2 & Instrument_Name & "" & _
NewColStr2 & Tenor & "" & NewColStr2 & Rate & "" & _
NewColStr2 & Rating & ""
TempStr = TempStr & " "
i = i + 1
RS1.MoveNext
wend
Response.Write(TempStr)
%>
|
|
|
 
|
