
29/01/2003, 10:15
|
 | | | 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
%> |