---
title: "Asp fel? hur görman?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/62357-asp-fel-hur-görman"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "wunderbaren"
published: "2002-12-16T16:41:30.000Z"
updated: "2002-12-16T19:09:48.000Z"
replies: 19
views: 458
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/62357-asp-fel-hur-görman"
---

# Asp fel? hur görman?

## #1 — wunderbaren, 2002-12-16T16:41Z

Microsoft VBScript compilation error '800a03fb' 

Expected 'Loop' 

/navigation.asp, line 211 

\--------------

\<%
If Request.Querystring("url") \<\> "" Then

Set MinCon = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/nyheter.mdb")
SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'disko'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%\>\<!--#include file="information_menu.asp" --\>\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>\<tr\>\<td width="68%" valign="top" height="1"\>\<br\>
\<img border="0" src="logo/diskografi.gif"\>\<br\>\<br\>
\<b\>\<%=RecSet("rubrik")%\>\<br\>
\</b\>\<%=RecSet("skivdatum")%\>\<br\>
\<br\>
\<img border="0" src="\<%=RecSet("bild")%\>"\>
\<a target="\_blank" href="http://www.cdon.com/SE"\>
Beställ på CDON.com\</a\>\<br\>
\<br\>
\<%=RecSet("kod")%\>
\<%
RecSet.MoveNext
Loop

RecSet.Close
Set RecSet = Nothing

Connect.Close
Set Connect = Nothing
End If
%\>

raxen den säger att det e fel på är **End If**. Den längst ner...

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

## #2 — m_soderlund, 2002-12-16T16:54Z

Koden ska vara korrekt vad jag kan se?? Detta borde inte göra någon skillnad men byt ut första raden mot denna:

If Len(Request.Querystring("url"))\>0 Then
'din kod..

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

## #3 — LarsG, 2002-12-16T16:55Z

Vad innehåller denna fil?

\<!--#include file="information_menu.asp" --\>

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

## #4 — Nexus86, 2002-12-16T16:56Z

Du har aldrig funderat på att göra koderna lite mer lättlästa va?? (Infogar samma kod för att göra den lite mer lättläst)

```
<% 
If Request.Querystring("url") <> "" Then 

Set MinCon = Server.CreateObject("ADODB.Connection") 
Set RecSet = Server.CreateObject("ADODB.RecordSet") 

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/nyheter.mdb") 
SQL = "SELECT TOP 1 * From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'disko'" 
RecSet.Open SQL, MinCon 

Do While Not RecSet.EOF 
%><!--#include file="information_menu.asp" --><table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"><tr><td width="68%" valign="top" height="1"><br> 
<img border="0" src="logo/diskografi.gif"><br><br> 
<b><%=RecSet("rubrik")%><br> 
</b><%=RecSet("skivdatum")%><br> 
<br> 
<img border="0" src="<%=RecSet("bild")%>"> 
<a target="_blank" href="http://www.cdon.com/SE"> 
Beställ på CDON.com</a><br> 
<br> 
<%=RecSet("kod")%> 
<% 
RecSet.MoveNext 
Loop 

RecSet.Close 
Set RecSet = Nothing 

Connect.Close 
Set Connect = Nothing 
End If 
%>
```

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

## #5 — Nexus86, 2002-12-16T16:57Z

troligen så innehåller filen "information_menu.asp" någon oavslutad Do..

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

## #6 — wunderbaren, 2002-12-16T17:04Z

information.asp innehåller bara html

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

## #7 — wunderbaren, 2002-12-16T17:08Z

POSTAR HELA MIN SIDA!

Ser nån ngt fel?

\-----------------------------------

\<%
If Request.Querystring("url") \<\> "" Then

Set MinCon = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/nyheter.mdb")
SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'sida'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%\>\<%
Dim myMeny, kika 
kika = "" & RecSet("kommentar") 
myMeny = CStr(kika) 

Select Case myMeny
  Case home
%\>\<!--#include file="home_menu.asp" --\>\<%
  Case information
%\>\<!--#include file="information_menu.asp" --\>\<%
  Case media
%\>\<!--#include file="media_menu.asp" --\>\<%
  Case contact
%\>\<!--#include file="contact_menu.asp" --\>\<%
End Select
%\>\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>\<tr\>\<td width="68%" valign="top" height="1"\>\<br\>\<%
kika = "" & RecSet("url") 
myMeny = CStr(kika)

Select Case myMeny
  Case 1488
%\>\<!--#include virtual="temp/\~temp1488.asp" --\>\<%
  Case 1487
%\>\<!--#include virtual="temp/\~temp1487.asp" --\>\<%
  Case 1486
%\>\<!--#include virtual="temp/\~temp1486.asp" --\>\<%
  Case 1485
