---
title: "Löjligt fel.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/60223-löjligt-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "alj"
published: "2002-11-25T16:44:48.000Z"
updated: "2002-11-25T19:20:46.000Z"
replies: 11
views: 237
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/60223-löjligt-fel"
---

# Löjligt fel..

## #1 — alj, 2002-11-25T16:44Z

Får följande fel:
 

```
   Kompileringsfel i Microsoft VBScript fel '800a0400' 

   Programsats förväntas. 

   /sida.asp, rad 28 

   End If
   ^
```

På följande kod:
 

```
       <%
          Dim layout
              layout = Request.Cookies("Farg")
              If Not layout.HasKeys Then
        %>
     <!-- #Include file="inc/over.inc" -->

        <%
              End If

           If layout = "Standard" then
        %>
   <!-- #Include file="inc/over.inc" -->

        <%
          Else
        %>

        <!-- #Include file="inc/FargerOver.asp" -->

        <%
              Response.write("Sidan äro en sida och icke något annat.")
              If Not layout.HasKeys Then
        %>
     <!-- #Include file="inc/under.inc" -->

        <%
  //Rad 28 -->//            End If
              If layout = "Standard" then
        %>

   <!-- #Include file="inc/under.inc" -->
        <%
              Else
        %>
   <!-- #Include file="inc/FargerUnder.asp" -->
        <%
              End If
        %>
```

Säkert något löjligt enkelt, men jag är välldigt trött idag , får skylla på det :-)

Ps. Vet att man inte skall ha så många slut och start taggar där asp börjar o slutar, men det var nödvändigt eller om någon kan något bättre sätt så är det välkommet :-)

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

## #2 — JAreMANNEN, 2002-11-25T16:47Z

du får nog posta dina 4 första includefiler också, kan vara nåt i dom som göra så att rad 28 "knasar"...

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

## #3 — Eitraz, 2002-11-25T16:48Z

Fattas det inte ett End If.. är lite grötigt men jag tror det va?

\-Eitraz

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

## #4 — alj, 2002-11-25T16:51Z

Bifogar filerna:

Bilagor:

- [filer.zip](https://www.webforum.nu/a/746.zip)

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

## #5 — trexter, 2002-11-25T17:04Z

Vet du om att samtliga filer kommer inkluderas, men att vissa inte 
kommer köras? Det kan med andra ord vara ganska 
prestandakrävande att bygga upp ett system så som du gjort.

Klipp samman filerna till en och posta koden, att ladda ner källkoden i zipformat är i alla fall jag för lat för att göra. ;)

 :)

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

## #6 — alj, 2002-11-25T17:16Z

> **trexter skrev:**
>
> Vet du om att samtliga filer kommer inkluderas, men att vissa inte 
> kommer köras? Det kan med andra ord vara ganska 
> prestandakrävande att bygga upp ett system så som du gjort.
> 
> Klipp samman filerna till en och posta koden, att ladda ner källkoden i zipformat är i alla fall jag för lat för att göra. ;)
> 
>  :)

Hmm hur gör man för att dom alla inte skall köras då? :/
Och:

