Hej gott folk...
Jag kan inte klura ut hur jag ska bära mig åt att loopa mer än en Record set.
Med denna kod hamnar bara flera DID som är samma efter varann, och under dessa var och en SID.
Jag vill alltså bara ha en av varje DID som har tillhörande SID under sig.
Någon som förstår?
<%
RecSet2.pagesize = 10
sida = Request.QueryString("sida")
If sida = "" then sida = 1
if RecSet2.EOF then
Response.write "Det finns inga poster att hämta i databasen"
Else
RecSet2.AbsolutePage = sida
totalPages = RecSet2.PageCount
Do until RecSet2.EOF or fldcounter = RecSet2.pagesize
fldcounter = fldcounter + 1
%>
<a href="visa_debatt.asp?DID=<%=RecSet("DID")%>"><font size="2"><%=RecSet("rubrik")%></font></a>
<br>
- <a href="visa_svar.asp?ID=<%=RecSet2("ID")%>&DID=<%=RecSet("DID")%>"><%=RecSet2("rubrik")%></a>
<%=RecSet2("namn")%>
</font></p>
<%
RecSet2.MoveNext
Loop
End If %>
Du måste visa koden för dina SQL-satser ifall jag skall kunna hjälpa dig med detta. Annars är väl detta den generella metoden om man inte gör en jätte-JOIN och sedan sorterar datat med lite sträng/long-jämförelser på ASP-sidan.
while not rs.eof
response.write rs("Element") & "<br>"
sql = "SELECT * FROM SubElement WHERE ElementId = " & rs("ELementId") & ""
set rs2 = conn.execute(sql)
while not rs.eof
response.write rs2("SubElement") & "<br>"
rs2.movenext
wend
set rs2 = nothing
rs.movenext
wend
Kanske blev det lite luddigt, det jag vill är följande.
Jag vill ha de olika rubrikerna, från debatt-tabellen, loopade.
Och under dessa debattrubriker, tillhörande respektive under-rubriker. Är du med?
Här är SQL-satserna, som jag också tvivlar på skall se ut så här.
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT *, Format$([datum],'yyyy/mm/dd') AS formdatum FROM debatt order by DID desc"
RecSet.Open SQL, Connection, adOpenStatic, adLockOptimistic
Set Number = Connection.Execute("Select Count(*) As Antal FROM debatt")
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT *, Format$([datum],'yyyy/mm/dd') AS formdatum FROM debatt_svar order by datum desc"
RecSet2.Open SQL, Connection, adOpenStatic, adLockOptimistic
Set Number = Connection.Execute("Select Count(*) As Antal FROM debatt_svar")
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT (select count(*) from debatt) As AntalDebatt, *, Format$([datum],'yyyy/mm/dd') AS formdatum FROM debatt order by DID desc"
RecSet.Open SQL, Connection, adOpenStatic, adLockOptimistic
Set Number = Connection.Execute("Select Count(*) As Antal FROM debatt_svar")
response.write recset("AntalDebatt") & "<br>"
while not recset.eof
response.write recset("Element") & "<br>"
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT (select count(*) from debatt_svar) As AntalSvar, *, Format$([datum],'yyyy/mm/dd') AS formdatum FROM debatt_svar WHERE debatt_id = " & recset("id") & " order by datum desc"
RecSet2.Open SQL, Connection, adOpenStatic, adLockOptimistic
response.write "Antal svar: " & recset2("AntalSvar") & "<br>"
while not recset2.eof
response.write recset2("Din_kolumn") & "<br>"
recset2.movenext
wend
set recset2 = nothing
recset.movenext
wend
set recset = nothing
Eftersom det är första gången jag gör något med relationer, så uppskattas hjälp väldigt mkt.
Men, denna del blir inte bra.
SQL = "SELECT (select count(*) from debatt_svar) As AntalSvar, *, Format$([datum],'yyyy/mm/dd') AS formdatum FROM debatt_svar WHERE debatt_id = " & recset("id") & " order by datum desc"
Vad skall stå vid "WHERE debatt_id och recset("id")
Jag skrev SID och DID för att få det att överhuvud fungera. De relaterade är DID från debatt och SID från debatt_svar, där också ID ligger för att räkna dem.
Men märkte dock att det inte blev rätt, då alla debatt-rubriker hade lika många debattsvar-rubriker.
Sen var tanken att länka dessa debatt-rubriker, till själva debatten, likaså med debatt-svaren. Hur länkar jag i response.write?
Och till sist så ska jag lyckas lägga till svaren i rätt debatt, svarsidan hamnar på rätt debatt-id. men när det läggs in, hamnar det lite som det vill..
