Svar i forum skal gå nedad!!
Daw igen..Jeg har lige fået et nyt forum.. Det er ligesom på eksperten hvor indlæggende står på samme side som spørgsmålet..
Problemet er bare, at indlæggende \"går opad\", dvs. at den oprindelige besked går længere og længere ned..
Jeg ville gerne have det sådan, at den oprindelige besked bliver stående i toppen og indlæggende går nedad (ligesom eksperten)..
Håber I kan hjælpe..
Her er koden:
<!--#include file=\"tools.asp\"-->
<SCRIPT language=\"JavaScript\">
<!-- hide from JavaScript-challenged browsers
function openNewWindow(url, name, width, height)
{ popupWin = window.open(url, name, \'width=\' + width + \',height=\' + height + \', noscrollBars\')
}
// done hiding -->
</SCRIPT>
<table>
<tr>
<td><h2><font color=\"#000080\">UltimateASP Bulletin Board V2.0</font></h2></td>
</tr>
<tr>
<td class=\"RegTextTitle\"><a href=\"java script:history.go(-1);\">Back >></a></td>
</tr>
</table>
<table width=\"468\" cellpadding=\"0\" cellspacing=\"0\">
<tr>
<td bgcolor=\"#B1B1B1\">
<table cellpadding=\"1\" cellspacing=\"1\" width=\"100%\">
<%
intID = Request(\"ID\")
If intID = \"\" OR NOT IsNumeric(intID) Then
response.END
End if
OpenDB conB
SQL = \"SELECT * FROM tblBulletin WHERE fldGroupID = \" & Request(\"GID\") & \" ORDER BY fldAuto DESC\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open SQL, conB, 3, 1
If rs.EOF Then
response.write \"Error.\"
response.END
End If
While Not rs.EOF
If IsNull(rs(\"fldFace\")) OR rs(\"fldFace\") = -1 Then
strFace = \"-\"
Else
strFace = \"<img src=\"\"images/face/\" & rs(\"fldFace\") & \".gif\"\">\"
End If
body = Replace(Server.HTMLEncode(rs(\"fldMessage\")), vbCrLf, \"<br>\")
body = Replace(body, \"<%\", \"<font class=AspCode><%\")
body = Replace(body, \"%>\", \"%></font>\")
%>
<tr bgcolor=\"#EBEBD8\">
<td><Font face=Arial size=2><B><%=strFace%> <%=Server.HTMLEncode(rs(\"fldTitle\"))%></b></font></td>
</tr>
<tr bgcolor=\"#F2F2F2\">
<td><table width=\"100%\"><tr><td><font face=verdana size=1><b>Posted By: <a href=\"mailto:<%=rs(\"fldEmail\")%>\"><%=rs(\"fldName\")%></a></b></font></td><td align=\"right\"><font face=verdana size=1><b>Posted At: <font color=\"#CC3300\"><%=rs(\"fldTime\")%>, <%=rs(\"fldDate\")%></b></font></td></tr></table></td>
</tr>
<tr bgcolor=\"#ffffff\">
<td><Font face=Arial size=2><%=body%></font><br><a href=\"java script:openNewWindow(\'post.asp?reply=<%=rs(0)%>&PgNo=<%=Request(\"PgNo\")%>&GID=<%=Request(\"GID\")%>&CID=<%=Request(\"CID\")%>&title=<%=Server.URLEncode(Replace(rs(\"fldTitle\"), \"\'\", \"\"))%>\', \'remote\',\'480\',\'460\');\"><img src=\"images/reply.gif\" border=\"0\" align=\"right\"></a></td>
</tr>
<%
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
%>
</table>
</td>
</tr>
</table>
