<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="VB" runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
Dim objCon As New SQLConnection("server=DBSERVER;User id=USER;password=PASSWORD;database=DB")
Dim cmd As SQLCommand = New SQLCommand("update Contatore set Visite = Visite + 1", objCon)
objCon.Open()
Dim r as SQLDataReader
r = cmd.ExecuteReader()
r.read()
contatoreVisite.text = "Visite : " & r.item(0)
end sub
</script>
<html>
<head>
</head>
<body>
<asp:label ID="contatoreVisite" runat="server"/>
</body>
</html>