|
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
|
ASESORÍA & CONSULTORÍA
Ponemos a su disposición toda nuestra experiencia para asesorarle en la creación de diferentes necesidades. Partiendo de cero, hasta llegar al final del proyecto. Todo con la máxima calidad y garantía. Puede solicitar más información detallada del área que mejor se adapte a sus necesidades.
Desarrollamos informes con toda la información necesaria ilustrando COMO sacar adelante el proyecto solicitado.
También puede acceder a nuestra consultoría on-line donde de una manera muy sencilla puede hacernos llegar sus dudas y consultarnos todo aquello que le preocupa, quisiera poder hacer o adquirir, o simplemente tiene curiosidad.
Volver
|
|
|
