Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("knivbas.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT bt.namn, bt.id as tid, bg.id, bg.titel FROM bilder_typ bt, bilder_grupp bg WHERE bt.id = bg.sektion ORDER BY bg.sektion ASC"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
lasttyp = ""
Do until RecSet.EOF
if not lasttyp = RecSet("tid") then
lasttyp = RecSet("tid")
%>
<br/><b><%=RecSet("namn")%></b><br/>
<%
end if
SQL2 = "SELECT count(*) as totalt FROM bilder WHERE gid='"&RecSet("id")&"'"
*rs.Open SQL2, Connect, adOpenStatic, adLockOptimistic
'Response.Write SQL2
%>
<a href="pics_more.asp?gid=<%=RecSet("id")%>"><%=RecSet("titel")%></a> - (<%'=rs("totalt")%> bilder)<br/>
<%
RecSet.MoveNext
Loop
RecSet.Close
rs.Close
Connect.Close
Set Connect = Nothing
Felmeddelande på den rad som jag har markerat med en *.
Feltyp:
ADODB.Recordset (0x800A0E79)
Åtgärden är inte tillåten när objektet är öppet.
/pics.asp, line 73
SQL2 = "SELECT count(*) as totalt FROM bilder WHERE gid='"&RecSet("id")&"'"
*rs.Open SQL2, Connect, adOpenStatic, adLockOptimistic
'Response.Write SQL2
SQL2 = "SELECT count(*) as totalt FROM bilder WHERE gid='"&RecSet("id")&"'"
*rs.Open SQL2, Connect, adOpenStatic, adLockOptimistic
'Response.Write SQL2
Fast hur som helst vore det väl onekligen bäst med en join mellan databaserna och hämta allt i en öppning, om det är möjligt, i stället för att öppna o stänga som en liten tok.
Fråga dock inte mig hur den joinen skall se ut...
Jag vet inte exakt hur join funkar, men det är väl att man kopplar ihop tabeller, och det har jag ju redan gjort.
Jag tror jag är tvungen att öppna o stänga "som en tok" precis som jag gör just nu faktiskt
Ja, men se det har du ju!
Njo, det jag tänkt var att kan man inte få reda på antalet bilder (din count) i den första frågan direkt?
Men som sagt, det kanske inte går och hur som helst vet inte jag hur det skulle gå till. Bara en tanke.
