@LANGUAGE="VBSCRIPT"?> R1 = request.form("R1") ?> Dim category Dim category_numRows Set category = Server.CreateObject("ADODB.Recordset") category.ActiveConnection = MM_Links_STRING category.Source = "SELECT DISTINCT Category FROM tvdiscountscom.linktonew WHERE Category <> 'adult' ORDER BY Category ASC" category.CursorType = 0 category.CursorLocation = 2 category.LockType = 1 category.Open() category_numRows = 0 ?> include("head.php") ?>
include("tail.php") ?> category.Close() Set category = Nothing ?>