10 svar · 344 visningar · startad av morris_the_cat
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
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
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>
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.
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?
Du måste nog bifoga lite kod för att gå vidare.
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
Do while Not rs.EOF
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
<%
Do while not rs.EOF
If cStr(rs("Subkategori")) <> cStr(subkategori) then
subkategori = rs("Subkategori")
Response.write "<div id=""thumb_br"">_</div> "
End if
%>
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!