sidan bara laddar

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