indsætning af linie....
jeg har en side vor man kan uploade links, jeg vil gerne have en linie mellem hver uploadning/links så det er mere overskueligt.siden ligger på www.paragliding.dk/linksys/link.asp
der er ialt 3 filer
link.asp
write.asp
data.mdb
her er link.asp:
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<%
Set Rs = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"link.mdb\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
\'finder links i databasen\'
If \"\" = Request.QueryString(\"Mode\") then
Sql = \"Select * from T_link order by dato DESC\"
Set Record = Rs.Execute(Sql)
response.write \"<title>Link</title>\"
response.write \"</head><body>\"
response.write \"<H1>Link</H1>\"
response.write \"<p align=\'right\'> <a href=\'link_write.asp?mode=start\'>Skriv Link</a></p>\"
response.write \"<table border=\'0\' width=\'100%\'>\"
Do While Not Record.EOF
response.write \"<td width=\'10%\'><p>\" & font & \"<a href=\'\" & Record(\"link\") & \"\' target=\'_self\'>\" & Record(\"Navn\") & \"</a></p></td></tr>\"
response.write \"<td width=\'70%\'><p>\" & font & Record(\"beskrivelse\") & \"</p></td>\"
response.write \"<td width=\'10%\' align=\'center\'><p>\" & font & \"Dato:</p></td>\"
response.write \"<td width=\'20%\'><p>\" & font & Record(\"dato\") & \"</p></td></tr>\"
Record.MoveNext
Loop
response.write \"</table>\"
Record.Close
RS.Close
end if
response.write \"<p align=\'right\'><br> <a href=\'link_write.asp?mode=start\' target=\'_self\'>Skriv Link</a></p>\"
%>
<title></title>
<base target=\"hovedramme\">
</head>
<body bgcolor=\"#200C60\" text=\"#00FFFF\" style=\"color: #FFFF00\" link=\"#00FF00\" vlink=\"#999999\" alink=\"#FF99FF\">
<p align=\"center\"><font color=\"#FFFF00\">Tilføj dine egne links</font>
<p align=\"center\"> </p>
</body>
</html>
