<%
dim cnStr
dim rcSet,RCSET1
dim frmNAME,FRMCOMP
dim sqlStr,FPATH
FPATH=SESSION("CO_CODE")
frmNAME = Request.Form("NAME")
Set cnStr = Server.CreateObject("ADODB.Connection")
Set rcSet = Server.CreateObject("ADODB.Recordset")
' defining database connection (connectionstring.asp)
cnStr.ConnectionString = "DSN=MONDKAR"
cnStr.open
' execute sql and open as recordset
sqlStr = "select * from compmst orde by issue_name where type='IPO'"
' Opens the returned values from the SQL as a recordset, ready for iteration by ASP
set rcSet = cnStr.Execute(sqlStr)
' validate variables against database
%>
IPO ALLOTMENT SEARCH
Please call on the numbers during the business hours 10.30 AM to 1.00 PM & 1.30 PM to 5.30 PM
