Det virker fint MEN... selve artiklen på siden vises ikke...
Selve siden hvor artiklen og kommentar ser således ud
<!--#include file="includes/db_link.asp"-->
<!--#include file="includes/config.asp"-->
<% Dim Conn, RS, Text, Topic
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open UsrConnect()
Session.LCID = 1030
SQL = "UPDATE news SET antal_vist=antal_vist+1 WHERE TID = "& Request("TID")
Conn.Execute(SQL)
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "SELECT * FROM Comments WHERE TID = " & Request("TID") & " AND vises = True ORDER BY Date", Conn, 1, 3
If not RS.EOF Then
Text = Replace(RS("Text"), VbCrLf, "<br>")
Topic = RS("Topic")
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css.asp">
</head>
<body>
<FONT FACE="VERDANA" SIZE="2"><center><b><%= Topic %></b></center><br>
<%= Text %><br>Denne artikel er læst <%= RS("antal_vist")%> gange.</FONT><p>
<%
End If
RS.Close
RS.Open "SELECT * FROM Comments WHERE TID = " & Request("TID") & " AND vises = True ORDER BY Date", Conn, 1, 3
While Not RS.EOF
Text = Replace(RS("Text"), VbCrLf, "<br>")
%>
<hr size=1 color=#990000 noshade width="100%">
<FONT FACE="VERDANA" SIZE="2"><%= Text %>
<% If Not RS("Email") = "" Then %>
<br><b>Skrevet af</b><a href="mailto:<%= RS("Email") %>?subject=<%= Mail_Note &" "& Topic %>"><%= RS("Name") %></a></font>
<% Else %>
<FONT FACE="VERDANA" SIZE="2"><br><b>skrevet af</b> <%= RS("Name") %></font>
<% End If %> <FONT FACE="VERDANA" SIZE="2"><b>Oprettet den:</b> <%= RS("Date") %></font><br>
<hr size=1 color=#990000 noshade width="100%">
<%
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
<p align="center"><font face="Verdana" size="2"><img src="skrivkommentar.gif" width="18" height="17" border="0"><a href="new_comment.asp?TID=<%= Request("TID") %>">Skriv en kommentar</a> <img src="anbefallink.gif" width="16" height="16" border="0"> <script language=JavaScript>
var title = "<a href='mailalink.asp?title=" + document.title + "'>Anbefal</a>"
document.write (title)
</script></font></p>
<p align="center"><font face="Verdana" size="2"><a href="artikel.asp">Tilbage</a></font></p>
</FONT>
</body>
</html>