```
__FargerUnder.asp:___
</TD>
		<TD height="100%" WIDTH="20%">
			&nbsp;</TD>
	</TR>
	<tr>
		<TD height="33%" WIDTH="100%" colspan="2">
		
		<br><center><img src="images/reklam1.gif"><img src="images/logo.gif"><img src="images/reklam2.gif"><br>
                <P class="Copyright">Copyright (©) 2002 Adam Lj.<br>
                 <A href="skraddarsy.asp">Skräddarsy sidan!</a>
                 </p></center>

                </TD>
		</tr>

</TABLE>

</BODY>
</HTML>

___FargerOver.asp:____
<!-- #Include file="connect.asp" -->
<%

Dim Sqlaaaa1
Sqlaaaa1 = "SELECT * FROM tblKategorier"

Set RecSet = Server.CreateObject("ADODB.Recordset")
	RecSet.Open Sqlaaaa1, Connect

Dim Farg, BG, CellBG, Logga
BG = "FFFFFF"
Logga = "Rod_01.gif"
CellBG = "B8E0F8"
Farg = Request.Cookies("Farg")

            If Farg = "Gra" Then
            BG = "E8E8E8"
            CellBG = "B8B8B8"
            Logga = "Gra_01.gif"

            ElseIf Farg = "Rosa" Then
            BG = "F89CA0"
            CellBG = "F07080"
            Logga = "Rasa_01.gif"
            
            ElseIf Farg = "Svart" Then
            BG = "FFFFFF"
            CellBG = "000000"
            Logga = "Svart_01.gif"

            ElseIf Farg = "Bla" Then
            BG = "#D8F0F8"
            CellBG = "B8E0F8"
            Logga = "Bla_01.gif"
            
            ElseIf Farg = "Gron" Then
            BG = "C8E098"
            CellBG = "B0D070"
            Logga = "Gron_01.gif"
            
            ElseIf Farg = "Rod" Then
            BG = "FF3300"
            CellBG = "F02028"
            Logga = "Rod_01.gif"
            
            ElseIf Farg = "GronGra" Then
            BG = "#C8B098"
            CellBG = "988878"
            Logga = "SilverGra_01.gif"

            End If

%>

<HTML>
<HEAD>
<meta http-equiv="Content-Language" content="sv">

<TITLE>Pussel.org</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<style type="text/css">
             BODY {none}
             A:link {text-decoration: none; }
             A:visited {text-decoration: none;}
             A:active {text-decoration: none; }
             A:hover {text-decoration: underline;}
             TABLE {font-family: verdana, tahoma, courier new, arial; font-size:<%
             If Request.Cookies("Skraddarsy").HasKeys then
             Response.Write Request.Cookies("Skraddarsy")("Teckenstorlek")
             Else
             Response.write("10")
             End If
             Response.write("pt; leftmargin: 7px;}")
             %>
             .gulback { background-color: #FFFF00 }
             P {font-family: verdana, tahoma, courier new, arial; font-size:<%
             If Request.Cookies("Skraddarsy").HasKeys then
             Response.Write Request.Cookies("Skraddarsy")("Teckenstorlek")
             Else
             Response.write("10")
             End If
             Response.write("pt; leftmargin: 7px;}")
             %>
             .Meny {margin-left: 5pt;}
       </style>
</HEAD>
<BODY BGCOLOR=#<%=BG%> leftmargin="0">

<TABLE WIDTH=100% HEIGHT=59 BORDER=0 CELLPADDING=0 CELLSPACING=0>
	<TR>
		<TD height="1%" WIDTH ="100%" bgcolor="#<%= CellBG%>" colspan="3">
			<IMG SRC="images/<%= Logga%>" WIDTH=500 HEIGHT=70></TD>
	</TR>
	<TR>
		<TD height="100%" WIDTH="20%" valign="top">
			<P class="Meny"><br>	<%

 Do While Not RecSet.EOF

                Response.Write "<a href=""kat.asp?kat="&RecSet("KategoriNamn")&""">"&RecSet("KategoriNamn")&"</a><br>"
                RecSet.MoveNext
                Loop

%><a href="default.asp"> <br>Hem </a></p></TD>
		<TD height="100%" WIDTH="60%" valign="top"><p><br>
		<% End If %>

____over.inc:____
<!-- #Include file="connect.asp" -->
<%
Set RecSet = Connect.Execute("SELECT * FROM tblKategorier")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<head>
	
	<meta http-equiv="imagetoolbar" content="no">		
	<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
	<META NAME="DESCRIPTION" CONTENT="Pussel.org här hittar du kurser om bland annat Active Server Pages. Och en massa annat matnyttigt. Medans du är här glöm inte besöka forumet">
	<META NAME="KEYWORDS" CONTENT="alj, pussel, pussel.org, asp, Active Server Pages, SSI, Server Side Included, Kurser, Artkilar, kurser, artiklar, Kontakt">

       <style type="text/css">
             BODY {none;}
             A:link {text-decoration: none; }
             A:visited {text-decoration: none;}
             A:active {text-decoration: none; }
             A:hover {text-decoration: underline;}

             TABLE {font-family: verdana, tahoma, courier new, arial; font-size:
             <%
             If Request.Cookies("Skraddarsy").HasKeys then
             Response.Write Request.Cookies("Skraddarsy")("Teckenstorlek")
             Else
             Response.write("10")
             End If
             Response.write("pt; leftmargin: 7px;}")
             %>
             .gulback { background-color: #FFFF00 }
             P {font-family: verdana, tahoma, courier new, arial; font-size:
             <%
             If Request.Cookies("Skraddarsy").HasKeys then
             Response.Write Request.Cookies("Skraddarsy")("Teckenstorlek")
             Else
             Response.write("10")
             End If
             Response.write("pt; leftmargin: 7px;}")
             %>
             .Copyright {font-family: verdana; font-size: 7pt;}
       </style>
		
	<title>
	Pussel.org
	</title>
	</head>

	<body bgcolor="#ffffff" background="images/ramen_02.gif">
      <div align="<%
             If Request.Cookies("Skraddarsy").HasKeys then
             Response.Write Request.Cookies("Skraddarsy")("Justerning")
             Else
             Response.write("left")
             End If
             %>">
		<table border="0" cellpadding="0" cellspacing="0" width="64">
			<tr>
				<td><img src="images/topp.jpg" width="630" height="181" border="0" alt=""></td>
			</tr>
		</table>
		<TABLE WIDTH=630 BORDER=0 CELLPADDING=0 CELLSPACING=0>
			<TR>
				<TD background="images/ramen_01.gif" ></TD>
				<TD background="images/ramen_02.gif" valign="top">
	<%

 Do While Not RecSet.EOF
              
                Response.Write "<a href=""kat.asp?kat="&RecSet("KategoriNamn")&""">"&RecSet("KategoriNamn")&"</a><br>"
                RecSet.MoveNext
                Loop
                
%><a href="default.asp"> <br>Hem </a></TD>
				<TD background="images/ramen_03.gif"></TD>
				<TD background="images/ramen_04.gif">

____Under.inc:____
</p></TD>
				<TD background="images/ramen_05.gif"></TD>
			</TR>
			<TR>
				<TD><IMG SRC="images/ramen_06.gif" WIDTH=21 HEIGHT=4 alt=""></TD>
				<TD><IMG SRC="images/ramen_07.gif" WIDTH=105 HEIGHT=4 alt=""></TD>
				<TD><IMG SRC="images/ramen_08.gif" WIDTH=8 HEIGHT=4 alt=""></TD>
				<TD><IMG SRC="images/ramen_09.gif" WIDTH=474 HEIGHT=4 alt=""></TD>
				<TD><IMG SRC="images/ramen_10.gif" WIDTH=22 HEIGHT=4 alt=""></TD>
			</TR>
		</TABLE>
		<table border="0" cellpadding="0" cellspacing="0" width="64">
			<tr>
				<td><img src="images/ner.gif" width="630" height="19" border="0" alt=""></td>
			</tr>
			<tr>
				<td>
				<br><center><img src="images/reklam1.gif"><img src="images/logo.gif"><img src="images/reklam2.gif"><br>                <P class="Copyright">Copyright (©) 2002 Adam Lj.<br>
                 <A href="skraddarsy.asp">Skräddarsy sidan!</a>
                 </p></center>
			</td>
			</tr>

		</table>

                </Div>

	</body>

</html>

<%
end if%>
```

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

