|
Nº de visitas
|
|
<%
'Conectamos a la BD.
Set ConexionBD = Server.CreateObject("ADOdb.Connection")
ConexionBD.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("tecnocom.mdb")
sql="Select * from contador"
Set RS = ConexionBD.Execute(sql)
sql="Select Max(id) as maximo from contador"
Set RS = ConexionBD.Execute(sql)
if modulo=1 then
max_id=rs("maximo")+1
else
max_id=rs("maximo")
end if
if modulo=1 then
sql="Update contador set id="&max_id
Set RS = ConexionBD.Execute(sql)
end if
contador=max_id
%>
<%=contador%>
|
|
|
|