<% Dim intID: intID=Request.QueryString("ID") if intID = "" Then ' // non ci sono id quindi mostra tutti gli elenchi dei risultati %> <% Response.Write(GetNews()) %> <% else Dim txTitolo, txAutore, txDescrizione, txData, txTipoImmagine, txTipologia, txNewsFirstImage, txVisite, txVideoUTube GetTheNews(intID) %>

<%=txTipoImmagine%> <%=txTipologia%> <%=txTipoImmagine%>
<%=txTitolo%>
<%=txDescrizione%> Autore: <%=txAutore%>	<%=GetNewsImages(intID)%>
<%=txVideoUTube%>
questo articolo è stato letto <%=txVisite%> volte
Aggiungi un commento :
I commenti degli utenti:
<%=GenerateCommenti(intID)%>

<% end if %>