|
<%
' campo=0 'azzero la variabile contatore di campi
do while not rs.EOF ' con il do while not rs.eof scorro tutti i record trovati
if((i mod 2)=0) then ' le tabelle pari hanno sfondo grigio, quele dispari azzurro
%>
<%
else %>
<% end if 'fine del controllo sulla parità del record corrente
i=i+1 'incremento del contatore di records
rs.movenext' vado al record successivo
' campo=0 ' azzero il contatore di campi per scorrere il record successivo
Loop ' chiudo il ciclo sulla query
rs.close 'chiudo la connessione ADO
set rs = nothing ' distruggo la variabile di RECORDSET ADO
call dbDisconnect(objConn) ' distruggo la variabile di connessione
response.write " | " ' QUESTA E' LA CHIUSURA DEL TD CHE CONTIENE LE TABELLE DELLE SCHEDE HOTEL
response.write "" ' N.B. QUESTO E' IL TD DI DESTRA DELLA PAGINA QUELLO CHE CORRE A DX DELLE SCHEDE HOTEL
response.write "
"
response.write ""
' SEZIONE INSERIMENTO SPECIALI.....
call dbConnect(objConn) ' il metodo call chiama la subroutine di apertura e si connette al database
Set Rs = Server.CreateObject("ADODB.Recordset") ' definire un recordset significa creare un oggetto sul server in grado di eseguire azioni sul database
selezione="select regione,pacchettispeciali from hotelbeautyspa_it_struttura.hotel where pacchettispeciali <> '' order by regione" ' query sql
rs.Open selezione, objConn 'il metodo Open esegue le azioni sul server... in questo caso esegue l'azione legata alla variabile selezione
Rs.movefirst
do while not Rs.Eof
response.write ""&Rs("pacchettispeciali")&""
response.write "
| "
Rs.movenext
Loop
rs.close 'chiudo la connessione ADO
set rs = nothing ' distruggo la variabile di RECORDSET ADO
call dbDisconnect(objConn) ' distruggo la variabile di connessione
response.write " "
' FINE SEZIONE INSERIMENTO SPECIALI
response.write " |
"
response.write "
