% Dim rsK Dim rsK_numRows Set rsK = Server.CreateObject("ADODB.Recordset") rsK.ActiveConnection = MM_asun07_STRING rsK.Source = "SELECT distinct Ct FROM ResultatsMitja09" rsK.CursorType = 0 rsK.CursorLocation = 2 rsK.LockType = 1 rsK.Open() rsK_numRows = 0 %> <% Dim rsd__KAT rsd__KAT = "Senior F" If (Request.QueryString("busca") <> "") Then rsd__KAT = Request.QueryString("busca") End If %> <% Dim rsd Dim rsd_numRows Set rsd = Server.CreateObject("ADODB.Recordset") rsd.ActiveConnection = MM_asun07_STRING rsd.Source = "SELECT * FROM ResultatsMitja09 WHERE ResultatsMitja09.Ct='" + Replace(rsd__KAT, "'", "''") + "' ORDER BY C" rsd.CursorType = 0 rsd.CursorLocation = 2 rsd.LockType = 1 rsd.Open() rsd_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 300 Repeat1__index = 0 rsd_numRows = rsd_numRows + Repeat1__numRows %>
|
|||||||||||||||||||