Sorry to drag this up again but it's still bugging me.
Here is what I think is the code that's causing this....
'############### SpamServer liste beginn
table_beginn
box_beginn = "beginn"
box_title = "Stop Spam Server"
box
response.write "<TABLE align = ""center"" bgColor=""" & strPopUpTableColor & """ cellSpacing=""0"" cellPadding=""3"" border=""0"" width=""50%"">" & vbNewLine & _
"<TBODY>" & vbNewLine & _
"<FORM action=""admin_spamserver.asp"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
"<input type=""hidden"" name=""Method_Type"" value=""Add"">" & vbNewLine & _
"<TR >" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ width=""50%""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """>Insert Spam Server:</FONT></TD>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ width=""200""><input type=""text"" name=""SpamServer"" maxLength=""50"" value="""" style=""width: 200px""></TD>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ width=""200""><input type=""submit"" value=""Block"" id=""submit1"" name=""submit1""></TD>" & vbNewLine & _
"</TR>" & vbNewLine & _
"<TR>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ colspan=""3""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>Spam Server blocked:</FONT></TD>"& vbNewLine & _
"</TR>" & vbNewLine
set rss = my_conn.execute("SELECT SPAM_ID, SPAM_SERVER FROM FORUM_SPAM_MAIL")
If rss.EOF or rss.BOF Then
response.write "<tr><TD bgColor=""" & strPopUpTableColor & """ colspan=""3""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>No Spam Server found.</FONT></TD></tr>" & vbNewLine
'"<TD class = forumcellcolor width=""20%"" align = ""right"" >"& vbNewLine
else
While NOT rss.Eof
deletemail= rss("SPAM_ID")
response.write "<TR>" & vbNewLine & _
"<TABLE align= ""center"" bgColor=""" & strPopUpTableColor & """ cellSpacing=""0"" cellPadding=""2"" border=""0"" width=""50%"">" & vbNewLine & _
"<TD align= ""center"" bgColor=""" & strPopUpTableColor & """ width=""80%"" colspan=""3""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & rss("SPAM_SERVER") & "</FONT>" & vbNewLine
'"<TD bgColor=""" & strPopUpTableColor & """ width=""20%"" align = ""right"" ><a href=""#"" onclick=""JavaScript:if(window.confirm('Delete Spam Server on this domain?')){window.location=('admin_spamserver.asp?Method_Type=delete&id=&deletemail& ');}"">" & getCurrentIcon(strIconTrashcan,"Delete Spam Server address","") & "</a></TD>" & vbNewLine & _
%>
<TD align= "center" bgColor="" & strPopUpTableColor & "" width="20%" align = "right"><a href="#" onclick="JavaScript:if(window.confirm('Delete Spam Server on this domain?')){window.location=('admin_spamserver.asp?Method_Type=delete&id=<% = rss("SPAM_ID") %>');}"><% = getCurrentIcon(strIconTrashcan,"Delete Spam Server address","") %></a></TD>
<%
response.write"</TR>" & vbNewLine & _
"</table>" & vbNewLine
rss.MoveNext
Wend
end If
rss.Close
Set rss = Nothing
response.write "</form>" & vbNewLine & _
"</TBODY>" & vbNewLine & _
"</TABLE>" & vbNewLine
table_end
Does anyone see a reason that it would only show the 2 latest entries
and not the whole list? The lines in red were commented out in the
downloaded file. I didn't do it.
Thanks!
Topic Locked
Posted - 09 October 2006 : 22:15:11
