%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% Dim rsRetreat Dim rsRetreat_cmd Dim rsRetreat_numRows Set rsRetreat_cmd = Server.CreateObject ("ADODB.Command") rsRetreat_cmd.ActiveConnection = MM_connDSNless_STRING rsRetreat_cmd.CommandText = "SELECT * FROM friendsh.tblFallRetreat" rsRetreat_cmd.Prepared = true Set rsRetreat = rsRetreat_cmd.Execute rsRetreat_numRows = 0 %>
Fall Retreat 2008 ~ Grades 7 - 12 ~ October 15-19 ~ Big Sandy Camp, McGregor, MN |
|||||
|
|||||