%
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
%>
|
|
![]() |
|
|||||||
![]() |
|
|
|||||||
![]() |
![]() |
![]() |
|
||||||
|
|
|
||||||||
|
|
|
||||||||
|
|
|
||||||||
|
|
|
||||||||
ArticlesIt's important to always be learning.It's just as important to act upon what you learn. |
![]() |
![]() |
|
||||||
|
|
|
||||||||
|
|
|
||||||||
|
|
|
||||||||
|
|
|
||||||||
|
|
|
||||||||
|
|
|||||||||
|
|
|
||||||||
|
|
|
||||||||
|
|
|
||||||||
|
|
<%=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
.
|
|
||||||||
|
|
|
|
|
|
|
|
|
|
|