Loop problem

14 svar · 231 visningar · startad av Sensei 8 maj 2001

SenseiMedlem sedan mars 200168 inlägg

Trådstart8 maj 2001 08:27#1

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
%>

EclipseMedlem sedan juli 20003 825 inlägg

8 maj 2001 08:41#2

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

SenseiMedlem sedan mars 200168 inlägg

8 maj 2001 08:57#3

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

brwMedlem sedan juli 2000619 inlägg

8 maj 2001 09:14#4

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.

SenseiMedlem sedan mars 200168 inlägg

8 maj 2001 09:24#5

Naej , jag kan ytterst lite om asp =]

SPiNMedlem sedan mars 20007 896 inlägg

8 maj 2001 10:15#6

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

SenseiMedlem sedan mars 200168 inlägg

8 maj 2001 11:10#7

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>

@ndersMedlem sedan juni 200032 967 inlägg

8 maj 2001 11:12#8

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

SenseiMedlem sedan mars 200168 inlägg

8 maj 2001 11:19#9

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

@ndersMedlem sedan juni 200032 967 inlägg

8 maj 2001 11:26#10

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,

SenseiMedlem sedan mars 200168 inlägg

8 maj 2001 11:54#11

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]

SenseiMedlem sedan mars 200168 inlägg

8 maj 2001 12:12#12

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?

SenseiMedlem sedan mars 200168 inlägg

8 maj 2001 12:33#13

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

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

EclipseMedlem sedan juli 20003 825 inlägg

8 maj 2001 13:27#14

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

on error resume next

så blir du kvitt alla eventuella felmeddelanden.

solbulleMedlem sedan mars 20015 287 inlägg

24 maj 2001 22:06#15

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å?