<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% response.buffer=true %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_a1florida_mysql_STRING Recordset1_cmd.CommandText = "SELECT * FROM cumbrian" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Recordset2 Dim Recordset2_cmd Dim Recordset2_numRows Set Recordset2_cmd = Server.CreateObject ("ADODB.Command") Recordset2_cmd.ActiveConnection = MM_a1florida_mysql_STRING Recordset2_cmd.CommandText = "SELECT * FROM about ORDER BY id" Recordset2_cmd.Prepared = true Set Recordset2 = Recordset2_cmd.Execute Recordset2_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %> A1 Florida Villa - privately owned villa rentals - Out and About
<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>