Undskyld, men nu ser min kode sådan ud, er det ikke rigtigt?
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>:: emilchristiansen.dk ::</title>
<meta http-equiv="Content-type" content="text/html; charset=ISO-8859-1">
<meta http-equiv="Content-Style-Type" content="text/css">
<!-- #include file="database.asp" -->
<!-- #include file="dateformater.asp" -->
</head>
<body>
<!--#INCLUDE FILE="../top.asp" -->
<div id="indhold">
<h1>Links</h1>
<p>OBS. sorteret efter HITS</p>
<p>Add your link <a href="option2.asp">click here</a></p>
<p>
<%
Dim objRS
Set objRS = OpenDataBase("../../database/addlink.mdb", "SELECT * FROM link ORDER BY Hits DESC")
If (Not objRS.BOF) And (Not objRS.EOF) Then
objRS.MoveFirst
Response.Write "<table class=""FT"" align=center cellspacing=0 cellpadding=0 border=0>" & vbCrLf
Response.Write "<tr><td width=""30%"" align=left>" & vbCrLf
Response.Write "Site name :" & vbCrLf
Response.Write "</td><td width=""50%"" align=center>" & vbCrLf
Response.Write "description :" & vbCrLf
Response.Write "</td><td width=""20%"" align=center>" & vbCrLf
Response.Write "Hits :" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
While Not objRS.EOF
If blnBGColor = True Then
strBGColor = "#FFFFFF"
blnBGColor = False
Else
strBGColor = "#ECE9D8"
blnBGColor = True
End If
Response.Write "<tr bgcolor="""& strBGColor &"""><td valign=top width=""30%"" align=left>" & vbCrLf
Response.Write "<a href=""clickcount.asp?id=" & objRS("ID") & Chr(34) & " target=""_blank"">"
Response.Write Server.HTMLEncode(objRS("Name"))
Response.Write "</a>" & vbCrLf
Response.Write "</td><td width=""50%"" valign=bottom align=left>" & vbCrLf
Response.Write Server.HTMLEncode(objRS("Des")) & vbCrLf
Response.Write "</td><td width=""20%"" valign=top align=center>" & vbCrLf
Response.Write objRS("Hits") & vbCrLf
Response.Write "</td></tr>"
objRS.MoveNext
Wend
Response.Write "</table>" & vbCrLf
Else
Response.Write "No links found in the database.<br>" & vbCrLf
End If
objRS.Close
Set objRS = Nothing
%>
</p>
</div>
</body>
</html>
