<% DIM strPageNumber DIM strRequestNumber DIM Times1, Times2, Times3, Times4 oConn.Open(sConnString) 'This opens the database. strPageNumber = Request.QueryString("PageID") If strPageNumber = "" THEN Set rConn = oConn.Execute("SELECT * FROM Table1 WHERE Site = '1'") 'Select the first page. Else ' Display the page requested by the user: Set rConn = oConn.Execute("SELECT * FROM Table1 WHERE Site = '"& strPageNumber &"'") End If IF strPageNumber = "1" THEN strPageCount = Application("Page1") strPageCount = strPageCount + 1 Application("Page1") = strPageCount ELSEIF strPageNumber = "2" THEN strPageCount = Application("Page2") strPageCount = strPageCount + 1 Application("Page2") = strPageCount ELSEIF strPageNumber = "3" THEN strPageCount = Application("Page3") strPageCount = strPageCount + 1 Application("Page3") = strPageCount ELSEIF strPageNumber = "4" THEN strPageCount = Application("Page4") strPageCount = strPageCount + 1 Application("Page4") = strPageCount End If ' Response.Write "This page accessed: " & strPageCount & " times." %> Site Demo


Harry
Larry
Moe
Joe

<%=rConn.Fields("Header").Value%>

<%=rConn.Fields("SubTitle").Value%>

<%=rConn.Fields("Body").Value%> <% Link = rConn.Fields("Links").Value%>


Visit these links:

><%=Link%>

Valid XHTML 1.0!
<%Response.Write "This page accessed: " & strPageCount & " times."%> <% 'Destroy the connections oConn.Close set oConn = Nothing %>