<% '************************ DATI PER HOTELMANAGEMENT giorno=day(date()) mese=Month(date()) anno=year(date()) ora=hour(time()) minuti=minute(time()) secondi=second(time()) if len(giorno)=1 then giorno="0" & giorno if len(mese)=1 then mese="0" & mese if len(ora)=1 then ora="0" & ora if len(minuti)=1 then minuti="0" & minuti if len(secondi)=1 then secondi="0" & secondi dataer=giorno & "/" & mese & "/" & anno & " " & ora & ":" & minuti & ":" & secondi '***** codice utente instant booking codice_utente_i_b = "1015" sql="select * from tb_login where codice_utente_i_b='"& codice_utente_i_b &"' " 'response.write sql set rs=conn.execute(sql) id_utente = rs("id") set rs = nothing '************************ FINE DATI PER HOTELMANAGEMENT %> <% '***** codice utente instant booking codice_utente_i_b = "1015" sql="select distinct camera from tb_listini where id_utente="& id_utente &" order by camera" 'response.write sql set rs=conn.execute(sql) if rs.eof then %> <% else sql_info="select * from tb_listini where id_utente="& id_utente &" and camera='"& rs("camera") &"' ORDER BY camera, periodo " set rs_info=conn.execute(sql_info) if rs_info.eof then else annotazioni = Replace(rs_info("annotazioni"),Chr(13),"
") titolo = rs_info("titolo") end if set rs_info = nothing bgcolor = "#ECE7D5" %> <% end if set rs = nothing %>

Sezione in aggiornamento
<% do while not rs.eof if bgcolor = "#E5DAC0" then bgcolor = "#CCBF9D" else bgcolor = "#E5DAC0" end if %> <% 'dati per singola camera sql_c = "select * from tb_listini where id_utente="& id_utente &" and camera = '"& rs("camera") &"' order by periodo" set rs_c=conn.execute(sql_c) if rs_c.eof then else do while not rs_c.eof %> <% rs_c.movenext loop end if set rs_c = nothing %> <% rs.movenext loop %>
<%=titolo%>
  Periodo Prezzo
<%=split(rs("camera"), "_")(1)%>
<%=split(rs_c("periodo"), "_")(1)%> € <%=FormatNumber(rs_c("prezzo"),2)%>
<%=annotazioni%>