<%'@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim CMSPage__MMColParam CMSPage__MMColParam = "51" If (Request.QueryString("PID") <> "") Then CMSPage__MMColParam = Request.QueryString("PID") End If %> <% Dim CMSPage Dim CMSPage_cmd Dim CMSPage_numRows Set CMSPage_cmd = Server.CreateObject ("ADODB.Command") CMSPage_cmd.ActiveConnection = MM_ames_STRING CMSPage_cmd.CommandText = "SELECT * FROM dbo.CMSWebPage WHERE CMSPageID = ?" CMSPage_cmd.Prepared = true CMSPage_cmd.Parameters.Append CMSPage_cmd.CreateParameter("param1", 5, 1, -1, CMSPage__MMColParam) ' adDouble Set CMSPage = CMSPage_cmd.Execute CMSPage_numRows = 0 %> <% Dim CMSLanguage Dim CMSLanguage_numRows Set CMSLanguage = Server.CreateObject("ADODB.Recordset") CMSLanguage.ActiveConnection = MM_ames_STRING CMSLanguage.Source = "SELECT * FROM dbo.CMSLanguages WHERE LangID = '"&CMSPage("LangID")&"'" CMSLanguage.CursorType = 0 CMSLanguage.CursorLocation = 2 CMSLanguage.LockType = 1 CMSLanguage.Open() CMSLanguage_numRows = 0 %> ACE | <%=(CMSPage.Fields.Item("CMSPageDescrip").Value)%> <% If CMSPage("MetaTagDescription") <> "" then %> " /><% Else %> "><% End If%> <% If CMSPage("MetaTagKeywords") <> "" then %> " /><% Else %> " /><% end If%> " /> " /> " /> " /> " /> " />

access keys, skip navigation=S, home=1, search=4, feedback=9

Skip to content  
Contact ACE   |    
 
  1. Homepage
    2. <% Dim BreadcrumbsCMSPage Dim BreadcrumbsCMSPage_numRows Set BreadcrumbsCMSPage = Server.CreateObject("ADODB.Recordset") BreadcrumbsCMSPage.ActiveConnection = MM_ames_STRING BreadcrumbsCMSPage.Source = "SELECT * FROM dbo.vw_CMSPageGenerator WHERE CMSCatID = '" & Request("MID") & "'" BreadcrumbsCMSPage.CursorType = 0 BreadcrumbsCMSPage.CursorLocation = 2 BreadcrumbsCMSPage.LockType = 1 BreadcrumbsCMSPage.Open() BreadcrumbsCMSPage_numRows = 0 %>
  2. class="highlight"<%End If%>> <% If Request("SID") <> 0 then %> <% If BreadcrumbsCMSPage("AlternLinkStatus") = "1" then %> " TARGET="<%=BreadcrumbsCMSPage("AlternTarget")%>"> <% Else %> &MID=<%=BreadcrumbsCMSPage("CMSCatID")%>"> <% End If %><%=(BreadcrumbsCMSPage.Fields.Item("CMSPageName").Value)%> <% Else %><%=(BreadcrumbsCMSPage.Fields.Item("CMSPageName").Value)%><% End If %>
    3. <% BreadcrumbsCMSPage.Close() Set BreadcrumbsCMSPage = Nothing %> <% Dim SubBreadcrumbsCMSPage Dim SubBreadcrumbsCMSPage_numRows Set SubBreadcrumbsCMSPage = Server.CreateObject("ADODB.Recordset") SubBreadcrumbsCMSPage.ActiveConnection = MM_ames_STRING SubBreadcrumbsCMSPage.Source = "SELECT * FROM dbo.vw_CMSPageGenerator WHERE CMSPageID = '" & Request("PID") & "'" SubBreadcrumbsCMSPage.CursorType = 0 SubBreadcrumbsCMSPage.CursorLocation = 2 SubBreadcrumbsCMSPage.LockType = 1 SubBreadcrumbsCMSPage.Open() SubBreadcrumbsCMSPage_numRows = 0 %> <% If Request("SID") <> 0 then %>
  3. <%=(SubBreadcrumbsCMSPage.Fields.Item("CMSPageName").Value)%>
    4. <% End If %> <% SubBreadcrumbsCMSPage.Close() Set SubBreadcrumbsCMSPage = Nothing %>
Print this page Reduce font size Increase font size   

<%=(CMSPage.Fields.Item("CMSPageDescrip").Value)%>

<%=(CMSPage.Fields.Item("CMSPageContent").Value)%>

<% Dim StoreGroupProducts Dim StoreGroupProducts_numRows Set StoreGroupProducts = Server.CreateObject("ADODB.Recordset") StoreGroupProducts.ActiveConnection = MM_ames_STRING StoreGroupProducts.Source = "SELECT * FROM dbo.StoreProducts WHERE CategoryID = '"&Request("CatID")&"' AND ParentID = '0' AND ProductStatus='A' ORDER BY ProductID DESC" StoreGroupProducts.CursorType = 0 StoreGroupProducts.CursorLocation = 2 StoreGroupProducts.LockType = 1 StoreGroupProducts.Open() StoreGroupProducts_numRows = 0 %> <% Dim RepeatStoreGroupProducts__numRows Dim RepeatStoreGroupProducts__index RepeatStoreGroupProducts__numRows = 10 RepeatStoreGroupProducts__index = 0 StoreGroupProducts_numRows = StoreGroupProducts_numRows + RepeatStoreGroupProducts__numRows %> <% If NOT StoreGroupProducts.EOF then %>
ACE Publications
<% End If %> <% While ((RepeatStoreGroupProducts__numRows <> 0) AND (NOT StoreGroupProducts.EOF)) %>

<% If StoreGroupProducts.Fields.Item("AlternLinkStatus").Value = 1 then %>" TARGET="<%=(StoreGroupProducts.Fields.Item("AlternTarget").Value)%>"><% End If %>" WIDTH="100" HEIGHT="140" BORDER="0" CLASS="floatLeft"><% If StoreGroupProducts.Fields.Item("AlternLinkStatus").Value = 1 then %><% End If %><%=(StoreGroupProducts.Fields.Item("ProductName").Value)%>
Author: <%=(StoreGroupProducts.Fields.Item("ProductAuthor").Value)%> <% If StoreGroupProducts("ProductImage") <> "" then %> <% End If %><%=StoreGroupProducts.Fields.Item("ProductText").Value%>

<% If StoreGroupProducts.Fields.Item("AlternLinkStatus").Value = 1 then %>" TARGET="<%=(StoreGroupProducts.Fields.Item("AlternTarget").Value)%>"><% End If %>View Publication<% If StoreGroupProducts.Fields.Item("AlternLinkStatus").Value = 1 then %><% End If %>

<% RepeatStoreGroupProducts__index=RepeatStoreGroupProducts__index+1 RepeatStoreGroupProducts__numRows=RepeatStoreGroupProducts__numRows-1 StoreGroupProducts.MoveNext() Wend %>

 

Print this page Reduce font size Increase font size   
<%=(CMSPage.Fields.Item("CMSSideContents").Value)%>
<% CMSPage.Close() Set CMSPage = Nothing %> <% CMSLanguage.Close() Set CMSLanguage = Nothing %> <% StoreGroupProducts.Close() Set StoreGroupProducts = Nothing %>