Sortera ur databasen

Jag har en databas med två tabeller. Den ena heter tex name och den andra location. Location kan antingen vara folder1, folder2 eller folder3.

Jag vill sortera alla poster som finns i databasen så de skrivs ut så här:

Folder1:
Name1.jpg
Name2.jpg
Folder2:
Name4.jpg
Folder3:
Name3.jpg
Name5.jpg

*********************
Detta är bara ett exempel men jag hoppas ni förstår. Så som jag har skrivit har vi alltså 5 olika ID med tillhörande värden. Jag vore tacksam för snabba svar och gärna ett kodexempel...

mvh Flax

Så här ungefär

dim connect,rs,location
set connect = server.createobject("adodb.connection")
connect.open dsn

set rs = connect.execute("select * from name n join location l on n.locationid = l.id order by location,name")

location = ""
while not rs.eof
  if  location <> rs("location") then
      location = rs("location")
      response.write location & ":<br>"
  end if
  response.write rs("name") & "<br>"
  rs.movenext
wend
rs.close
connect.close

------------------
essentitia preter non sans multiplicandum

Jag tror att vi har missuppfattat varandra....

Jag har en massa värden i en tabell som ligger huller om buller. Jag vill tex bara skriva ut de som har ett visst värde, det kan man göra:

<%	Do Until RecSetb.EOF 
IF RecSetb("location")=RecSet("mapp") THEN
%>
<%=RecSetb("bildadress")%>
<%
ELSE
%>
<%
END IF
RecSetb.MoveNext
Loop
%>

Jag tror att man kan göra så här iaf...

hoppas...

När den har gått igenom alla, har den hittat alla där RecSetb("location") är lika med RecSet("mapp") men RecSetb("location") kan också vara annat än "RecSet("mapp"). Första gången den kör do until-loopen är RecSet("mapp") något, men sen när den kör om den "stora loopen"(är inte kod på den) ska den köra min lilla kodsnutt igen. Det gör den inte.

Jag tänkte att när den ska köra min kodsnutt igen är RecSet("mapp") något annat och den ska då igen söka efter när RecSet("mapp") är lika med RecSetb("location")...

Jag hoppas ni förstår vad jag menar...

MVH Flax

Jag har fixat järnet och nu ser det ut så här:

<table border=0 cellspacing=0 cellpadding=0>
<%	Do Until RecSet.EOF %>
<tr>
<td>
<font size="2" onClick="visa(h<% =RecSet("mapp") %> )" style="cursor:hand">
<b><% =RecSet("mapp") %></b>
</font>
</td>
</tr>
<tr id=h<% =RecSet("mapp") %> style="display:'none'">
<td>
<font face=Arial size=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td width=5>&nbsp;</td>
<td><font face=Arial size=2>
<%	
dim ad
ad = RecSet("mapp")
Set RecSetb = Server.CreateObject("ADODB.Recordset")
bildinfo = "SELECT * FROM bildinfo WHERE location = 'mapp1' ORDER BY location"
RecSetb.Open bildinfo, Connect, adOpenStatic, adLockOptimistic
Do Until RecSetb.EOF 
%>
<%=RecSetb("bildadress")%><br>
<%
RecSetb.MoveNext
Loop
RecSetb.Close
%>
</font></td>
</tr>
</table>
</font>
</td>
</tr>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>

Nu skriver den ut allt som har location='mapp1' men jag vill att den ska skriva ut när location=RecSet("mapp")

Hur gör man då?

dim ad
ad = RecSet("mapp")

Denna kod behövs ju inte, råkade bara lämna kvar den :)

Jag har försökt att sätta location=RecSet'mapp' och så men det går inte...

hjälp... ... ... ... .. .. . .

bildinfo = "SELECT * FROM bildinfo WHERE location = '" & RecSet("Mapp") & "' ORDER BY location"

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

@nders!

Tack så mycket! Det funkar finfint!!!

Faan va göött!!!!!

Tack!

schysst! :)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>