---
title: "sidan bara laddar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39514-sidan-bara-laddar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2002-03-12T20:01:57.000Z"
updated: "2002-03-12T20:53:26.000Z"
replies: 4
views: 228
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/39514-sidan-bara-laddar"
---

# sidan bara laddar

## #1 — ampy, 2002-03-12T20:01Z

När jag går in till denna sida så laddas sidan bara hela tiden utan att laddas klart. Så därför måste det vara ngt fel i denna aspkod men jag har letat jättelänge utan resultat i denna kod. Hoppas ngn av er hittar ngt fel?

```
Set Connect = Server.CreateObject("ADODB.Connection") 
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("community.mdb")
	Set RecSet = Server.CreateObject("ADODB.Recordset")

		Addera = "Select * From affar"
		RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
		If RecSet("medlemsid") = Session("id") Then
		varakopt = "ja"
		else
		varakopt = "nej"
		End If
		RecSet.Close

	SQL = "Select * From members WHERE username = '"&session("username")&"'"
	RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

	If RecSet("poang") < 100 Then
            summa = 100 - RecSet("poang")
	Response.Write "<b><font color=#FF0000>Du har tyvärr inte råd med denna vara. <br>Det fattas "&summa&" "

	Else

	response.write "<b><a href=affarsmileys.asp?vad=kop>Klicka här för att köpa denna vara</a></b>"
	
	End If

		If Request.Querystring("vad") = "kop" Then
		If RecSet("poang") < 100 Then
		Response.Write "Du har inte över 100 poäng och därför kan du inte köpa denna vara."
                        end if
                        end if
 		

                        If varakopt = "ja" Then
		Response.Write "Du har redan köpt denna vara och därför kan du inte köpa den igen."
                        end if

		RecSet.Close

		Addera = "Select * From affar"
		RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
		RecSet.Addnew
		RecSet("medlemsid") = Session("id")
		RecSet("smileys") = "ja"
		RecSet.Update
		

		Response.Redirect "affarsmileys.asp?vad=kopt"

		If Request.Querystring("vad") = "kopt" Then

		Response.Write "<br><br>Grattis, du har nu köpt varan smileys och du kan redan nu börja använda dem i din dagbok, när du skriver i andras gästböcker m.m.<br><br><b>          
<i><font size=2> <center><a href=javascript:self.close();>Stäng fönstret</a>"

		End If
```

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

## #2 — solbulle, 2002-03-12T20:26Z

Ser inte ut som om du stänger ditt rs/databas i sista öppningen.

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

## #3 — LarsG, 2002-03-12T20:26Z

Det är kanske denna som gör att du redirektar till samma sida?

```
Response.Redirect "affarsmileys.asp?vad=kopt"
```

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

## #4 — ampy, 2002-03-12T20:42Z

Jag har löst det nu.   :birp

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

## #5 — solbulle, 2002-03-12T20:53Z

Och felet var?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/39514-sidan-bara-laddar