---
title: "Loop problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9709-loop-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Sensei"
published: "2001-05-08T08:27:00.000Z"
updated: "2001-05-24T22:06:00.000Z"
replies: 14
views: 231
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/9709-loop-problem"
---

# Loop problem

## #1 — Sensei, 2001-05-08T08:27Z

kruxet: jag vill ha en loop som går en gång till höger sedan ner, sedan till höger osv har gjort en liten bild så ni ser =\]

 <http://www.jonne.nu/sensei/stuff/error.jpg> 

Just nu har jag en enkel loop men om jag lade i 2 tables, som det är upplagt nu så dubbel loopa den, dvs samma länkar på 2 ställen rakt ner.

```
<%
Do until rs.eof
%>
<a href="<%response.write rs("lnkAdress")%>" target="_new"><%response.write rs("lnkNamn")%></a><br>
<%
rs.movenext
loop
%>
```

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

## #2 — Eclipse, 2001-05-08T08:41Z

Gör en tabell med två celler i och loopa genom den.

Om du har ett udda antal så blir det "fel" så att säga, alltså en cell blir tom, men det gör inget, så blir det ju i all fall! :-)

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

## #3 — Sensei, 2001-05-08T08:57Z

2 celler? \<td\>\</td\>\<td\>\</td\> menar du?
Det har jag försökt men.. jag fattar inte hur det ska gå till

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

## #4 — brw, 2001-05-08T09:14Z

Du kan ju använda dig av en counter som räknar till från 1 till 2 och när det blir  2 så kör du en \</tr\> och börjar om med \<tr\> om du förstår.

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

## #5 — Sensei, 2001-05-08T09:24Z

Naej , jag kan ytterst lite om asp =\]

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

## #6 — SPiN, 2001-05-08T10:15Z

Ok, här kommer lite kod då :)

Alternativ 1::

```
Do Until rs.EOF
     Response.Write "<tr>"
     Response.Write "<td>" & rs("lnkNamn") & "</td>"
     rs.MoveNext
     Response.Write "<td>" & rs("lnkNamn") & "</td>"
     Response.Write "</tr>"
rs.MoveNext
Loop
```

Alternativ 2::

```
nCheck = 1
Do Until rs.EOF
     If nCheck = 1 then
          Response.Write "<tr>"
          Response.Write "<td>" & rs("lnkNamn") & "</td>"
          nCheck = 2
     ElseIf nCheck = 2 then
          Response.Write "<td>" & rs("lnkNamn") & "</td>"
          Response.Write "</tr>"
          nCheck = 1
     End If
rs.MoveNext
Loop
```

Båda alternativen borde funka som du vill :)

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

## #7 — Sensei, 2001-05-08T11:10Z

Jupp, tackar  :), men nu bidde kruxet att få in länken, jag har lärt mig att asp kod i en asp kod aldrig går, ska jag använda några fnuttar lr hur blir det?

Länken som jag använde mig av ser ut så här 

```
<a href="<%'response.write rs("lnkAdress")%>" target="_new"><%'response.write rs("lnkNamn")%></a>
```

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

## #8 — @nders, 2001-05-08T11:12Z

typ sådär, fast ta bort apostrofen du kastat in före response.write i de två asp-blocken.

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

## #9 — Sensei, 2001-05-08T11:19Z

Det vill sig inte riktigt.. så här har jag gjort nu.

```
<%
Do Until rs.EOF     
Response.Write "<tr>"     
Response.Write "<td>" & <a href="response.write rs("lnkAdress")" target="_new">response.write rs("lnkNamn")</a> & "</td>"
     rs.MoveNext     
Response.Write "<td>" & rs("lnkNamn") & "</td>" 
Response.Write "</tr>"rs.MoveNext
Loop
%>
[kod]

och får:

[kod]Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A03EA)
Syntaxfel
/silver/lankar.asp, line 25, column 24
Response.Write "<td>" & <a href="response.write rs("lnkAdress")" target="_new">response.write rs("lnkNamn")</a> & "</td>"
```

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

## #10 — @nders, 2001-05-08T11:26Z

det där var ju inte direkt vad du skrev ovan, eller hur?

så här kan det se ut: 

```
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
```

mvh,

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

## #11 — Sensei, 2001-05-08T11:54Z

