<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;"
Conn.Open DSN
intPAS = 53
for var = 1 to intPAS step 1
' SQL forespørgsel
strSQL = "Select COUNT(name) AS ANTAL, max(id) AS MAX FROM Entries where USERID = "&var
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
intANTAL = rs("ANTAL")
intMAX = rs("MAX")
strSQL2 = "SELECT firstname,username FROM spobruger WHERE brugerID =" & var
set rs2 = Conn.Execute(strSQL2)
strname = rs2("firstname")
strUSERNAME = rs2("username")
' Luk databaseforbindelse
strNAR = strNAR & "| "&strname&" | "&strUSERNAME&" | "&intANTAL&" |
"
next
Conn.Close
Set Conn = Nothing
%>
statestik
| navn | brugernavn | antal posts |
<%
response.write(strNAR)
%>
Se hvem der er hvem på bruger siden indtil jeg får siden opdateret!