Udregn antal brugte/ubrugte
Jeg har følgende kode, jeg vil så godt have en statestik der siger hvor mange der er brugt og hvor mange der er ledigejeg vi godt vise det samlede antal felter som er i:
FORUM_AVATAR.A_URL
det antal skal så bagefter modregnes:
FORUM_MEMBERS.M_AVATAR_URL
Og jeg vil så ha en udskrift i stil med dette:
Der er iøjeblikket 550 ikoner, hvoraf 340 er brugt.
her er koden
<%
Set database = Server.CreateObject ("ADODB.Connection")
database.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/webs/db/database.mdb")
SQL = "select distinct FORUM_AVATAR.A_URL , FORUM_MEMBERS.M_AVATAR_URL from FORUM_AVATAR left join FORUM_MEMBERS on FORUM_AVATAR.A_URL = FORUM_MEMBERS.M_AVATAR_URL ORDER BY A_URL"
Set rs=database.Execute(SQL)
%>
<html>
<title>Min-baby.dk</title>
<head>
<style type="text/css">
<!--
.center { font-family: "Comic Sans MS"; font-size: 12px; color: #744b96}
-->
</style>
<style type="text/css">
<!--
.back { background-image: url(grafik/bigback2.gif); background-attachment: fixed; background-repeat: no-repeat; background-position: left top}
-->
</style>
<STYLE type=text/css>BODY {
SCROLLBAR-FACE-COLOR: #8D6CB8; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #cccccc; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-BASE-COLOR: #ffffff; scrollbar-dark-shadow-color: white; scrollbar-3d-light-color: 333333
}
</STYLE>
</head>
<body bgcolor="#F3E5FA" text="#744b96" class="back">
<%
response.write "<table border=""1"" bgcolor=""#DFCEED"" bordercolor=""#744b96"" cellpadding=""0"" cellspacing=""0"" align=""center"">"
maxPrRow=4
prRow = 0
do while not rs.EOF
if prRow = 0 then response.write "<tr>"
response.write "<td valign=""bottom"">"
Response.Write "<p align=""center""><img src=""forum3/" & RS("A_URL") & """ align=""center"">"
Response.Write " <br> <font color=""#744b96"">" & rs("A_URL")
Response.write "<br><font color="
if ""&rs("M_AVATAR_URL")<>"" then
Response.write """red"">Brugt"
else
Response.write """blue"">Ledig"
end if
Response.write "</font>"
Response.Write "</td>"
prRow = prRow + 1
if maxPrRow = prRow then
prRow = 0
Response.Write "</tr>"
end if
rs.Movenext
loop
if prRow > 0 then Response.Write "</tr>"
Response.Write "</table>"
%>
</body>
</html>
