Forum-hjælp igen..
Hej igen..Samme forum som i http://www.eksperten.dk/spm/85198, men denne gang et andet problem..
Problemet er, at der i hver eneste indlæg-boks kommer en \"reply it!\"-knap..
Jeg vil gerne have det sådan, at der kun er én knap nederst på siden..
Hvordan??
N.B: Hvis du ikke er \"klikkeglad\" får d lige koden her igen..:
<!-- Minus AutoDato -->
<!--#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 ASC\"
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>
