08. maj 2004 - 02:56
Der er
5 kommentarer og
1 løsning
Tæl antal post i tagwall
Jeg har lavet en tagwall, hvor jeg godt kunne tænke mig at vise hvor mange der har skrevet i tagwall'en og vise det på siden. Hvordan gør jeg det ??
i får lige min kode for at se hvordan jeg har bygget den .. kan det gøres nogenlunde på samme måde jeg har bygget det andet på ? ..
kode:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="forbin.asp"-->
<%
function MyReplace(tekst)
tekst = Replace(lCase(tekst), "fuck", "*BiiP*")
tekst = Replace(lCase(tekst), "Fuck", "*BiiP*")
tekst = Replace(lCase(tekst), "pik", "*BiiP*")
tekst = Replace(lCase(tekst), "Pik", "*BiiP*")
tekst = Replace(lCase(tekst), "bøsse", "*BiiP*")
tekst = Replace(lCase(tekst), "bøsser", "*BiiP*")
tekst = Replace(lCase(tekst), "homo", "*BiiP*")
tekst = Replace(lCase(tekst), "homoer", "*BiiP*")
tekst = Replace(lCase(tekst), ":1:", "<IMG SRC='smileys/1.png'>")
MyReplace = tekst
end function
set personer = Server.Createobject("ADODB.Recordset")
personer.Open "Select * FROM tagwall", database
%>
<html>
<head>
<title>tagwall</title>
</head>
<body bgcolor="transparent">
<%
while NOT personer.EOF
if farve = "#CCCCCC" then
farve = "#EEEEEE"
ELSE
farve = "#CCCCCC"
End if
%>
<table bgcolor="<%=farve%>" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="100%"><font size="1" face="Verdana" color="#FF9933">»</font><font size="1" face="Verdana" color="#111111">Navn: <% = personer.fields ("navn")%></font></td>
</tr>
<tr>
<td width="100%"><font size="1" face="Verdana" color="#FF9933">»</font><font size="1" face="Verdana" color="#111111">Dato: <% = personer.fields ("dato")%></font></td>
</tr>
<tr>
<td width="100%"><font size="1" face="Verdana" color="#FF9933">»</font><font size="1" face="Verdana" color="#111111">Email: <a href="mailto:<% = personer.fields ("mail")%>"><% = personer.fields ("mail")%></a></font></td>
</tr>
<tr>
<td width="100%"><font size="1" face="Verdana" color="#FF9933">»</font><font size="1" face="Verdana" color="#111111">Indlæg: <% = MyReplace(personer.fields ("indlaeg"))%></font></td>
</tr>
</table>
<br>
<%
personer.Movenext
wend
%>
</body>
</html>