Attans, det gjorde det inte :(, hadde man udda länkar så blev det error, finns det nått man kan skriva så det blir en tom ruta om sådant händer?

\[Redigerat av Sensei den 08 maj 2001\]

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

## #12 — Sensei, 2001-05-08T12:12Z

Så här ser koden ut:

```
<html>
<head>
<title>Millergraphics</title>
<style type="text/css">
<!--
a:link { font-family: Arial, Verdana, Helvetica, sans-serif; font-size: 10pt; background-color: #FFFFFF }
a:visited { font-family: Arial, Verdana, Helvetica, sans-serif; font-size: 10pt; background-color: #FFFFFF }
a:active { font-family: Arial, Verdana, Helvetica, sans-serif; font-size: 10pt; background-color: #FFFFFF } 
a:hover { font-family: Arial, Verdana, Helvetica, sans-serif; font-size: 10pt; background-color: #FFFFFF}
-->
</style>

</head>
<body bgcolor="#FFFFFF" link="#000000" alink="#000000" vlink="#000000">

<%
Set MyConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
MdbFilePath = Server.MapPath("dbase/miller.mdb")
MyConn.OPEN "driver={Microsoft Access Driver (*.mdb)};;DBQ=" & MdbFilePath & ";"
strSQL = "Select * From tblLinks where lnkCat = 'software'"
RS.Open strSQL,MyConn
%>

<table width="460" border="0" cellspacing="0" cellpadding="0">

<tr><td height="65" colspan="2"></td></tr>
<tr><td height="22" bgcolor="#3C5196" colspan="2"><div align="center"><img src="bilder/nymenu/rubriklank.gif" border="0" alt=""></div></td></tr>
<tr><td HEIGHT="8" bgcolor="#FFFFFF" colspan="2" width="50%" valign="top"></td></tr>

<%
Do Until rs.EOF     
Response.Write "<tr>"     
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
     rs.MoveNext     
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
Response.Write "</tr>"
rs.MoveNext
Loop
%>

<tr><td HEIGHT="10" bgcolor="#FFFFFF" colspan="2"></td></tr>
<tr><td bgcolor="#3c5196" colspan="2"> 
<div align="center"><img src="bilder/nymenu/lankforetag.gif" width="85" height="19"></div></td></tr>
<tr><td HEIGHT="8" bgcolor="#FFFFFF" colspan="2" width="50%" valign="top"></td></tr>

<%
Do Until rs.EOF     
Response.Write "<tr>"     
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
     rs.MoveNext     
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
Response.Write "</tr>"
rs.MoveNext
Loop
%>
		      
<tr><td HEIGHT="10" bgcolor="#FFFFFF" colspan="2"></td></tr>
<tr><td bgcolor="#3c5196" colspan="2"> 
<div align="center"><img src="bilder/nymenu/massorlank.gif" width="210" height="19"></div></td></tr>
<tr><td HEIGHT="8" bgcolor="#FFFFFF" colspan="2" width="50%" valign="top"></td></tr>

<%
Do Until rs.EOF     
Response.Write "<tr>"     
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
     rs.MoveNext     
Response.Write "<td><a href=""" & rs("lnkAdress") & """ target=""_new"">" & rs("lnkNamn") & "</a></td>"
Response.Write "</tr>"
rs.MoveNext
Loop
%>
        
<tr><td HEIGHT="10" bgcolor="#FFFFFF" colspan="2">
</td></tr>
</table>
</body>
</html>
```

Har ni något föslag på hur jag ska göra får att kunna få udda antal länkar utan att det crashar och hur jag ska kunna få fram olika lnkCat?
De olika lnkCat är: software,FOE,companies. Antar att man får stägna ner rs eller vilken av dem det nu är som ska stängas ner och sedan öpnas igen fast med lnkCat companies, är jag helt ute och cyklar nu?

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

## #13 — Sensei, 2001-05-08T12:33Z

Förslag 2 av SPiN fungerade utan crash :\], tack spin, super kanon!

Whupp allt e löst, tack för all er hjälp

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

## #14 — Eclipse, 2001-05-08T13:27Z

under "RS.Open strSQL,MyConn", skriv:

on error resume next

så blir du kvitt alla eventuella felmeddelanden.

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

## #15 — solbulle, 2001-05-24T22:06Z

Ja, det där var ett användbart tips.
Men om jag nu vill lista upp mina saker i tex nummerordning och vill ha det så att jag "fyller" den första kolumnen för att sen fortsätta i nästa
Hur löser man det då?

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

---

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