<%@LANGUAGE="VBSCRIPT"%> <% Page_Title = "Get Involved" %> <% ' The Database Unique name for this text Dim Content_Title Content_Title="Get Involved" %> <% Dim WebsiteContent_Set Dim WebsiteContent_Set_numRows Set WebsiteContent_Set = Server.CreateObject("ADODB.Recordset") WebsiteContent_Set.ActiveConnection = MM_DATA_STRING WebsiteContent_Set.Source = "SELECT * FROM WebsiteContent WHERE WebsiteContentTitle = '" + Content_Title + "'" WebsiteContent_Set.CursorType = 0 WebsiteContent_Set.CursorLocation = 2 WebsiteContent_Set.LockType = 1 WebsiteContent_Set.Open() WebsiteContent_Set_numRows = 0 %> <%=Website_Name%> - <%=Page_Title%>

Get Involved

 
<% If Not WebsiteContent_Set.EOF Or Not WebsiteContent_Set.BOF Then %> <%=(WebsiteContent_Set.Fields.Item("WebsiteContentText").Value)%> <% End If ' end Not WebsiteContent_Set.EOF Or NOT WebsiteContent_Set.BOF %>
<% WebsiteContent_Set.Close() Set WebsiteContent_Set = Nothing %>