<% DBMicrosite con, "database", "consorteriaitalica" UrlImage = "http://microsite.consorteriaitalica.com/site/consorteriaitalica/upload/immagini/" sql="SELECT CATEGORIE.id, CATEGORIE.CATEGORIA, CATEGORIE.SOTTOTITOLO, CATEGORIE.IMMAGINE FROM CATEGORIE where CATEGORIE.id=" & request("id")& "" Set rs = con.Execute(SQL) if not rs.eof then cat_id = rs("id") cat_categoria = ucase(rs("CATEGORIA")) 'cat_sottotitolo = rs("sottotitolo") cat_sottotitolo=REPLACE(rs("sottotitolo"),VbCrLf,"
") cat_immagine = rs("IMMAGINE") nocat=1 else nocat=0 end if sql="SELECT ARTICOLI.id as idart, ARTICOLI.DATA, ARTICOLI.CATEGORIA, ARTICOLI.AUTORE, ARTICOLI.ARGOMENTO, ARTICOLI.TESTO_BREVE, ARTICOLI.TESTO, ARTICOLI.IMMAGINE FROM ARTICOLI where ARTICOLI.CATEGORIA=" & request("id")& " order by articoli.data desc" 'sql="SELECT CATEGORIE.id as IDCAT, CATEGORIE.CATEGORIA, CATEGORIE.SOTTOTITOLO, CATEGORIE.DESCRIZIONE, CATEGORIE.IMMAGINE, ARTICOLI.id as idart, ARTICOLI.data, ARTICOLI.autore, ARTICOLI.argomento, ARTICOLI.testo_breve, ARTICOLI.testo, ARTICOLI.immagine FROM ARTICOLI INNER JOIN CATEGORIE ON ARTICOLI.CATEGORIA = CATEGORIE.ID order by CATEGORIE.ID" Set rs = con.Execute(SQL) 'TESTO_breve=REPLACE(rs("TESTO_BREVE"),VbCrLf,"
") %>
Consorteria Italica ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
<% if nocat=1 then %>
<%=cat_categoria%>
<%=cat_sottotitolo%>
<%end if%> <% while not rs.eof %>
[stampa]
<%=rs("data")%>
- (di: <%=rs("autore")%>)
<%=rs("argomento")%>
<%=replace(rs("testo_breve"),vbcrlf, "
")%>
" class="linksubmenu">[Leggi]
<%rs.movenext wend%>
HOME
CHI SIAMO
MISSION
EVENTI
CONTATTI
Il Premio
Le Origini
Consorteria Oggi
Premiati Storici
Nuovi Premiati
Premio Internazionale
Arti
&
Mestieri
CALICE D'ORO 2003
Il Portale del
Food & Beverage
and Equipment
CARTA ORO TOP 500 MANAGER
Presidenza Consorteria Italica "Arti - Mestieri - Professioni" Milano - Italy
consorteria@oifb.com
