---
title: "Hittar inte felet"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39142-hittar-inte-felet"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2002-03-07T09:53:15.000Z"
updated: "2002-03-07T10:06:26.000Z"
replies: 1
views: 138
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/39142-hittar-inte-felet"
---

# Hittar inte felet

## #1 — ampy, 2002-03-07T09:53Z

Jag har kollat igenom denna kod ganska länge nu men hittar inte felet. Här är koden. 

Set Connect = Server.CreateObject("ADODB.Connection") 
	Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & 

Server.MapPath("community.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")

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

	If RecSet("poang") \< 100 Then

	Response.Write "\<b\>\<font color=#FF0000\>Du har tyvärr inte råd med denna vara. \<br\>Det 

fattas "

	summa = 100 - Recset("poang")
	
	%\> \<% =summa%\> poäng.\<%

	
	Else%\>

	\<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."

		ElseIf

		RecSet.Close
		Addera = "Select \* From affar"
		RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
		
		If RecSet("medlemsid") = Session("id") Then

		Response.Write "Du har redan köpt denna vara och därför kan du inte köpa den 

igen."

		End If

		Else

		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"

		

		

		End If
	
		End If

		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

  

Felmeddelande:

Kompileringsfel i Microsoft VBScript fel '800a03ea' 

Syntaxfel 

/80/affarsmileys.asp, line 54 

ElseIf
\------^

  

Rad 54 är skriver med fetstil.

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

## #2 — mrblonde, 2002-03-07T10:06Z

> ElseIf

 

är som en if sats, du måste ha vilkor och "then"

```
if bla = "bla" then
 'do stuff
elseif bla = "blö" then
 ' do stuff
end if
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/39142-hittar-inte-felet