OK!
Hvad så sådan her:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Anvendelse</title>
</head>
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="THdbconnectForum.asp" -->
<%
Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT TOP 1 tblAuthor.Username, tblTopic.Subject, tblThread.Message_date, tblThread.Message FROM tblTopic INNER JOIN (tblAuthor INNER JOIN tblThread ON tblAuthor.Author_ID = tblThread.Author_ID) ON tblTopic.Topic_ID = tblThread.Topic_ID ORDER BY tblThread.Thread_ID DESC ", Conn
%>
<html>
<head>
<title>Anvendelse</title>
</head>
<body bgcolor="#FFFFCC" style="text-align: right">
<tr><td bgcolor="#999999">
<div align="left"></div>
</td></tr>
<tr><td bgcolor="#CCCCCC">
<form method="GET" action="TH_5.asp" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
<p></p>
</form>
<table style="border-left-color: #000000; border-top-color: #000000" cellspacing="0" bordercolorlight="#000000" bordercolordark="#000000" border="1" cellpadding="0" width="493">
<tr>
<th width="1300" valign="top" colspan="3" bgcolor="#CCFFCC">
<p align="left">
<font color="#CC0000"> <% = soeg%></font></b></td>Hvad sker der i
Smalspors Forum ?</th>
</tr>
<tr>
<td valign="top" bgcolor="#C0C0C0" align="center" width="132"><b><font size="2">Message_date</font></b></td>
<td valign="top" bgcolor="#C0C0C0" align="center" width="132"><b><font size="2">Username</font></b></td>
<td valign="top" bgcolor="#C0C0C0" align="center" width="132"><b><font size="2">Subject</font></b></td>
</tr>
<%
While NOT list.EOF
dato = list.Fields("Message_date")
dag = day(dato)
if dag<10 then
dag = "0" & dag
end if
%>
<td valign="top" width="200" align="center"><font size="2"><%dato = list.Fields("Message_date") dag = day(dato) if dag<10 then dag = "0" & dag end if %>
<td valign="top" width="200" align="center"><font size="2"><%=dag%> <%=ucase(left(monthname(month(dato),1)) & right(monthname(month(dato)),(len(monthname(month(dato)))%> kl. <%=hour(dato) & ":" & minute(dato)%></font></td>
<td valign="top" width="132" align="center"><font size="2"><% = list.Fields("Username")%> </font></td>
<td valign="top"><font size="2"><% Response.Write ("<a href='
http://www.hybenvang.dk/forum/default.asp" & "'target=>" & list.Fields("Subject") & "</a>")%> </font></td>
</tr>
<%
list.MoveNext
Wend
%>
<tr>
<th width="1300" valign="top" colspan="3" bgcolor="#CCFFCC">
<p align="right">
</th>
</tr>
</table>
</form>
</font>
<p>
</b>
</p>
</body>
</html>
<%
list.close
set list = nothing
%>
Slettet bruger
Ny bruger
Nybegynder
Opret
Preview
