<%@ Language = "VBScript" %> <% strConn="Driver=Microsoft Access Driver (*.mdb); DBQ=\webhosts\AxiomWebSites\defactotextile\db\counter.mdb" Set objConn = Server.CreateObject("ADODB.Connection") Set objRec= Server.CreateObject("ADODB.Recordset") objConn.Open strConn objRec.open "details", objConn, adOpenKeyset, adLockOptimistic, adCmdTable ObjRec.MoveFirst objRec("visits")=objRec("visits")+1 ObjRec.Update ObjRec.Close objConn.close %>