Gæstebog

Left Sidebar

Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua

<% Dim rs Dim dCount Dim Conn Dim sq 'Update vis counter sq = Int(request.QueryString("update")) Set Conn = Server.CreateObject("ADODB.Connection") Conn.Provider = "Microsoft.Jet.OLEDB.4.0" Conn.Open Server.MapPath("GBdata.mdb") Set rs = Server.CreateObject("ADODB.recordset") rs.Open "gAdmin", Conn dCount = rs("Count") rs.Close rs.Open "gAdmin", Conn, 1, 3 'Don't update the vistor counter if we have an update If (sq <> 1) Then rs.Fields("Count") = Int(dCount) + 1 Else dCount = dCount - 1 End If rs.Update rs.Close Conn.Close Set rs = Nothing Set Conn = Nothing '--------End of counter code-------- 'Main loading code Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ= " & Server.MapPath("GBdata.mdb") rs.Source = "SELECT * FROM demo" rs.CursorType = 0 rs.CursorLocation = 3 ' 2 rs.LockType = 1 rs.Open 'Get total number of records Count = rs.RecordCount %> <% rs.close set rs = nothing %>