Trojan Family Weekend Registration
|
%@LANGUAGE="VBSCRIPT"%> <% Dim rsFAQ__txtCategoryID rsFAQ__txtCategoryID = "-1" If (Request("CategoryID") <> "") Then rsFAQ__txtCategoryID = Request("CategoryID") End If %> <% Dim rsFAQ Dim rsFAQ_cmd Dim rsFAQ_numRows Set rsFAQ_cmd = Server.CreateObject ("ADODB.Command") rsFAQ_cmd.ActiveConnection = MM_ParentsConnection_STRING rsFAQ_cmd.CommandText = "SELECT FAQID, CategoryID, QuestionDesc, AnswerDesc, LookupDescr FROM dbo.view_FAQ WHERE CategoryID = 46 AND Display = 'Y' ORDER BY SortOrder" rsFAQ_cmd.Prepared = true Set rsFAQ = rsFAQ_cmd.Execute rsFAQ_numRows = 0 %> <% If ("" = "") Then ' WA_ClearSession dim clearAll, clearThese clearAll = False clearThese = Split("RegistrationID",",") If clearAll Then Session.Contents.RemoveAll() Session.Abandon() Else For I=0 To UBound(clearThese) Session.Contents.Remove(clearThese(I)) Next End If End If %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsFAQ_numRows = rsFAQ_numRows + Repeat1__numRows %>
Trojan Family Weekend Registration
|
<% rsFAQ.Close() Set rsFAQ = Nothing %>