<%@Language=VBScript%> <%Response.Buffer = True%> La Rocca Pasticceria News
news
<% SQL = "Select ID, MESE, GIORNO, Anno, CITTA, LOCALITA, INDIRIZZO, NOME, INFO, CONTATTI, DATA, SCADENZA, PUBBLICATO, ORE From Eventi WHERE pubblicato='si' and scadenza>=now() Order By DATA" Set RS = MyConn.Execute(SQL) Response.Write "
" if RS.EOF Then Response.write "


Siamo spiacenti, al momento non ci sono news,
saranno pubblicate al pił presto,
tornate a visitare questa pagina.

" While Not RS.EOF Response.Write "
" Response.Write "" %>
<% if RS("GIORNO") <> "" then %> <% if RS("Localita") <> "" then %> <% END IF %> <% if RS("contatti") <> "" then %> <% END IF %>
<% Response.write RS("GIORNO")%> - <% Response.write RS("MESE")%> - <% Response.write RS("Anno")%><% END IF %> <% if RS("ore") <> "" then %> - ore: <% Response.write RS("ORE")%> - <% END IF %> <% if RS("citta") <> "" then %> <% Response.write RS("CITTA")%> <%END IF %>

<% Response.write RS("NOME")%>

Luogo: <% Response.write RS("Citta")%> - <% Response.write RS("LOCALITA")%> - <% Response.write RS("INDIRIZZO")%>

<% Response.write RS("INFO")%>

Informazioni e contatti: "> <% Response.write RS("CONTATTI")%>


<% rs.movenext wend RS.Close MyConn.Close Set RS = Nothing Set Conn = Nothing %>