% Option Explicit %> <% Dim objRs Set objRs = Server.CreateObject("Adodb.RecordSet") objRs.CursorLocation = 3 %>