<%@ Language=VBScript %> <% if cnSito.state=0 then cnSito.open end if set rsS=server.CreateObject("ADODB.Recordset") rsS.open "SELECT * FROM Visite",cnSIto,3,3 if session("visite")=false then' rss("visite")=rss("visite")+1 rss.update session("visite")=true end if rss.close set rss=nothing %> <% rsp.Close set rsp=nothing cnsito.close set cnsito=nothing %>

	<% if cnsito.state=0 then cnsito.open end if set rsP=server.CreateObject("ADODB.Recordset") rsp.Open "SELECT * FROM Radio",cnSito,3,3 Response.Write(rsp("Titolo")) %>
	<%=formatstr(rsp("Articolo"))%>