7 svar · 305 visningar · startad av Flax
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
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> </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"
schysst!