|
|
<%
do while not rs.Eof ' con il do while not rs.eof scorro tutti i record trovati
'inizio inserimento in swap space
Set Conn = Server.CreateObject("ADODB.Connection") 'ATTIVO UNA CONNESSIONE AL DB
Set RR = Server.CreateObject("ADODB.Command") ' CREO UN OGGETTO QUERY
Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};DATABASE="& hotelbeautyspa_it_struttura &";SERVER=mysql.register.it;UID=MF622_danilo;PASSWORD=danilohb"
Conn.Open
RR.ActiveConnection = Conn
RR.CommandType = 1
RR.CommandText = "INSERT INTO hotelbeautyspa_it_struttura.swapvisit (pag,hit) VALUES ('"&rs(0)&"','"&rs(1)&"')"
RR.Execute 'INSERISCO NELLA TABELLA SWAPVISIT TUTTI I VALORI TROVATI NELLA TABELLA VISITE
Conn.Close 'CHIUDO LA CONNESSIONE
rs.movenext' fine inserimento in swap space
Loop
'set rs = nothing 'distruggo la query rs
'call dbDisconnect(objConn)'chiudo la connessione
'SELEZIONO I DATI INSERITI IN SWAP SPACE
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
DATISWAP="select pag,hit from hotelbeautyspa_it_struttura.swapvisit order by hit DESC" ' query sql
rs.Open DATISWAP, objConn 'il metodo Open esegue le azioni sul server... in questo caso esegue l'azione legata alla variabile selezione
'ADESSO FACCIO CICLARE LA QUERY ED INTABELLO I DATI ESTRATTI IN ORDINE DISCENDENTE
do while not rs.Eof 'and not i=10
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
%>
|
|