Código:
El RSD es el encargado de la tabla de descargas y el RS de la tabla del archivo...<%if session("user")="" then response.redirect "registro.asp"%>
<!--#include file="conexion.inc" -->
<%
id=request("id")
nivel=session("nivel")
de=request("de")
if de="" then vienen= request.ServerVariables("HTTP_REFERER") else vienen=de
Set RSd = Server.CreateObject("ADODB.Recordset")
rs.CursorType = 2
rs.LockType = 3
rs.CursorLocation = 3
rsd.CursorType = 2
rsd.LockType = 3
rsd.CursorLocation = 3
SQL = "SELECT * FROM archivos WHERE id = "& id
RS.Open sql, conexion
if not rs.eof and nivel=>rs("nivel") then
archivo = rs("url")
nombre = replace(archivo,"archivos/","")
nombre = replace(nombre," ","_")
Response.ContentType = "application/x-unknown" ' arbitrary
FPath = server.mappath (archivo)
Response.AddHeader "Content-Disposition","attachment; filename=" & nombre
Set adoStream = CreateObject("ADODB.Stream")
adoStream.Open()
adoStream.Type = 1
adoStream.LoadFromFile(FPath)
Response.BinaryWrite adoStream.Read()
adoStream.Close
Set adoStream = Nothing
SQLd="Select * From descargas"
RSd.Open sqld,conexion
rsd.addnew
rsd("archivo") = rs("id")
rsd("usuario") = session("user")
rsd("fecha") = now()
rsd("ip") = Request.ServerVariables("REMOTE_HOST")
rsd.update
rsd.close
descargas=rs("descargas")
rs("descargas")=descargas+1
rs.update
rs.close
Response.End
response.redirect "descargas.asp" 'vienen
else
response.redirect "index.asp?e=4&p="&prod&"&prod="&producto
end if
%>
Ademas no se redirecciona a la pagina descargas.asp cuando se hace la descarga...
Tambien quisiera saber si es posible, de manera simple generar este hit cuando realmente se genere la descarga por que si la cancelo de cualquier manera la cuenta como hit, aunque esto no me apuraria mucho
espero su ayuda...gracias de antemano


