webForumDet fria alternativet
Logga in / Bli medlem

Löjligt fel..

ASP

11 svar · 231 visningar · startad av alj

aljs avataraljMedlem sedan sep. 2002538 inlägg
Frågan#1

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 :-)

JAreMANNENs avatarJAreMANNENMedlem sedan aug. 20002 272 inlägg
#2

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

Eitrazs avatarEitrazMedlem sedan sep. 2002366 inlägg
#3

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

-Eitraz

aljs avataraljMedlem sedan sep. 2002538 inlägg
#4

Bifogar filerna:

filer.zip (3 kB)
trexterMedlem sedan mars 20021 889 inlägg
#5

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. ;)

:)

aljs avataraljMedlem sedan sep. 2002538 inlägg
#6

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%>
solbulleMedlem sedan mars 20015 287 inlägg
#7
  <%
          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.

aljs avataraljMedlem sedan sep. 2002538 inlägg
#8

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å :-)

solbulleMedlem sedan mars 20015 287 inlägg
#9

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.)

solbulleMedlem sedan mars 20015 287 inlägg
#10

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

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

solbulleMedlem sedan mars 20015 287 inlägg
#11

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

aljs avataraljMedlem sedan sep. 2002538 inlägg
#12

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 :/

280 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
135 ms — deklarationer (db)
0 ms — hämta statistik (cache)
141 ms — hämta tråd, inlägg och bilagor (db)
126 ms — ändringar (db)