Ændring på ASP Kode
Hej!Jeg har et downloadsystem. Den side der downloader vil jeg ikke have at den skal downloade. Den skal bare gå hen til den side der står i databasen.
Her koden som jeg gerne vil have ændret:
<%
if(Request.QueryString("iFile") <> "") then cmdDownloads__varLink = Request.QueryString("iFile")
%>
<%
set cmdDownloads = Server.CreateObject("ADODB.Command")
cmdDownloads.ActiveConnection = MM_connDUdownload_STRING
cmdDownloads.CommandText = "UPDATE FILES SET FILE_DOWNLOADS = FILE_DOWNLOADS + 1 WHERE FILE_ID = " + Replace(cmdDownloads__varLink, "'", "''") + ""
cmdDownloads.CommandType = 1
cmdDownloads.CommandTimeout = 0
cmdDownloads.Prepared = true
cmdDownloads.Execute()
%>
<%
Dim rsDetail__MMColParam
rsDetail__MMColParam = "1"
If (Request.QueryString("iFile") <> "") Then
rsDetail__MMColParam = Request.QueryString("iFile")
End If
%>
<%
set rsDetail = Server.CreateObject("ADODB.Recordset")
rsDetail.ActiveConnection = MM_connDUdownload_STRING
rsDetail.Source = "SELECT FILE_URL FROM FILES WHERE FILE_ID = " + Replace(rsDetail__MMColParam, "'", "''") + ""
rsDetail.CursorType = 0
rsDetail.CursorLocation = 2
rsDetail.LockType = 3
rsDetail.Open()
rsDetail_numRows = 0
Response.Redirect(rsDetail.Fields.Item("FILE_URL").Value)
rsDetail.Close()
%>
{Dicito}
