webForumDet fria alternativet

Do loop

10 svar · 344 visningar · startad av morris_the_cat

morris_the_catMedlem sedan feb. 200552 inlägg
#1

Hej!

Jag har en tabell med ett fältnamn som heter Subkategori. I det fältet lagras siffror från ett och uppåt som representerar
olika fotojobb. När jag sedan vill loppa ut dom så vill jag att alla bilder med Subkategori 1 gemensamt
ska hamna efter varandra sorterat på ID. När sedan dom bilderna är slut vill jag först skriva ut div som fungerar som en radbrytare och sedan
loopa ut alla bilder med Subkategori 2. Sen ska radbrytardiven dit och sen bilderna från Subkategori 3 O.S.V.

Jag tycker att det borde gå att lösa med villkor i DO på nåt sätt men jag kommer inte på hur.
Är nybörjare så om nån kan förklara så gör gärna det med kod. Tack

Martin

Jesper TMedlem sedan nov. 20017 058 inlägg
#2

Något sådant här kanske:

Subkategori = 0

Do while ditt_recset.EOF
Subkategori = ditt_recset("subkategori")
    If cStr(ditt_recset("subkategori")) <> cStr(Subkategori) then
        Response.write "<div>Separator Subkategori :"& Subkategori &"</div>"
    End if

Response.write ditt_recset("andra_kolumner")

ditt_recset.movenext
Loop
morris_the_catMedlem sedan feb. 200552 inlägg
#3

Tack för hjälpen men var sätter jag in sökvägen till bilden och var sätter jag in radbrytaren?

Här är koden som visar bilderna:

<div id="thumb"><img src="<% rs=("sokvag_thumb") %>" </div>

Och här är koden för radbrytning:

<div id="thumb_br">_</div>
Jesper TMedlem sedan nov. 20017 058 inlägg
#4
Subkategori = 0

Do while rs.EOF
Subkategori = rs("subkategori")
    If cStr(rs("subkategori")) <> cStr(Subkategori) then
        Response.write "<div id=""thumb_br"">_</div> "
    End if
%>
<div id="thumb"><img src="<% =rs("sokvag_thumb") %>" </div>
%>
rs.movenext
Loop

Något sådant här kanske.

morris_the_catMedlem sedan feb. 200552 inlägg
#5

Tack för förslaget men jag får det inte att funka. Ingenting händer. Har provat att ha fälttypen i tabellen som tal utan skillnad. Vad kan det vara för fel?

Jesper TMedlem sedan nov. 20017 058 inlägg
#6

Du måste nog bifoga lite kod för att gå vidare.

morris_the_catMedlem sedan feb. 200552 inlägg
#7

Så här ser koden ut:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<!-- #include file="includes/adovbs.inc" -->
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="CSS/max.css" rel="stylesheet" type="text/css">
</head>

<body>
<div id="main_container">
<img src="images/header.gif" alt="">

<!-- Advertising -->
<% if request.QueryString("kategori") = "advertising" then %>
<h1>advertising</h1><br>

<% Set Connect = Server.CreateObject("ADODB.Connection")
   Connect.Open = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/max.mdb")
   Set rs = Server.CreateObject("adodb.recordset")

   Addera = "SELECT * FROM bilder WHERE Kategori = 'advertising'"
   
   rs.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
   <%	subkategori = 0 %>

		<% Do while rs.EOF
		subkategori = rs("Subkategori")
			If cStr(rs("Subkategori")) <> cStr(subkategori) then
				Response.write "<div id=""thumb_br"">_</div> "

			End if%>
		
		<div id="thumb"><img src="<% =rs("sokvag_thumb") %>" </div>

		
		<%rs.movenext
		Loop %>

	
	
	<% rs.Close %>
	
  
	
	<% Connect.close %>
   
<!-- Editorial -->
<% elseif request.QueryString("kategori") = "editorial" then %>
<h1>editorial</h1>
<% end if %>
</div>
</body>
</html>

och tabellen kan du se här www.primesth.net/Kasper/tabell.jpg

Martin

Jesper TMedlem sedan nov. 20017 058 inlägg
#8

Do while Not rs.EOF

morris_the_catMedlem sedan feb. 200552 inlägg
#9

Nu funkar det men nu blir det radbrytning efter varje bild och jag vill ha radbrytning när Subkategori ändras från 1 till 2 till 3 och så vidare. Kan man lösa det på nåt sätt. Tack Jesper för all hjälp!

Martin

Jesper TMedlem sedan nov. 20017 058 inlägg
#10
<% 
Do while not rs.EOF
    If cStr(rs("Subkategori")) <> cStr(subkategori) then
        subkategori = rs("Subkategori")
        Response.write "<div id=""thumb_br"">_</div> "
    End if
%>
morris_the_catMedlem sedan feb. 200552 inlägg
#11

Perfekt, tack! Nu är det inte ett ASP problem längre för det funkar perfekt i Firefox men den radbryter efter varje bild i explorer. Men det är ett annat forum. Tack Jesper T!

Genererad på 516 ms · cache AV · v20260730165559-full.f96bc7eb