%\>\<!--#include virtual="temp/\~temp1485.asp" --\>\<%
  Case 1484
%\>\<!--#include virtual="temp/\~temp1484.asp" --\>\<%
  Case 1483
%\>\<!--#include virtual="temp/\~temp1483.asp" --\>\<%
  Case 1482
%\>\<!--#include virtual="temp/\~temp1482.asp" --\>\<%
  Case 1481
%\>\<!--#include virtual="temp/\~temp1481.asp" --\>\<%
  Case 1480
%\>\<!--#include virtual="temp/\~temp1480.asp" --\>\<%
  Case 1479
%\>\<!--#include virtual="temp/\~temp1479.asp" --\>\<%
  Case 1478
%\>\<!--#include virtual="temp/\~temp1478.asp" --\>\<%
  Case 1477
%\>\<!--#include virtual="temp/\~temp1477.asp" --\>\<%
  Case 1476
%\>\<!--#include virtual="temp/\~temp1476.asp" --\>\<%
  Case 1475
%\>\<!--#include virtual="temp/\~temp1475.asp" --\>\<%
  Case 1474
%\>\<!--#include virtual="temp/\~temp1474.asp" --\>\<%
  Case 1473
%\>\<!--#include virtual="temp/\~temp1473.asp" --\>\<%
  Case 1472
%\>\<!--#include virtual="temp/\~temp1472.asp" --\>\<%
  Case 1471
%\>\<!--#include virtual="temp/\~temp1471.asp" --\>\<%
  Case 1470
%\>\<!--#include virtual="temp/\~temp1470.asp" --\>\<%
  Case 1469
%\>\<!--#include virtual="temp/\~temp1469.asp" --\>\<%
  Case 1468
%\>\<!--#include virtual="temp/\~temp1468.asp" --\>\<%
  Case 1467
%\>\<!--#include virtual="temp/\~temp1467.asp" --\>\<%
  Case 1466
%\>\<!--#include virtual="temp/\~temp1466.asp" --\>\<%
End Select
%\>
\<%
If Request.Querystring("url") \<\> "" Then

Set MinCon = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/nyheter.mdb")
SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'nyheter'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%\>\<!-- #include file="home_menu.asp" --\>\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>\<tr\>\<td width="68%" valign="top" height="1"\>\<br\>
\<img border="0" src="logo/nyheter.gif"\>\<br\>\<br\>
\<%If NOT RecSet("bild_2") = "" Then%\>
\<img border="1" src="abc123/news/\<%=RecSet("bild_2")%\>.gif"\>\<br\>
\<img border="0" src="green/mellan.rum.gif" width="1" height="1"\>\<br\>\<%End If%\>
\<%If NOT RecSet("kommentar_2") = "" Then%\>\<font face="arial"\>\<%=RecSet("kommentar_2")%\>\</font\>\<br\>
\<img border="0" src="green/mellan.rum.gif" width="1" height="1"\>\<br\>
\<%End If%\>
\<%If NOT RecSet("foto_2") = "" Then%\>\<font face="arial"\>Foto: \<%=RecSet("foto_2")%\>\</font\>\<%End If%\>
\<%If NOT RecSet("bild_2") = "" Then%\>\<br\>\<img border="0" src="green/mellan.rum.gif" width="1" height="5"\>\<br\>\<%End If%\>
\<%If NOT RecSet("bild") = "" Then%\>
\<table width="100%"\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="38" align="right"\>
  \<tr\>
    \<td width="0%"\>
    \<img border="1" src="abc123/news/\<%=RecSet("bild")%\>.gif"\>\<br\>
    \<img border="0" src="green/mellan.rum.gif" width="1" height="1"\>\<br\>\<%End If%\>
    \<%If NOT RecSet("kommentar") = "" Then%\>\<font face="arial"\>\<%=RecSet("kommentar")%\>\</font\>\<br\>
    \<img border="0" src="green/mellan.rum.gif" width="1" height="1"\>\<br\>
    \<%End If%\>
    \<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="0%"\>
    \<tr\>
      \<td width="100%"\>
       \<%If NOT RecSet("foto") = "" Then%\>\<font face="arial"\>Foto: \<%=RecSet("foto")%\>\</font\>
    \<%End If%\>
    \<%If NOT RecSet("bild") = "" Then%\>
      \</td\>
    \</tr\>
  \</table\>
    \<%End If%\>
\</td\>
    \<td width="4"\>\<img border="0" src="green/mellan.rum.gif" width="4" height="1"\>\</td\>
  \</tr\>
