<%=(PageCon.Fields.Item("SEO

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim PageCon__MMColParam PageCon__MMColParam = "1" If (Request.QueryString("Page_ID") <> "") Then PageCon__MMColParam = Request.QueryString("Page_ID") End If %> <% Dim PageCon Dim PageCon_cmd Dim PageCon_numRows Set PageCon_cmd = Server.CreateObject ("ADODB.Command") PageCon_cmd.ActiveConnection = MM_OSSsql_STRING PageCon_cmd.CommandText = "SELECT * FROM dbo.Static_Page WHERE Page_ID = ?" PageCon_cmd.Prepared = true PageCon_cmd.Parameters.Append PageCon_cmd.CreateParameter("param1", 5, 1, -1, PageCon__MMColParam) ' adDouble Set PageCon = PageCon_cmd.Execute PageCon_numRows = 0 %> " /> " /> <%=(PageCon.Fields.Item("SEO_Title").Value)%>

<%=(PageCon.Fields.Item("Page_Name").Value)%>
Phone (888) 747-3394

<% Path = Server.URLEncode(Server.MapPath("data\images") & "\" & (PageCon.Fields.Item("Picture_Name").Value)) %> <% IF PageCon.Fields.Item("Picture_Name").Value <> "none" Then %> " target="_blank"> click for larger image

<% ELSE END IF %>

<%=(PageCon.Fields.Item("Page_Name").Value)%>

<% ' *** Keep Memo Text Server Behaviour *** ' *** SB225 By RobGT - http://robgt.com *** RobGT_Value = (PageCon.Fields.Item("Page_Copy").Value) IF (RobGT_Value <> "") AND NOT IsNULL(RobGT_Value) THEN Response.Write(Replace(RobGT_Value,vbCRLF,"
")) END IF %>

All Ohio Secure Shred
14250 South Industrial, Maple Heights, Ohio
Phone: (216)332-9850
Toll Free: (888)-747-3394


©2006 All Ohio Secure Shred - All Rights Reserved

<% PageCon.Close() Set PageCon = Nothing %>