%@LANGUAGE="VBSCRIPT"%> <% Dim rsState Dim rsState_numRows Set rsState = Server.CreateObject("ADODB.Recordset") rsState.ActiveConnection = MM_Conn_STRING rsState.Source = "SELECT * FROM Land" rsState.CursorType = 0 rsState.CursorLocation = 2 rsState.LockType = 1 rsState.Open() rsState_numRows = 0 %>
.
.
.
.
.
.