
|
|
<%
connexion1 = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\www\dpn-moules.com\htdocs\base1.mdb"
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open connexion1
SQLid = "UPDATE visiteurs SET compteur = compteur + 1"
Set ObjRS1 = Server.CreateObject("ADODB.Recordset")
ObjRS1.Open SQLid, Conn1 , 3, 3
SQLid = "SELECT * FROM visiteurs"
Set ObjRS1 = Server.CreateObject("ADODB.Recordset")
ObjRS1.Open SQLid, Conn1 , 3, 3
response.write(ObjRS1("compteur"))
%>
|
|