Ver Mensaje Individual
  #6 (permalink)  
Antiguo 29/01/2003, 10:15
Avatar de chesco1980
chesco1980
 
Fecha de Ingreso: enero-2003
Mensajes: 82
Antigüedad: 22 años, 3 meses
Puntos: 1
Para ftmad

Yo lo tengo asi pero no me va ahi va el codigo:

<%
Response.Buffer=TRUE
url = Request.Querystring("url") 'recogo la variable que contiene la direccion web

' compruebo que no sea nula, aunque no creo que se de el caso
' la url que se den de alta tiene que ser incluidas a la fuerza
if url <> "" then
'creo el objeto conexion y la tabla
dim conexion, tabla, temp
set conexion= Server.CreateObject("ADODB.Connection")
Set tabla = Server.CreateObject("ADODB.RecordSet")
'************************************************* *

conexion.open "basic-system.org.portalasp" 'conexion a la base de datos
'Consulta que coge el enlace web para añadir un click
temp = "SELECT * FROM enlace_descarga WHERE enlace = '" & url & "'"
'************************************************* *

tabla.open temp, conexion, 3,3
tabla("visitado") = tabla("visitado") + 1 'añado un click
tabla.update 'actualizo
' Cerramos conexiones y tablas y vaciamos variables


'************** Vaciamos y cerramos variables *********************
tabla.Close
set tabla = nothing
set temp = nothing
conexion.Close
set conexion = nothing
'************************************************* ******

'**************Redireccionamos a la url ****************

response.redirect url 'redireccionamos a la web pinchada
end if
%>