<%
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='RGT'"
' Opens the returned values from the SQL as a recordset, ready for iteration by ASP
set rcSet = cnStr.Execute(sqlStr)
' validate variables against database
%>
