|
|
|
|
|
Name of Issue
|
Size (Rs.)
|
Pre IPO (Rs.)
|
Instrument Name
|
Rate
|
Rating
|
<%
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("\MMB.Mdb")
ConnectStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
MyConn.Open ConnectStr
SQL_Query1 = "SELECT * FROM CF_UpcomingIPO ORDER BY Company_Name;"
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
PreIPO_Size = RS1("UpcomingIPO")
if (PreIPO_Size <> "") then
PreIPO_Size = FormatNumber(PreIPO_Size, 0, true, false, true)
end if
Instrument_Name = RS1("Instrument_Name")
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 & PreIPO_Size & "" & _
NewColStr2 & Instrument_Name & "" & NewColStr2 & Rate & "" & _
NewColStr2 & Rating & ""
TempStr = TempStr & " "
i = i + 1
RS1.MoveNext
wend
Response.Write(TempStr)
%>
|
|
|
 
|
