Download Mananger

Hej,

Jeg sidder med et problem med et download system som jeg ikke kan få til at virke...

Når jeg trykker på download henter den fra min databasa et link virker. Dvs at hvis jeg bare skriver linket ind i browseren selv så kommer downloadboxen frem. Fatter ikke hvad der er galt?

Sådan ser mit download.asp ud:

<!--#include file='dbconnection.inc'-->
<%

Dim DataConn, rsDC
Dim sRequestIP, FileToDownload
Dim objRecordset

FileToDownload=Clng(Request.QueryString("5"))
sRequestIP=Request.ServerVariables("REMOTE_ADDR")

Set rsDC = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tbldownload WHERE DownloadID =" & FileToDownload
rsDC.Open strSQL, adoCon

If Not rsDC.EOF Then

numDLCount = rsDC("DownloadCount") + 1

response.write "<META HTTP-EQUIV='refresh' CONTENT='3; URL=" & rsDC("DownloadURL") & "'>"
response.write "<p align='center'>Downloading <B>" & rsDC("DownloadTitle") & "</B> (" & rsDC("DownloadSize") & " bytes)<BR>"
response.write "<a href='" & rsDC("DownloadURL") & "' target='main'>"
response.write "Click here if your download does not start in 3 seconds</a></p>"


Set objRecordset = Server.CreateObject("ADODB.Recordset")
strSQL = "UPDATE tbldownload SET tbldownload.DownloadCount='" & numDLCount & "' WHERE DownloadID =" & FileToDownload
objRecordset = adoCon.Execute(strSQL)

else

response.write "File requested is no longer available for download"

end if

Set rsDC = Nothing
Set objRecordset = Nothing
adoCon.Close
Set adoConn = Nothing
%>