<%@ Language=VBScript %> <% 'on error resume next dim conn set conn = server.CreateObject ("ADODB.connection") dim rsCounter set rsCounter = server.CreateObject("ADODB.Recordset") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("hits.mdb") rsCounter.Open "Select * from visit ",conn 'Response.Write("hello :" & rsCounter("count")) strUpdateSQL = "UPDATE visit SET hits = " & rsCounter("hits")+1 conn.Execute(strUpdateSQL) %>

© 2002 All rights reserved     webmaster@accessde.com
Best Viewed in 800 x 600 Resolution

<% rsCounter.Close set rsCounter=nothing %>