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