% Language=VBScript Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(Session("ConnectionString")) Set adoRS = Server.CreateObject("ADODB.Recordset") strSQL = "Select * from tblProduct where fldProductCategory = 2 order by fldProductID" adoRS.Source = strSQL Set adoRS.ActiveConnection = Conn adoRS.CursorType = adOpenStatic adoRS.Open %>
|