Tæl hvor mange gange en ip optræder i en database

select ip, count(ip) from dintabel group by ip

ok, så fik jeg listet de forskellige ip´s så de kun optræder 1 gan pr stk... men hvad med antal gange? den sædvanlige "found" fungere ikke

men kan selvfølgelig lave en count procedure bagefter... :)

fennecs forslag tæller da også antallet af gange, eller har du ikke count(ip) med?

jo, men hvordan printer jeg antalle ud på siden ?

select ip, count(ip) AS antal from dintabel group by ip

Og så skriver du bare antal ud

.. eller brug index-nummeret:

response.write rs(0)
response.write rs(1)

Tro i snakker ved forbi hinanden ligger lige et stykke af koden op...

<%
Set LRs = myConn.Execute("select ip, count(ip) from Stacin group by ip order by count(ip) desc")
If Lrs.BOF Or Lrs.EOF Then
%>
                            <tr>
                                <td width="450" colspan="4">&nbsp;Der kunne ikke findes nogen data</td>
                            </tr>
<%
else

Do until Lrs.eof

TSL_IP = Lrs("IP")

%>
                            <tr>
                                <td width="106">&nbsp;</td>
                                <td width="173">&nbsp;<%=TSL_IP%></td>
                                <td width="105">&nbsp;11/09/2005</td>
                                <td width="66">&nbsp;<a href=WebLog_ShowIP.Asp?Ips=<%=TSL_IP%>>Vis</a></td>
                            </tr>
<%

Lrs.movenext
loop
end if

Lrs.Close
Set Lrs = Nothing
%>

så skal bruge antalle af gange samt datoen for det sidste besøg

<%
Set LRs = myConn.Execute("select ip, count(ip) AS antal from Stacin group by ip order by antal desc")
If Lrs.BOF Or Lrs.EOF Then
%>
                            <tr>
                                <td width="450" colspan="4">&nbsp;Der kunne ikke findes nogen data</td>
                            </tr>
<%
else

Do until Lrs.eof

TSL_IP = Lrs("IP")
ANTAL_IP = Lrs("antal")'Denne kan du så udskrive hvor du vil

%>
                            <tr>
                                <td width="106">&nbsp;</td>
                                <td width="173">&nbsp;<%=TSL_IP%></td>
                                <td width="105">&nbsp;11/09/2005</td>
                                <td width="66">&nbsp;<a href=WebLog_ShowIP.Asp?Ips=<%=TSL_IP%>>Vis</a></td>
                            </tr>
<%

Lrs.movenext
loop
end if

Lrs.Close
Set Lrs = Nothing
%>

Og hvad dato angår så er det jo en anden historie. Der må du jo sætte et timestamp ind i tabellen.

ja, har et felt som hedder Dato ud for hver ip adresse

Set LRs = myConn.Execute("select ip, count(ip) AS antal, max(dato) as lastDate from Stacin group by ip order by antal desc")

Får fejlen når jeg prøver en af ovenstående:

Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.

WebLog.Asp, line 57

linie 57 er:

Set LRs = myConn.Execute("select ip, count(ip) AS antal, max(dato) as lastDate from Stacin group by ip order by antal desc")

skal dog lige nævnes af jeg ikke kan benytte feltalias antal osv på serveren uden at omstille dem med []

så det må blive Set LRs = myConn.Execute("select ip, count(ip) AS [antal], max(dato) as [lastDate] from Stacin group by ip order by antal desc")

Det er fordi Access ikke kan finde ud af at bruge alias i where. Du skal altså sortere efter count(ip) og ikke antal:

Set LRs = myConn.Execute("select ip, count(ip) AS antal, max(dato) as lastDate from Stacin group by ip order by count(ip) desc")