%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim area_rs Dim area_rs_numRows Set area_rs = Server.CreateObject("ADODB.Recordset") area_rs.ActiveConnection = MM_ConnCruise_STRING area_rs.Source = "SELECT * FROM area_table" area_rs.CursorType = 0 area_rs.CursorLocation = 2 area_rs.LockType = 1 area_rs.Open() area_rs_numRows = 0 %> <% Dim time_rs Dim time_rs_numRows Set time_rs = Server.CreateObject("ADODB.Recordset") time_rs.ActiveConnection = MM_ConnCruise_STRING time_rs.Source = "SELECT * FROM time_period_table" time_rs.CursorType = 0 time_rs.CursorLocation = 2 time_rs.LockType = 1 time_rs.Open() time_rs_numRows = 0 %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_ConnCruise_STRING Recordset1.Source = "SELECT * FROM area_table" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %>
|
||||||||||||||||