Elenco delle aziende associate:

<% ' Apertura connessione Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("..\Database\Operatori.mdb") & ";pwd=spok" ' Apertura recordset SociACA Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Conn RS.CursorType = adOpenForwardOnly RS.LockType = adLockReadOnly RS.Source = "SociGAAC" RS.Open 'Crea tabella Response.Write "" Do until RS.EOF Tipologia = RS("Tipologia") Response.Write "" & chr(13) RS.Movenext Loop Response.Write "

" if Tipologia = 1 or Tipologia = 2 or Tipologia = 5 then for i = 1 to RS("Stelle") Response.Write "" next end if Response.Write " " & RS("Nome") & " " & chr(13) & RS("Via") & " " if RS("Localita") = 1 then Response.Write "" & RS("Citta") & "" if RS("Localita") = 2 then Response.Write "" & RS("Citta") & "" if RS("Localita") >= 3 then Response.Write "" & RS("Citta") & "" Response.Write " Tel. " & RS("Tel") if RS("TelInverno") <> "" then Response.Write "   Tel. inv. " & RS("TelInverno") if RS("Fax") <> "" then Response.Write "   FAX " & RS("Fax") if RS("FaxInverno") <> "" then Response.Write "   FAX inv. " & RS("FaxInverno") Response.Write " " if RS("EMail") <> "" then Response.Write "E-mail " & RS("Email") & "" if RS("PaginaWEB") <> "" then Response.Write "   Pagina web " & RS("PaginaWEB") & "" if Tipologia = 1 then Response.Write " Camere:" & RS("NumeroCamere") & " Letti:" & RS("NumeroLetti") if RS("DistanzaMare") <> "" then Response.Write " Distanza dal mare:" & RS("DistanzaMare") & "m" end if Response.Write "

" & chr(13) ' Chiusura recordsets e connessione set RS = Nothing Set Conn = nothing %>

Scrivici: aca@caorlehotel.com

Copyryght: Gruppo Acquisti Albergatori Caorle
Via Strada Nuova, 60
Tel 042181251 FAX 042181481