Lav hyperlink til et tekstfelt i database
Hej!Jeg har en database med et felt "PDF_URL", hvori jeg indtaster stien til den pågældende PDF-fil. Jeg skriver dog kun "den lokale sti på sitet, f.eks. "website/PDF/P112.pdf".
Når jeg laver mit udtræk, der vises på en hjemmeside, vil jeg gerne have et hyperlink på den pågældende PDF-fil. Den skal altså være mulig at åbne/downloade.
Jeg har en ide om at jeg skal have fat i noget Server.URLencode eller lign., men jeg mangler noget inspiration (læs: hjælp) her.
Er spørgsmålet klart formuleret?
Nedenfor ser du min kode:
<%
Option Explicit
Dim objConn
Dim objRs
Dim intPosternumber
Dim strSQL, strCompetence, strTitle, strSubtitle, strLanguage, strPDF_URL, strFilesize, strBGColor, strPosters
Dim blnBGColor
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("Database/Posters.mdb")
strSQL = "SELECT Posternumber, Competence, Title, Subtitle, Language, PDF_URL, Filesize FROM Data ORDER BY Posternumber DESC;"
Set objRs = objConn.Execute(strSQL)
If Not (objRs.BOF AND objRs.EOF) Then
Do While Not objRs.EOF
intPosternumber = objRs("Posternumber")
strCompetence = objRs("Competence")
strTitle = objRs("Title")
strSubtitle = objRs("Subtitle")
strLanguage = objRs("Language")
strPDF_URL = objRs("PDF_URL")
strFilesize = objRs("Filesize")
If blnBGColor = True Then
strBGColor = "#999966"
blnBGColor = False
Else
strBGColor = "#CCCC99"
blnBGColor = True
End If
strPosters = strPosters & "<tr bgcolor="""& strBGColor &"""><td>"& intPosternumber &"</td><td>"& strCompetence &"</td><td>"& strTitle &"</td><td>"& strSubtitle &"</td><td>"& strLanguage &"</td><td>"& strPDF_URL &"</td><td>"& strFilesize &"</td></tr>"
objRs.MoveNext
Loop
Else
strPosters = "<tr><td colspan=""2"">Der er ingen Poster!</td></tr>"
End If
objConn.Close
Set objConn = Nothing
Response.Write("<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"">")
Response.Write strPosters
Response.Write("</table>")
%>
