%@LANGUAGE="VBSCRIPT"%> <% Dim rs_combo Dim rs_combo_cmd Dim rs_combo_numRows Set rs_combo_cmd = Server.CreateObject ("ADODB.Command") rs_combo_cmd.ActiveConnection = MM_conRemax_STRING rs_combo_cmd.CommandText = "SELECT Designation, AgentName, AgentImage, AgentSurname FROM agents" rs_combo_cmd.Prepared = true Set rs_combo = rs_combo_cmd.Execute rs_combo_numRows = 0 %> <% Dim rrSource_rs_combo, rrRecCount_rs_combo, re_rs_combo Set re_rs_combo = New regexp re_rs_combo.Pattern = "SELECT (.*) FROM " re_rs_combo.Global = False re_rs_combo.IgnoreCase = True rrSource_rs_combo="Select Count(*) as RecCount From " & re_rs_combo.Replace(rs_combo.Source,"") rrRecCount_rs_combo=CInt(rs_combo.ActiveConnection.Execute(rrSource_rs_combo)("RecCount")) Set rrSource_rs_combo = Nothing Set re_rs_combo = Nothing %>
|
||||||