|
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%>
|
|
|
|
Servicios Tecnológicos para Pequeñas y Medianas Empresas: Una solución Integral para Su Empresa
|
Diseño Web & Internet
Le ofrecemos servicios globales para la empresa y particulares en Internet, partiendo desde lo mas básico la conexión a Internet, el correo electrónico, las páginas Web estáticas, hasta llegar a los últimos avances en programación para Internet.
Además toda la filosofía de Internet es aplicable a la empresa utilizando la Intranet, Extranet y las redes privadas virtuales (VPN).
No lo dude todo el Asesoramiento que necesita para una correcta utilización de los recursos de Internet lo obtendrá de los profesionales de TecnoKey.
Volver
|
|
|
