Problema Bd registros al hacer click

[iquei]

Haber si me podeis ayudar, me conecto a una BD y muestros todos los registros, con este codigo:
<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

' opening connection
rs.Open "select [UploadID],[UploadDT],[Description],[SourceFileName],[DataSize],[ContentType] " & _
"from revista order by [UploadID] asc", connStr, 3, 4

If Not rs.EOF Then
Response.Write "<tr><td colspan=""8"" align=""center""><i>"
Response.Write "Tabla: Revista "
Response.Write " / Nº. de Registros: </i>" & rs.RecordCount
Response.Write "<br></td></tr>"

While Not rs.EOF
Response.Write "<tr><td>"
Response.Write rs("UploadID") & "</td><td>"
Response.Write rs("UploadDT") & "</td><td>"
Response.Write rs("Description") & "</td><td>"
Response.Write "<a href=""fileR.asp?ID=" & rs("UploadID") & """>"
Response.Write rs("SourceFileName") & "</a></td><td>"
Response.Write rs("DataSize") & " Kb</td><td>"
Response.Write rs("ContentType") & "</td><td>"
Response.Write "</td></tr>"
rs.MoveNext
Wend
Else
Response.Write "Ningún registro encontrado"
End If

rs.Close
Set rs = Nothing
%>

En esta linea: Response.Write "<a href=""fileR.asp?ID=" & rs("UploadID") & """>"
tengo que hacer click para abrir el archivo y mostrarlo y cuando lo hago no me muestra nada, pero no me da ningun mensaje de error, la abre pero no me muestra nada.
Los archivos son archivos PDF, haber si me podeis ayudar.
Gracias Salu2

[Adler]

Hola

¿Qué valor trae rs("UploadID")? ¿incluye la extensión?. Pobablemente el problema esté en el documento fileR ¿Por qué lo usas, cuando desde este documento puedes abrir el archivo

Response.Write "<a href="" & rs("UploadID") & " &".extension">"

Suerte

[iquei]

El archivo fileR.asp, con otra base de datos lo estoy usando y no me psa lo mismo, el codigo del archivo FileR.asp es:
<%
' -- file.asp --
' Retrieves binary files from the database

Response.Buffer = True

' ID of the file to retrieve
Dim ID
ID = Request("UploadID")

If Len(ID) < 1 Then
ID = 7
End If

' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("/mdb/ayunportugos.mdb")

' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

' opening connection
rs.Open "select [DestFileName],[ContentType] from revista where UploadID = " & _
ID, connStr, 2, 4

If Not rs.EOF Then
Response.ContentType = rs("ContentType")
Response.BinaryWrite rs("DestFileName")
End If


rs.Close
Set rs = Nothing
%>

Los datos que guarda el campo en la base de datos son la ruta de donde esta el archivo, que son estas lineas:
Response.Write "<a href=""fileR.asp?ID=" & rs("UploadID") & """>"
Response.Write rs("SourceFileName") & "</a></td><td>"

Como lo habro directamente desde aqui?
Gracias

[Adler]

Hola

Así

Código asp:

Response.Write "<a href=""" & rs("UploadID") & """>"
Response.Write rs("SourceFileName") & "</a></td><td>"
 

Suerte

[iquei]

Gracias, esta todo solucionado, esto es el codigo por si alguien lo quiere utilizar:

<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

' opening connection
rs.Open "select [UploadID],[UploadDT],[Description],[SourceFileName],[DataSize],[ContentType] " & _
"from revista order by [UploadID] asc", connStr, 3, 4

If Not rs.EOF Then
Response.Write "<tr><td colspan=""8"" align=""center""><i>"
Response.Write "Tabla: Revista "
Response.Write " / Nº. de Registros: </i>" & rs.RecordCount
Response.Write "<br></td></tr>"

While Not rs.EOF
Response.Write "<tr><td>"
Response.Write rs("UploadID") & "</td><td>"
Response.Write rs("UploadDT") & "</td><td>"
Response.Write rs("Description") & "</td><td>"
Response.Write "<a href=""" & "/revista/" & rs("SourceFileName") & """>"
Response.Write rs("SourceFileName") & "</a></td><td>"
Response.Write rs("DataSize") & " Kb</td><td>"
Response.Write rs("ContentType") & "</td><td>"
Response.Write "</td></tr>"
rs.MoveNext
Wend
Else
Response.Write "Ningún registro encontrado"
End If

rs.Close
Set rs = Nothing
%>

Como veras en la linea que tu me decias, he cambiado, rs("UploadID") por esto
& "/revista/" & rs("SourceFileName") y asi le digo la ruta donde esta y no como en la otra que le estaba diciendo el ID.

Gracias por todo Salu2