%@LANGUAGE="VBSCRIPT"%> <% Option Explicit %> <% set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = KOSHconn objRS.Source = "SELECT * FROM CATEGORIES" objRS.CursorType = 0 objRS.CursorLocation = 2 objRS.LockType = 3 objRS.Open() %>