Vädret på Bedarön - The weather on Bedarö island
<%
'Set dbCon = Server.CreateObject("ADODB.Connection")
'File="../../db/visitors.mdb"
'DSNtest = "DRIVER={Microsoft Access Driver (*.mdb)}; "
'DSNtest = DSNtest & "DBQ=" & Server.MapPath(File)
'dbCon.Open DSNtest
'Set dbSet = Server.CreateObject("ADODB.Recordset")
'dbSet.Open "SELECT * From Visitors where Recordtype='Counter'",dbCon,1,2
'Visitors = dbSet("Counter")
'Visitors = Visitors + 1
'dbSet("Counter") = Visitors
'dbSet.Update
'dbSet.Close
'Response.Write "Visat" & str$(Visitors) & " gånger sedan 27 nov 08
"
'Response.Write "Viewed" & str$(Visitors) & " times since 27 nov 08
"
%>