<%
Set BD = Server.CreateObject("ADODB.Connection")
BD.Open "estaeninternet.com.contador"
Set BaseDatos = Server.CreateObject("ADODB.Recordset")
contador = request("contador")
'CONTADOR = 1 MARCA
if Session("contado")="" then
Session("contado") = "NO"
end if
if Session("Contado")= "NO" then
sql = "SELECT * FROM contador WHERE id_contador=1"
BaseDatos.Open sql, BD
Marca = BaseDatos("Marca")
Otros = BaseDatos("Otros")
BaseDatos.close
if contador = 1 then
Marca = cint(Marca) + 1
else
Otros = cint(Otros) + 1
end if
sql = "UPDATE contador SET Marca='"&Marca&"', otros='"&Otros&"' WHERE Id_contador=1"
'response.write sql
BD.Execute(sql)
Session("contado") = "SI"
end if
%>
Sauco Consulting Diseño, Programacion y Aplicaciones Web. HTML FLASH ASP MYSQL