## #7 — solbulle, 2002-11-25T17:46Z

```
  <%
          Dim layout
              layout = Request.Cookies("Farg")
              If Not layout.HasKeys Then
        %>
     <!-- #Include file="inc/over.inc" -->

        <%
              End If

           If layout = "Standard" then
        %>
   <!-- #Include file="inc/over.inc" -->

        <%
          Else
        %>

        <!-- #Include file="inc/FargerOver.asp" -->

        <%
              Response.write("Sidan äro en sida och icke något annat.")
End If
              If Not layout.HasKeys Then
        %>
     <!-- #Include file="inc/under.inc" -->

        <%
  //Rad 28 -->//            End If
              If layout = "Standard" then
        %>

   <!-- #Include file="inc/under.inc" -->
        <%
              Else
        %>
   <!-- #Include file="inc/FargerUnder.asp" -->
        <%
              End If
        %>
```

Ett End If saknades.

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

## #8 — alj, 2002-11-25T17:55Z

> **solbulle skrev:**
>
> ```
>   <%
>           Dim layout
>               layout = Request.Cookies("Farg")
>               If Not layout.HasKeys Then
>         %>
>      <!-- #Include file="inc/over.inc" -->
> 
>         <%
>               End If
> 
>            If layout = "Standard" then
>         %>
>    <!-- #Include file="inc/over.inc" -->
> 
>         <%
>           Else
>         %>
> 
>         <!-- #Include file="inc/FargerOver.asp" -->
> 
>         <%
>               Response.write("Sidan äro en sida och icke något annat.")
> End If
>               If Not layout.HasKeys Then
>         %>
>      <!-- #Include file="inc/under.inc" -->
> 
>         <%
>   //Rad 28 -->//            End If
>               If layout = "Standard" then
>         %>
> 
>    <!-- #Include file="inc/under.inc" -->
>         <%
>               Else
>         %>
>    <!-- #Include file="inc/FargerUnder.asp" -->
>         <%
>               End If
>         %>
> ```
>
> 
> Ett End If saknades.

