lave et link?
jeg har en access database...under joke i databasen har jeg to coloner..
url
og
download
hvordan får jeg download til at linke til det der står i url?
scriptet ser sådan ud:
<% Response.Buffer = True %>
<HTML>
<HEAD>
<!-- Minus AutoDato -->
<TITLE>Joke system.</TITLE>
<META NAME="Generator" CONTENT="Stone's WebWriter 3">
</HEAD>
<BODY BGCOLOR="#33B0FB" TEXT="#000000" LINK="#000000" VLINK="#808080" ALINK="#C0C0C0">
<center>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
If Request.QueryString("id") <> "" Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM joke WHERE (ID = " & Request.QueryString("id") & ")"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
Response.write "<TABLE WIDTH=""50%"" BORDER=""1"" BGCOLOR=""#FFFFFF"" BORDERCOLOR=""#000000""><TR
VALIGN=""top""><TD><FONT><B>" & rs("overskrift") & "</B></FONT><BR><FONT SIZE=""2"">Til føjet af: " & rs("navn") & " den "
& rs("dato") & "</FONT><BR><FONT>" & rs("joke") & "</FONT><BR><FONT Size=""2"">Download: " & rs("download") & "
</FONT><BR><center><A HREF=""java script:history.back(1)"" TARGET=""_top"">Tilbage</A></center></TD></TR></TABLE><BR>"
rs.Update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
End If
End If
%>
</center>
</BODY>
</HTML>
