överbelastning

Jag använder denna kod för att slumpa fram bilder men när jag klickar på uppdatera mycket så fasnar sidan och servern blir överbelastad kan inte komma in på http://localhost!!!
varför blir det så?

<%
Response.Buffer = True
Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("Database/members.mdb")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "Select count(*) as Found from members where not bild = 'Bilder/Medlemmar/ingen.gif'"
Set Record = Rs.Execute(Sql) 
Ialt = Record("found")
Sql = "Select * from members where not bild = 'Bilder/Medlemmar/ingen.gif'"
record.close
set record = nothing
Set Record = server.createobject("adodb.recordset")
record.cursorlocation = 3
record.open sql,rs
dim bilder(3)
randomize

for i = 0 to 3
found = false
do until false
RandNum = Int(Rnd * Ialt)
for j = 0 to i - 1
if bilder(j) = RandNum then
found = true
exit for
end if
next
if not found or i = 0 then exit do
loop
bilder(i) = RandNum

record.Movefirst
Record.Move randNum 
Response.Write "<td><center>"
Response.Write "<a href='whois.asp?checkid=" & Record("id") & "'><img src='" & Record("bild") & "' alt='" & Record("username") & Record("username") & "' border = '1' width= '65' height= '77'></a>"
response.write "</td>"
next

record.close
rs.close
%>

Vet inte varför ... du stänger ditt connection object som här heter rs vilket inte är så lyckat eftersom den benämningen brukar vara för recordset objectet. Kan förvilla när någon annan felsöker koden.

Testa detta längst ned på din sida:

Set rs = Nothing

och se om det blir någe bättre

cya,
PatrikB

------------------
'## -- second place is the first looser -- ##'

nope funkar inte

do until false

Detta lär väl knappast inträffa?

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."