<%@ Language=VBScript %>
<%
Dim cn, rs, thisPage
thisPage = 1
set cn=server.createobject("adodb.connection")
cn.Open "LifesWorkServices"
set rs=cn.execute("select * from Content ORDER BY PageId")
'set rsG = server.CreateObject("ADODB.recordset")
'rsG.Open "select * from GameDays", cn, adOpenKeyset, adlockoptimistic
do while not rs.eof
Response.Write "