|
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
|
|
Venta de Equipos e Insumos Computacionales
Servicio Consultoría, Venta e Instalación
|
|
TecnoKey, presta a las empresas un servicio Integral en nuevas tecnologías, que comprende desde el análisis de las necesidades tecnológicas de compañía, asesoramiento y consultoría, hasta la venta y suministros de equipos informáticos, instalación, configuración del nuevo equipamiento además de la formación de su personal.
Nuestro servicio le ofrece la solución completa a la implementación de nuevos sistemas que incluye todo lo necesario para su puesta en marcha como la instalación y configuración del software que usted requiera y el montaje del equipamiento en su domicilio.
|
|
Volver
|
|
|
