<% 'ATTENZIONE... PER CONSENTIRE UNA FACILE LETTURA DEL CODICE SIETE PREGATI DI CONSERVARE L'INDENTATURA ' E NON TOGLIERE I COMMENTI PERCHE' SONO DI AIUTO. GRAZIE.. DANILO server.ScriptTimeout = 300 ' 5 minuti database = "hotelbeautyspa_it_struttura" ' definizione del nome del database inizioTempo = Timer() 'inizio subroutine di apertura della connessione al database sub dbConnect(objConn) 'ATTTENZIONE : LA LINEA DI CODICE QUI SOTTO NON VA MAI MODIFICATA connectionstring = "DRIVER={MySQL ODBC 3.51 Driver};DATABASE="& hotelbeautyspa_it_struttura &";SERVER=mysql.register.it;UID=MF622_webuser;PASSWORD=webuser" ' ATTENZIONE LA LINEA DI CODICE QUI SOPRA NON VA MAI MODIFICATA set objConn = server.createObject("ADODB.Connection")' inizializzazione di una connessione al database objConn.Open connectionstring end sub 'fine della subroutine di connessione 'inizio subroutine di chiusura della connessione al database sub dbDisconnect(objConn) objConn.close set objConn = nothing end sub 'fine della subroutine di disconnessione ' ********************************* MAIN ****************************************** response.write "" 'output html intestazione head e meta response.write "" response.write "Hotel beauty spa benessere terme terapie salute vacanze coccole profumi aroma terapia mare montagna viaggi " response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" ' fine intestazione head e meta inizio del corpo del documento response.write "" 'output html inizio body pagina ' INIZIO CODICE PER LA TESTATA DELLA PAGINA response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "" response.write "
" ' inserisco due righe vuote tra il menu principale e la scritta in rosa response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" 'fine dell'inserimento delle due righe response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" 'response.write "" 'response.write "" 'response.write "" response.write "
" response.write "
" response.write "
Lasciati " response.write " trasportare dai profumi
" response.write "
e " response.write "goditi" response.write " le cure e " response.write " le coccole
dei " response.write "migliori centri d
" response.write "i benessere e beauty spa in italia e all'estero
 " response.write "
 " 'response.write "
" ' FINE CODICE PER LA TESTATA DELLA PAGINA ' CODICE MAPPA response.write " " response.write "" response.write "" ' FINE CODICE MAPPA 'INIZIO CODICE PER LA SEZIONE "SUPERCONSIGLIATI - CIOE' I 2 HOTEL CHE ESCONO AL CENTRO IN GRANDE" 'CON LE FOTO DI DIMENSIONI 239 X 155 - QUESTA SEZIONE PREVEDE A SX VOCI DI MENU A DX LINKS VARI HB 'CENTRO 2 HOTELS CON : FOTO 239X155 NOME_HOTEL NUMERO DI STELLE ED INDIRIZZO.. IL TUTTO LINKATO ALLA 'PAGINA ASP DELLA SCHEDA HOTEL. ' INTERROGO IL DATABASE SUI 2 HOTELS "SUPERCONSIGLIATI" 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 superconsigliati="select codice,nome,categoria from hotelbeautyspa_it_struttura.hotel where superconsigliato ='1' order by codice" ' query sql rs.Open superconsigliati, objConn 'il metodo Open esegue le azioni sul server... in questo caso esegue l'azione legata alla variabile selezione 'inizio l'impaginazione della sezione response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "" ' response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
I" response.write " TUOI DESIDERI
le " response.write "migliori offerte selezionate per te da Hotel beauty spa
 
I" response.write " PREFERITI
" response.write "Più visitati Hotel beauty spa
 
GLOSSARIO" response.write " - BENESSERE
Tutti" response.write " i termini del benessere
 
MIA" response.write " SPA
Tutto" response.write " per la tua spa
 
MAILING" response.write " LIST
Iscriviti" response.write "
 
" response.write "		" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
 " response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
HOTEL " response.write "BEAUTY SPA
risultato query
risultato query
risultato query
" response.write "		 " response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "
HOTEL " response.write "BEAUTY SPA
risultato query
risultato query
risultato query
 
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "
Hotel" response.write " benessere in Europa
" response.write "
" response.write "
" response.write "
" response.write "
" response.write "
Hotel" response.write "benessere in Italia
 
 
 
 
 
" set rs = nothing ' distruggo la variabile di RECORDSET ADO call dbDisconnect(objConn) ' distruggo la variabile di connessione ' FINE CODICE RELATIVO ALLA SEZIONE SUPERCONSIGLIATI ' FRONTALINO response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
 
ECCO" response.write " PER TE LE MIGLIORI STUTTURE SELEZIONATE DA HOTEL BEAUTY SPA
 
" ' FINE FRONTALINO ' INIZIO CODICE SEZIONE "PRIMAPAGINA" ' FINE CODICE SEZIONE "PRIMAPAGINA" ' INIZIO CODICE SEZIONE "CODA" ' FINE CODICE SEZIONE CODA '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 codice,nome,categoria from hotelbeautyspa_it_struttura.hotel where superconsigliato ='1' and regione='trentino' order by codice" ' query sql ' rs.Open selezione, objConn 'il metodo Open esegue le azioni sul server... in questo caso esegue l'azione legata alla variabile selezione ' response.write "" 'output html ' i=0 ' do while not rs.EOF ' con il do while not rs.eof scorro tutti i record trovati ' response.write "" 'output html apro una nuova riga per ogni record ' do while not i=rs.fields.count ' scorro e conto tutti i campi che la query estrae ' response.write "" 'output html scrivo il valore del campo i-esimo di ogni record ' i=i+1 'incremento il contatore di i ' Loop ' response.write "" ' chiudo la riga ' 'fine inserimento riga nella tabella ' rs.movenext' vado al record successivo ' Loop ' chiudo il ciclo sulla query ' response.write "
"& rs(i) &"
" 'output html response.write "" 'output html response.write "" 'output html ' rs.close 'chiudo la connessione ADO ' set rs = nothing ' distruggo la variabile di RECORDSET ADO 'call dbDisconnect(objConn) ' distruggo la variabile di connessione %>