<% Option Explicit %> <% Dim PageNumber PageNumber = Trim(Left(Request.QueryString, 10)) If Len(PageNumber) = 0 or Not(IsNumeric(PageNumber)) then PageNumber = 1 else PageNumber = CInt(PageNumber) end if Dim ThisPage ThisPage = Request.ServerVariables("PATH_INFO") Dim Title Dim Author Dim ArticleBody Function CreateDynamicContent Dim SQL SQL = CreateDynamicPageSQL 'Response.Write(SQL & "
") RS.Open SQL, connOnline, 3, 3 If not RS.EOF then Title = RS("ArticleTitle") & "" Author = RS("AuthorName") & "" ArticleBody = RS("ArticleBody") & "" end if RS.Close end Function function CreateDynamicPageSQL CreateDynamicPageSQL = "SELECT * from Article WHERE ArticleID=" & PageNumber end function CreateDynamicContent %> marketing advice and consultation writing and design of brochures, logos, websites and advertising in Toronto, Ontario, Canada, Markham
Services
Articles
Case Studies
Portfolio

Articles

It's important to always be learning.

It's just as important to act upon what you learn.
About Us
Links
Newsletter
Marketing Tools
Spam Test
In The News
Home

<%=Title%>

by <%=Author%>

<%=ArticleBody%>
Read more Articles.
If you like these articles, subscribe to Thrive-on-Line, our monthly marketing e-zine.

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.