Calendario

 

NewsCalendario

     Raduno

     Gara

     Transalp

     Evento

Rosso = Concluso

Verde = A Breve

 

Free Tibet

 

Data

Tipo Evento / Descrizione

Link

<% set conn = server.createobject("adodb.connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("\public\cutenews\data\files\calendario.mdb") conn.Open DSNtemp sqlstmt = "SELECT * from tab_calendario WHERE (data_evento > Now()- 10) Order by data_evento ASC" Set RS = conn.execute(sqlstmt) If rs.eof then response.write "

Non ci sono Record nel Database" response.write "
Riprovare quando saranno presenti dei messaggi
" response.end End If Do while not rs.eof ID = rs("ID") PostDate = rs("PostDate") data_evento = rs("data_evento") img = rs("img") descr_evento = rs("descr_evento") link_evento = rs("link_evento") If data_evento < Now() Then rs.MoveNext Else End If %>

<% Today = Now() If data_evento < Today - 10 Then rs.MoveNext Else End If If data_evento < Today Then data_evento = "SCADUTO " & data_evento & " " Else End If If data_evento < Today + 11 Then data_evento = "" & data_evento & " " Else End If %><%= data_evento %>

  <% SELECT CASE img CASE 1 img= "" CASE 2 img= "" CASE 3 img= "" CASE 4 img= "" CASE ELSE img= "" END SELECT %><%= img %>

<%= descr_evento %>

<%= link_evento %>

<% rs.MoveNext loop set rs = nothing set conn = nothing %>

 

      Inserimento

      Modifica DB

 

 

Vday 25 APRILE 2008 - io ci saro'

 

 

 

   
[Home][Forum][News][Link][Contact Us][Gallery]

Copyright (c) 2008 Travelsharing by E. Marozzi. All rights reserved.

webmaster_AT_travelsharing.it