---
title: "Mnäppt felmeddelande!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/60392-mnäppt-felmeddelande"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "sudden"
published: "2002-11-27T09:05:36.000Z"
updated: "2002-11-27T09:08:01.000Z"
replies: 1
views: 193
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/60392-mnäppt-felmeddelande"
---

# Mnäppt felmeddelande!

## #1 — sudden, 2002-11-27T09:05Z

Hej!
Jag har en kod som ser ut så här:

```

<!--include virtual="adovbs.inc"-->

<%
If Request.Form("soknamn") = "sök" Then
'öppna en anslutning till vår databas Acces
Dim Connect
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\sok\databas.mdb"

'Läs in sökningen
Dim Fornamn, Efternamn
Fornamn = Request.Form("namn") 
Efternamn = Request.Form("efternamn")

'skapa en variabel för SQL satsen
  Dim strSQL
strSQL = "SELECT * FROM vanner WHERE namn = '" & Fornamn & "' AND efternamn = '" & Efternamn & "' ORDER BY namn DESC"

'skapa en instans av recordset
Dim RS
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, Connect

'visa alla som matchade med sökningen
Response.Write"<b>Sökningen är klar</b>" & "<br>" & "<br>"

Do While Not RS.EOF
 Response.Write RS("namn") & " - " & RS("efternamn") & "<br>" & "<b>Telefonummer:</b>"%><%=RS("tel")%><br>
<b>Adress:</b>&nbsp;<%=RS("adress")%><br>
<b>Postnummer:</b>&nbsp;<%=RS("post")%><br>
<b>Mobil:</b>&nbsp;<%=RS("mobil")%>
<hr>
<%

RS.MoveNext
Loop

Response.Write"<a href='skicka.asp' target='_top'>Ny sökning</a>"

'städa undan
RS.Close
Set RS = Nothing

Connect.Close
Set Connect = Nothing
%>

<%
Else If Request.Form("sokpost") = "sök på post" Then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\sok\databas.mdb"

'läs in sökningen
Dim sokpost
sokpost = Request.Form("post")

'variabeln för SQL satsen
SQL = "SELECT post FROM vanner WHERE post = '" & sokpost & "' ORDER BY post DESC"

Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Connect'

'visa sökning
Response.Write"<b>Sökningen är klar</b>" & "<br>" & "<br>"
Do While Not RS.EOF
   Response.Write RS("namn") & " - " & RS("efternamn") & "<br>" & "<b>Telefonummer:</b>"%><%=RS("tel")%><br>
<b>Adress:</b>&nbsp;<%=RS("adress")%><br>
<b>Postnummer:</b>&nbsp;<%=RS("post")%><br>
<b>Mobil:</b>&nbsp;<%=RS("mobil")%>
<hr>

<%
RS.MoveNext
Loop

Response.Write"<a href='skicka.asp'target='_top'>Ny sökning</a>"

'städa undan
RS.Close
Set RS = Nothing

Connect.Close
Set Connect = Nothing

Else
Response.Write"<font color=red size=2>Nått gick galet</font>"

End If
%>
```

Men jag får bara det här meddelandet:

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A03F6)
'End' förväntas.
/sok/sok.asp, line 91

Fattar inte vad det är för fel  :q 
Brukar ofta få det där felmeddelandet när jag kör med If satser!

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

## #2 — Palleman, 2002-11-27T09:08Z

**Fel:**
Else If Request.Form("sokpost") = "sök på post" Then

**Rätt:**
ElseIf Request.Form("sokpost") = "sök på post" Then

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/60392-mnäppt-felmeddelande