%@ 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 %>