%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Expires= -1 Response.AddHeader "Cache-Control", "no-cache" Response.AddHeader "Pragma", "no-cache" %> [an error occurred while processing this directive] <% Dim faqLIST Dim faqLIST_numRows Set faqLIST = Server.CreateObject("ADODB.Recordset") faqLIST.ActiveConnection = MM_aspConnection_STRING faqLIST.Source = "SELECT * FROM tbdb.con_faq WHERE faqACTIVE = 'Y' ORDER BY faqSORT ASC" faqLIST.CursorType = 0 faqLIST.CursorLocation = 2 faqLIST.LockType = 1 faqLIST.Open() faqLIST_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 faqLIST_numRows = faqLIST_numRows + Repeat1__numRows %> <% locationID = Request.QueryString("locationID") %> <% showMONTH = Request.QueryString("month") %>
|