\</table\>
\<font size="2"\>\<b\>\<%=RecSet("rubrik")%\>\</b\>\</font\>\<br\>
\<img border="0" src="green/mellan.rum.gif" width="1" height="3"\>\<br\>
\<b\>\<%=RecSet("intro")%\>\</b\>
\<br\>\<img border="0" src="green/mellan.rum.gif" width="1" height="3"\>\<br\>
\<%Fixa  = Server.HTMLEncode(RecSet("nyhet"))
Fixa    = Replace(Trim(Fixa),"\[line\]","\<img src=images/line.gif\>")
Fixa    = Replace(Trim(Fixa),"\[","\<")
Fixa    = Replace(Trim(Fixa),"\]","\>")
Fixa    = Replace(Trim(Fixa), vbCrLf, "\<br\>")
Response.Write Fixa%\>
\<br\>\<br\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="201"\>
  \<tr\>
    \<td width="75"\>\<b\>Publicerad:\</b\>\</td\>
    \<td width="126"\>\<i\>\<%=RecSet("datum")%\>\</i\>\</td\>
  \</tr\>
  \<tr\>
    \<td width="75"\>\<b\>Uppdaterad:\</b\>\</td\>
    \<td width="126"\>\<i\>\<%=RecSet("updated")%\>\</i\>\</td\>
  \</tr\>
\</table\>
\<%
If Request.Querystring("url") \<\> "" Then

Set MinCon = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/nyheter.mdb")
SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'dagbok'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%\>\<!--#include file="information_menu.asp" --\>\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>\<tr\>\<td width="68%" valign="top" height="1"\>\<br\>
\<img border="0" src="logo/dagbok.gif"\>\<br\>\<br\>
\<b\>\<%=RecSet("rubrik")%\>\</b\>\<br\>
\<img border="0" src="hoger_meny/mellan.gif" width="1" height="5"\>\<br\>
\<%Fixa  = Server.HTMLEncode(RecSet("kod"))
Fixa    = Replace(Trim(Fixa), vbCrLf, "\<br\>")
Response.Write Fixa%\>\<br\>
\<br\>
\<b\>Publicerad:\</b\> \<%=RecSet("datum")%\>\<br\>
\<br\>
\<%
If Request.Querystring("url") \<\> "" Then

Set MinCon = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/nyheter.mdb")
SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'disko'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%\>\<!--#include file="information_menu.asp" --\>\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>\<tr\>\<td width="68%" valign="top" height="1"\>\<br\>
\<img border="0" src="logo/diskografi.gif"\>\<br\>\<br\>
\<b\>\<%=RecSet("rubrik")%\>\<br\>
\</b\>\<%=RecSet("skivdatum")%\>\<br\>
\<br\>
\<img border="0" src="http://www.josefine-sundstrom.net/\<%=RecSet("bild")%\>"\>
\<a target="\_blank" href="http://www.cdon.com/SE"\>
Beställ på CDON.com\</a\>\<br\>
\<br\>
\<%=RecSet("kod")%\>
\<%
RecSet.MoveNext
Loop

RecSet.Close
Set RecSet = Nothing

Connect.Close
Set Connect = Nothing
End If
%\>

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

## #8 — solbulle, 2002-12-16T17:10Z

Ta bort raden:

If Request.Querystring("url") \<\> "" Then 

mitt i koden.

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

## #9 — solbulle, 2002-12-16T17:12Z

> **Nexus86 skrev:**
>
> Du har aldrig funderat på att göra koderna lite mer lättlästa va??...

Kan bara hålla med.

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

## #10 — wunderbaren, 2002-12-16T17:15Z

Är det ngn som ser ngt fel?

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

## #11 — solbulle, 2002-12-16T17:17Z

Fungerade det inte med det jag skrev???

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

## #12 — wunderbaren, 2002-12-16T17:18Z

nope.....det e många fel liksom...

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

## #13 — solbulle, 2002-12-16T17:54Z

Bryt upp koden i mindre bitar och testa bit för bit så lär du snart lokaliserat felen.

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

## #14 — icaaq, 2002-12-16T17:58Z

Du vet att alla dina includes kommer att bearbetas av servern va....??

mvh icaaq

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

## #15 — wunderbaren, 2002-12-16T18:14Z

vad menar du med det?

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

## #16 — Ekström, 2002-12-16T18:26Z

Alla filer kommer hämtas till sidan. Använder du Server.Execute() så behöver det inte bli så.

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

## #17 — wunderbaren, 2002-12-16T18:58Z

kan man ha asp i sidorna då?

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

## #18 — icaaq, 2002-12-16T19:02Z

Ja

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

## #19 — wunderbaren, 2002-12-16T19:03Z

Hur gör man koden då?

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

## #20 — icaaq, 2002-12-16T19:09Z

```
[red]
Select Case myMeny
Case 1488
     Server.Execute("temp/~temp1488.asp")
...
...
[/red]
```

Jag vet inte hur sökvägen ligger men det fixar du nog till....

mvh icaaq

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/62357-asp-fel-hur-görman