% dim conSakav,strConnection,rstSakav 'strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\") & "\PHP\Sakav.mdb;" & _ '"Persist Security Info=True" strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\Sakav") & "\PHP\Sakav.mdb;Persist Security Info=True" set conSakav = Server.CreateObject("ADODB.Connection") conSakav.Open strConnection Set rstSakav = Server.CreateObject("ADODB.Recordset") rstSakav.Open "select iCounter from Sakav_Count",conSakav Response.Write Application("Counter") If Application("Counter") < rstSakav("iCounter") then strConnection="Update Sakav_Count set iCounter = iCounter + 1 where vNoOfUsers='TotalUsers'" Else strConnection="Update Sakav_Count set iCounter = " & Application("Counter") & " where vNoOfUsers='TotalUsers'" End if conSakav.Execute strConnection rstSakav.Close conSakav.Close set rstSakav = Nothing Set conSakav = nothing %>