Newsgroup: it.comp.www.asp
Titolo: confronto tra orari. chiedo aiuto.

Salve,
ho realizzato un contatore..... che scrive su di un DB Access... ora io devo
realizzare dei grafici..... per fare questo ho scritto il seguente codice:
il mio problema sussiste quando c'è quell'obosoleto e senz'altro poco
elegante blocco di IF....... non so se il confronto tra orari è
corretto..... oppure devo usare qualke funzione di VBS che non
conosco....... ecco il codice.....
grazie a chi mi vorrà aiutare!!!!!!
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
server.MapPath("/contatore/DBAccessi.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
'crea una query che legge solo i record odierni
SQL="Select * FROM Accessi WHERE DataAccesso=#" & Date & "#"
  rs.Open SQL, conn, 3, 3
  redim distribuzione(24)  'creo una matrice nella quale mettero il numero
di visite per ore della giornata
  for i=0 to 23
   distribuzione(i)=0
  next
  rs.movefirst
  i=0
   while rs.eof<> True
    Ora=rs("OraAccesso")
    if Ora>="0.00.00" and Ora<"1.00.00" then
distribuzione(0)=distribuzione(0)+1
    if Ora>="1.00.00" and Ora<"2.00.00" then
distribuzione(1)=distribuzione(1)+1
    if Ora>="2.00.00" and Ora<"3.00.00" then
distribuzione(2)=distribuzione(2)+1
    if Ora>="3.00.00" and Ora<"4.00.00" then
distribuzione(3)=distribuzione(3)+1
    if Ora>="4.00.00" and Ora<"5.00.00" then
distribuzione(4)=distribuzione(4)+1
    if Ora>="5.00.00" and Ora<"6.00.00" then
distribuzione(5)=distribuzione(5)+1
    if Ora>="6.00.00" and Ora<"7.00.00" then
distribuzione(6)=distribuzione(6)+1
    if Ora>="7.00.00" and Ora<"8.00.00" then
distribuzione(7)=distribuzione(7)+1
    if Ora>="8.00.00" and Ora<"9.00.00" then
distribuzione(8)=distribuzione(8)+1
    if Ora>="9.00.00" and Ora<"10.00.00" then
distribuzione(9)=distribuzione(9)+1
    if Ora>="10.00.00" and Ora<"11.00.00" then
distribuzione(10)=distribuzione(10)+1
    if Ora>="11.00.00" and Ora<"12.00.00" then
distribuzione(11)=distribuzione(11)+1
    if Ora>="12.00.00" and Ora<"13.00.00" then
distribuzione(12)=distribuzione(12)+1
    if Ora>="13.00.00" and Ora<"14.00.00" then
distribuzione(13)=distribuzione(13)+1
    if Ora>="14.00.00" and Ora<"15.00.00" then
distribuzione(14)=distribuzione(14)+1
    if Ora>="15.00.00" and Ora<"16.00.00" then
distribuzione(15)=distribuzione(15)+1
    if Ora>="16.00.00" and Ora<"17.00.00" then
distribuzione(16)=distribuzione(16)+1
    if Ora>="17.00.00" and Ora<"18.00.00" then
distribuzione(17)=distribuzione(17)+1
    if Ora>="18.00.00" and Ora<"19.00.00" then
distribuzione(18)=distribuzione(18)+1
    if Ora>="19.00.00" and Ora<"20.00.00" then
distribuzione(19)=distribuzione(19)+1
    if Ora>="20.00.00" and Ora<"21.00.00" then
distribuzione(20)=distribuzione(20)+1
    if Ora>="21.00.00" and Ora<"22.00.00" then
distribuzione(21)=distribuzione(21)+1
    if Ora>="22.00.00" and Ora<"23.00.00" then
distribuzione(22)=distribuzione(22)+1
    if Ora>="23.00.00" and Ora<"0.00.00" then
distribuzione(23)=distribuzione(23)+1
    rs.movenext
    i=i+1
   wend
   max=distribuzione(0)
   for i=1 to 23
    if distribuzione(i)>max then max=distribuzione(i)
   next
%>

Modifica il ciclo While così
    while rs.eof<> True
     Ora=HOUR(rs("OraAccesso"))
     distribuzione(Ora)=distribuzione(Ora)+1
     rs.movenext
     i=i+1
    wend
    max=distribuzione(0)
        ciao
--
==============================
Rocco Di Maiolo -> 
ro...@netgroup.it
==============================