%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "CA" if (Request("MM_EmptyValue") <> "") then Recordset1__MMColParam = Request("MM_EmptyValue") %> <% prov = request.QueryString("speciali") Set TConn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") TConn.connectionSTRING = "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("agsar.mdb") TConn.Open ag = lcase(ag) ag = replace(ag,"age","") ' Creo la stringa sql ssql = "SELECT Elenco.IDElencoIndirizzi, Elenco.Nome_Agenzia, Elenco.Loc, Elenco.plus, Elenco.Foto FROM Elenco where " & prov & "='" & prov & "' ORDER BY Elenco.plus DESC, Elenco.Nome_Agenzia;" 'response.write (sSQL) 'response.End() ' Creo un recordSet e lo apro Set Recordset1 = Server.CreateObject("ADODB.Recordset") set Recordset1 = TConn.Execute(sSQL) %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %>
 
     ![]() |
||||||||
|
|
Le Agenzie di Viaggio della
|
![]()
|
||||||
|
|
||||||||
home | come
arrivare | dettaglianti
| ricettivo
| tour
operator | congressi
DMC |
||||||||
| L'Annuario
delle Agenzie di Viaggio e dei Tour Operator della Sardegna www.agenziediviaggiosardegna.it
é un'idea di Sa Oche ® - servizi per la comunicazione |
||||||||