%@ Language=VBScript %> <% Option Explicit %> <% dim rsIntro, count Set rsIntro=Server.CreateObject("ADODB.Recordset") rsIntro.ActiveConnection=connIntro rsIntro.Source="SELECT * FROM firstpage" rsIntro.CursorType=3 'adOpenStatic rsIntro.LockType=3 'adLockOptemistic rsIntro.CursorLocation=3 'adUseClient rsIntro.Open %>