%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim ProdNav Dim ProdNav_numRows Set ProdNav = Server.CreateObject("ADODB.Recordset") ProdNav.ActiveConnection = MM_beqube_STRING ProdNav.Source = "SELECT * FROM TBL_productfamilies" ProdNav.CursorType = 0 ProdNav.CursorLocation = 2 ProdNav.LockType = 1 ProdNav.Open() ProdNav_numRows = 0 %>
|
|
|||||||||||||||||||||||
<% ProdNav.Close() Set ProdNav = Nothing %>