Link før download af fil
Nedanstående tabell viser vilke filer jeg har i en AccessDB.I linje 50 vil jeg ha mulighed at få en link så man kan DL filen.
Hvordan skriver jeg så koden.
Filen ligger i http://domain.dk/upload/
Har prøvet fler varianter med <a href uden resultat.
I DB "download" har jeg lagt hele stien til filen
Koden:
1. <%
2. Option Explicit
3.
4. Dim sRowColor
5. Dim objDB
6. Dim objRS
7. Dim sDBName
8.
9. 'TODO: Verify database path...
10. sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=D:\Inetpub\wwwroot\SIDES\aspupload.mdb"
11. Set objDB = Server.CreateObject("ADODB.Connection")
12. objDB.Open sDBName
13.
14. 'TODO: Modify the next line to only return the records you want...
15. Set objRS = objDB.Execute("select * from myimages")
16.
17. Response.Write("<html>")
18. Response.Write("<head>")
19. Response.Write("<title>Beskrivelse</title>")
20. Response.Write("</head>")
21. Response.Write("<body bgcolor=black>")
22.
23. Response.Write("<center><h3><font color=red>Beskrivelse af filerne</h3></font></center>")
24.
25. If objRS.EOF Then
26. Response.Write("<b>Inga resultat fundna.</b>")
27. objRS.Close
28. objDB.Close
29. Set objRS = Nothing
30. Set objDB = Nothing
31. Response.End
32. End If
33.
34. Response.Write("<table border=0 cellpadding=2 cellspacing=2>")
35. Response.Write("<tr bgcolor=silver>")
36.
37. Response.Write("<th filter=ALL>Filnavne</th>")
38. Response.Write("<th filter=ALL>Filestørrelse</th>")
39. Response.Write("<th filter=ALL>Beskrivelse</th>")
40. Response.Write("<th filter=ALL>Download</th>")
41. Response.Write("</tr>")
42.
43. sRowColor = "lightblue"
44.
45. Do While Not objRS.EOF
46. Response.Write("<tr bgcolor=" & sRowColor & ">")
47. Response.Write("<td>" & objRS("Filename") & "</td>")
48. Response.Write("<td>" & objRS("Filesize") & "</td>")
49. Response.Write("<td>" & objRS("Description") & "</td>")
50. ?????? Response.Write("<td>" & objRS("download") & "</td>")????????????
51. Response.Write("</tr>")
52. objRS.MoveNext
53. Loop
54.
55. Response.Write("</table>")
56. Response.Write("</body>")
57. Response.Write("</html>")
58.
59. objRS.Close
60. objDB.Close
61. Set objRS = Nothing
62. Set objDB = Nothing
63.
64. %>