Tror jag inte : 

```
Kompileringsfel i Microsoft VBScript fel '800a0400' 

Programsats förväntas. 

/pussel/tester.asp, rad 23 

End If
^
```

Rad 23 är raden du satte in "End If". men tack endå :-)

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

## #9 — solbulle, 2002-11-25T18:44Z

Och jag antar att du först raderade din kommentar i koden?

//Rad 28 --\>// 

?

Är det inte där felet är, för jag tycker nog att If-satserna stämmer då, måste det ju som nämnt högre upp i tråden vara något i dina include-filer.
(Ska kika på dom.)

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

## #10 — solbulle, 2002-11-25T18:48Z

Du har en End If sist i din fil: FargerOver.asp

Tycker nog att den ska bort och in med den jag satte dit.

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

## #11 — solbulle, 2002-11-25T18:49Z

Sen ska då End If bort ur filen under.inc
Det är den som ger dig ditt orginalfelmeddelande. .
(..tror jag...)

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

## #12 — alj, 2002-11-25T19:20Z

Skrev om koden lite som du sade solbulle, och allt fungerar fint, förutom att \_alla filer inkluderas\_ :/

```
  <%

              If Not Request.Cookies("Farg").HasKeys Then
        %>
     <!-- #Include file="inc/over.inc" -->

        <%
              End If

           If Request.Cookies("Farg") = "Standard" then
        %>
   <!-- #Include file="inc/over.inc" -->

        <%
          Else
        %>

        <!-- #Include file="inc/FargerOver.asp" -->

        <%
              Response.write("Sidan äro en sida och icke något annat.")
End If
              If Not Request.Cookies("Farg").HasKeys Then
        %>
     <!-- #Include file="inc/under.inc" -->

        <%
 ' //Rad 28 -->//
           End If
              If Request.Cookies("Farg") = "Standard" then
        %>

   <!-- #Include file="inc/under.inc" -->
        <%
              Else
        %>
   <!-- #Include file="inc/FargerUnder.asp" -->
        <%
              End If
        %>
```

Så är koden jag har nu, men nu inkluderas först over.inc, Farger over.inc, under.inc, FargerUnder.inc :/

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/60223-löjligt-fel