%@ Language=VBScript %> <% Dim cn, rs, thisPage thisPage = 1 set cn=server.createobject("adodb.connection") cn.Open "LifesWorkServices" set rs=cn.execute("select * from Sheet1 ORDER BY Id") 'set rsG = server.CreateObject("ADODB.recordset") 'rsG.Open "select * from GameDays", cn, adOpenKeyset, adlockoptimistic %>