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

" %>