Vale, lo he adaptado a lo que ya tenia, pero me da un error, a ver si alguien sabe porque da ese error. Os pongo los códigos de ambas páginas.
Por una parte está el archivo StartDownload.asp que es donde da el error, aqui lo único que he modificado ha sido comentar las lineas que hacian referencia al tamaño del archivo, xq no me hacia falta. El fallo que da es el siguiente:
Código:
Tipo de error:
ADODB.Stream (0x800A0BBA)
No se pudo abrir el archivo.
/serviciosonline/personal/startDownload.asp, line 28
Código PHP:
<%
'8***********************************************8
' Jason Withrow - For ASP101 July 2001
' This page forces the save as dialogue to prevent
' files from being opened in the browser.
'
' [email]jwithrow@mediaone.net[/email]
'8***********************************************8
Response.Buffer = True
Dim strFilePath, strFileSize, strFileName
Const adTypeBinary = 1
strFilePath = Request.QueryString("File")
'strFileSize = Request.QueryString("Size")
strFileName = Request.QueryString("Name")
Response.Clear
'8*******************************8
' Requires MDAC 2.5 to be stable
' I recommend MDAC 2.6 or 2.7
'8*******************************8
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath ---> AQUI DA EL ERROR
strFileType = lcase(Right(strFileName, 4))
' Feel Free to Add Your Own Content-Types Here
Select Case strFileType
Case ".asf"
ContentType = "video/x-ms-asf"
Case ".avi"
ContentType = "video/avi"
Case ".doc"
ContentType = "application/msword"
Case ".zip"
ContentType = "application/zip"
Case ".xls"
ContentType = "application/vnd.ms-excel"
Case ".gif"
ContentType = "image/gif"
Case ".jpg", "jpeg"
ContentType = "image/jpeg"
Case ".wav"
ContentType = "audio/wav"
Case ".mp3"
ContentType = "audio/mpeg3"
Case ".mpg", "mpeg"
ContentType = "video/mpeg"
Case ".rtf"
ContentType = "application/rtf"
Case ".htm", "html"
ContentType = "text/html"
Case ".asp"
ContentType = "text/asp"
Case Else
'Handle All Other Files
ContentType = "application/octet-stream"
End Select
Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
' Response.AddHeader "Content-Length", strFileSize
' In a Perfect World, Your Client would also have UTF-8 as the default
In Their Browser
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
%>
Y aqui os pongo el código del enlace que llama a StartDownload.asp para que fuerze a descargar el archivo:
Código PHP:
<% enlace = "startDownload.asp?File=" & Server.urlEncode(curriculums.Fields.Item("pathcurriculum").Value) & "&Name=" & Server.urlEncode(curriculums.Fields.Item("dni").Value) & ".doc"%>
<font face="Arial, Helvetica, sans-serif" size="2">Puede ver su currículum
pulsando <a href="<%=enlace%>">aqui</a></font></p>
El enlace se crea bien, por que si hago que me saque el enlace por pantalla sale lo siguiente:
Código PHP:
startDownload.asp?File=%2E%2Fdocs%2Fcurriculums%2F&Name=111.doc
Weno, espero que me podais ayudar, muchas gracias. Salu2
