%@LANGUAGE="VBSCRIPT"%> <% Dim RSlinks Dim RSlinks_numRows Set RSlinks = Server.CreateObject("ADODB.Recordset") RSlinks.ActiveConnection = MM_CONaccess_STRING RSlinks.Source = "SELECT * FROM links ORDER BY LINKname,LINKcat" RSlinks.CursorType = 0 RSlinks.CursorLocation = 2 RSlinks.LockType = 1 RSlinks.Open() Dim TFM_nest, lastTFM_nest %>
|
![]() |
||||||||
|