como se puede hacer esto....

[choroy]

Hola, segun el siguiente codigo:

<%
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)

===========================================

Aqui quiero hacer que si el id que se recoge por url no está en la seleccion anterior se cree mediante:

sql="INSERT INTO paginasvistas (id,visitas) VALUES ('" & id & "',0)"
set rs = oConn.execute(sql)

===========================================

sql="update paginasvistas set "&visitas&" = "&visitas&"+1 where id="&id
set rs = oConn.execute(sql)

rs.close
oConn.close
Set rs = nothing
set oConn = nothing
%>

No se si se me habra entendido.

Un saludo

[MsTech.DotNet]

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...

[choroy]

Hola MsTech.DotNet, lo que quiero es saber si la variable request.querystring("id") se encuentra en la tabla "paginasvistas", para si no lo esta insertarla con "0" como valor de las "visitas" en ese "id" y si está aumentar 1 el valor de "visitas" en ese "id".

Voy a probar esto a ver:

<%
id=request.querystring("id")
Set oConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "jubilardb"

sql="Select * From paginasvistas where id="&id
set rs = oConn.execute(sql)

if rs.eof then
sql="INSERT INTO paginasvistas (id,visitas) VALUES ('" & id & "',1)"
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
%>

Un saludo

[MsTech.DotNet]

Si bueno eso me supuse... intenta asi como lo puse a ver si te sirve...

Cualquier cosa avisas...

Saludos...