---
title: "Loop fel"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8725-loop-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Sensei"
published: "2001-03-28T06:55:00.000Z"
updated: "2001-03-28T08:57:00.000Z"
replies: 4
views: 134
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/8725-loop-fel"
---

# Loop fel

## #1 — Sensei, 2001-03-28T06:55Z

Jag får det här felmedelandet.

*Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A040E)
'loop' utan 'do'
/black/\_admin\_/p_authDelete.asp, line 71
Loop*

I det här scriptet, fattar inget :x

```
<%Set MyConn1 = Server.CreateObject("ADODB.Connection")%>
<%'Set MyConn2 = Server.CreateObject("ADODB.Connection")%>

<%Set RS1 = Server.CreateObject("ADODB.RecordSet")%>
<%'Set RS2 = Server.CreateObject("ADODB.RecordSet")%>

<%MdbFilePath1 = Server.MapPath("../dbase/miller.mdb")%>
<%'MdbFilePath2 = Server.MapPath("../dbase/engmiller.mdb")%>

<%MyConn1.OPEN "driver={Microsoft Access Driver (*.mdb)};;DBQ=" & MdbFilePath1 & ";"%>
<%'MyConn2.OPEN "driver={Microsoft Access Driver (*.mdb)};;DBQ=" & MdbFilePath2 & ";"%>

<%RS1.Open "Select * From tblAuthors", MyConn1%>
<%'RS2.Open "Select * From tblAuthors", MyConn2%>

<%Do While Not RS1.eof%>
<form action="p_authDelete_send.asp" method="Post">
    <tr align="left" valign="middle">
	<td width="50"><div align="left"><INPUT Type=CheckBox Name="toDelete" Value=
	<% if (RS1("autID").value) = (RS1("autName").value) then %>
	<%= RS1("autName")%>
	<% else %>
	<%="Posts are missplaced." %>
	></div></td>
	<td width="200"><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>
	<% if (RS1("autName").value) = (RS1("autName").value) then %>
	<%= RS1("autName")%>
	<% else %>
	<%="Posts are missplaced."%>
	<% end if %>
	</b></font></div></td>
	<td width="300"><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><% = RS1("autEmail")%></font></div></td>
   </tr>
<%RS1.movenext%>
<%Loop%>
   
<tr><td>
<%RS1.close%>
<%'RS2.close%>
<%MyConn1.close%>
<%'MyConn2.close%>
```

Som ni ser är den hel del strängar avstängda, men kanske var nått sånt fel så jag klistrade in dem också.

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

## #2 — jonne, 2001-03-28T07:00Z

Saknas ett end if i första if satsen:

```
<% if (RS1("autID").value) = (RS1("autName").value) then %>
<%= RS1("autName")%>
<% else %>
<%="Posts are missplaced." %>
[b]<% end if %>[/b]
```

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

## #3 — Sensei, 2001-03-28T07:44Z

hahaha.. slut på jolt.. =\]

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

## #4 — Eclipse, 2001-03-28T08:49Z

Du borde förslagsvis lägga ner lite tid för att reducera antalet \<% %\> -taggar... Din kod är väldigt rörig och det vet jag att du också kommer att tycka om sådär två tre veckor, kanske fortare! :-)

Sen är det nog vettigare att inte ha en databas per språk utan att de delar på posterna och att man vet vilket språk som åsyftas utifrån andra kreterier...

Men det kanske är överkurs!? Kommer tid kommer råd!

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

## #5 — Sensei, 2001-03-28T08:57Z

True true

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8725-loop-fel