<% Dim pageLocation pageLocation = "homepage" mode = "home" %> Welcome to Catholic Peace Fellowship
<% Set objRS = Server.CreateObject("ADODB.Recordset") If Not objRS Is Nothing Then strSelect = "SELECT * FROM cpf WHERE secKey = 1000" objRS.Open strSelect, objConn, adOpenDynamic, adCmdTable secName = Trim(objRS("secName")) secDesc = Trim(objRS("secDesc")) secLink = Trim(objRS("secLink")) secCont = Trim(objRS("secCont")) secImage = Trim(objRS("secImage")) secImage2 = Trim(objRS("secImage2")) If secImage = "" Then secImage = "spacer.gif" End If %> <% objRS.Close Set objRS = Nothing End If %> <% objRS.Close Set objRS = Nothing End If Set objRS = Server.CreateObject("ADODB.Recordset") If Not objRS Is Nothing Then strSelect = "SELECT * FROM cpf WHERE secKey = 1003" objRS.Open strSelect, objConn, adOpenDynamic, adCmdTable secName = Trim(objRS("secName")) secDesc = Trim(objRS("secDesc")) secLink = Trim(objRS("secLink")) secCont = Trim(objRS("secCont")) secImage = Trim(objRS("secImage")) secImage2 = Trim(objRS("secImage2")) %>
<%=secName%>
<%=secDesc%>
<% Set objRS = Server.CreateObject("ADODB.Recordset") If Not objRS Is Nothing Then strSelect = "SELECT * FROM cpf WHERE secKey = 1001" objRS.Open strSelect, objConn, adOpenDynamic, adCmdTable secName = Trim(objRS("secName")) secDesc = Trim(objRS("secDesc")) secLink = Trim(objRS("secLink")) secCont = Trim(objRS("secCont")) secImage = Trim(objRS("secImage")) secImage2 = Trim(objRS("secImage2")) %> <% objRS.Close Set objRS = Nothing End If Set objRS = Server.CreateObject("ADODB.Recordset") If Not objRS Is Nothing Then strSelect = "SELECT * FROM cpf WHERE secKey = 1002" objRS.Open strSelect, objConn, adOpenDynamic, adCmdTable secName = Trim(objRS("secName")) secDesc = Trim(objRS("secDesc")) secLink = Trim(objRS("secLink")) secCont = Trim(objRS("secCont")) secImage = Trim(objRS("secImage")) secImage2 = Trim(objRS("secImage2")) %>
<%=secName%>
<%=secDesc%>
<%=secName%>
<%=secDesc%>
<%=secName%>
<%=secDesc%>
<% objRS.Close Set objRS = Nothing End If %>