Hola choroy...
Segun lo que entendi tendrias que hacer lo siguiente...
<%
id=request.querystring("id")
Set oConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "mibase"
sql="Select distinct id From paginasvistas"
set rs = oConn.execute(sql)
if rs.eof then
sql="INSERT INTO paginasvistas (id,visitas) VALUES ('" & id & "',0)"
set rs = oConn.execute(sql)
else
sql="update paginasvistas set "&visitas&" = "&visitas&"+1 where id="&id
set rs = oConn.execute(sql)
end if
rs.close
oConn.close
Set rs = nothing
set oConn = nothing
%>
Creo que es lo que necesitas... en caso contrario explica mejor los detalles de tu problema...
Saludos...
