---
title: "överbelastning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12797-överbelastning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hacktheplanet"
published: "2001-11-23T15:54:00.000Z"
updated: "2001-11-23T21:53:00.000Z"
replies: 3
views: 180
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12797-överbelastning"
---

# överbelastning

## #1 — hacktheplanet, 2001-11-23T15:54Z

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
%>
```

Permalänk: https://www.webforum.nu/p/12797

## #2 — PatrikB, 2001-11-23T21:11Z

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

Permalänk: https://www.webforum.nu/p/295574

## #3 — hacktheplanet, 2001-11-23T21:37Z

nope funkar inte

Permalänk: https://www.webforum.nu/p/295575

## #4 — Pace, 2001-11-23T21:53Z

> do until false

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

Permalänk: https://www.webforum.nu/p/295576

---

Tråden på webben: https://www.webforum.nu/amne/asp/12797-överbelastning