<% Option Explicit %> <% Dim PortfolioTypeID Dim SectionImagePath Dim SectionName Dim ElementType Dim SectionHeader Dim SectionDescription Dim PageNumber PortfolioTypeID = 7 PageNumber = Trim(Left(Request.QueryString, 10)) Dim FullSizeImage Dim FHeight Dim FWidth Dim Label Dim DetailCopy Dim Page Dim ParentPage Sub CreateDynamicContentHTML Dim SQL SQL = CreateDynamicPageSQL 'Response.Write(SQL & "
") RS.Open SQL, connOnline, 3, 3 if RS.EOF then Response.Redirect("http://www.mcas.k12.in.us/error/errornopage.gif") FullSizeImage = RS("FullSizeImage") & "" FHeight = RS("FHeight") & "" if CLng(FHeight) < 1 then FHeight = "" end if FWidth = RS("FWidth") & "" if CLng(FWidth) < 1 then FWidth = "" end if Label = RS("Label") & "" DetailCopy = RS("DetailCopy") & "" Page = RS("Page") & "" SectionImagePath = RS("Directory") & "" SectionName = RS("PortfolioLabel") & "" ElementType = RS("PortfolioType") & "" if ElementType = SectionName then ParentPage = SectionName & "List" else ParentPage = SectionName end if PortfolioTypeID = RS("PortoType") & "" SectionHeader = RS("HeaderText") & "" SectionDescription = RS("DetailHeaderText") & "" RS.Close end sub function CreateDynamicPageSQL CreateDynamicPageSQL = "SELECT PortfolioItem.PortfolioTypeID as PortoType, PortfolioItem.*, PortfolioType.* " & _ "FROM PortfolioItem " & _ "INNER JOIN PortfolioType on PortfolioType.PortfolioTypeID = PortfolioItem.PortfolioTypeID " & _ "WHERE PortfolioItem.PortfolioItemID=" & PageNumber end function CreateDynamicContentHTML %> marketing advice and consultation writing and design of brochures, logos, websites and advertising in Toronto, Ontario, Canada, Markham
Services
Articles
Case Studies
Portfolio

<%=SectionHeader%>

<%=SectionDescription%>
About Us
Links
Newsletter
Marketing Tools
Spam Test
In The News
Home

<%=Label%> logo 0 then %> height=<%=FHeight%> <% End If %> <% if Len(FWidth) > 0 then %> width=<%=FWidth%> <% End If %> align=top>

<%=Label%>

<%=DetailCopy%>

Back to ><%=SectionName%>. Back to the Portfolio.

services | articles | case studies | portfolio | about us | links
newsletter | marketing tools | spam test | in the news | home

© Copyright 2003 .

Send snail mail to:

Capstone Communications Group
15 Wilson Street
Markham, Ontario
Canada L3P 1M9

or call 905-472-2330 between 9 am to 5 pm Eastern Time.