Databaseudtræk i en løkke.
Hejsa.Jeg har på min side en løkke der gennemløber et recordset. For hver post i recordset'et laver den et nyt databaseudtræk, baseret på det første sæt's id. Problemet er at i stedet for at lave et nyt udtræk hver gang, gentager den sig selv når der ikke er nogen poster der opfylder where clausen.
Koden ser således ud:
Do
strSQL = "Select * From warreports where warid = " & rs("id") & ";"
Set ps = Conn.Execute(strSQL)
If Not ps.EOF Then
ccblinearr = split(ps("lineup"), ",")
opplinearr = split(ps("opplineup"), ",")
ccbline = ""
oppline = ""
For i = LBound(ccblinearr) to UBound(ccblinearr)
ccbline = ccbline & ccblinearr(i) & "<br />"
Next
For i = LBound(opplinearr) to UBound(opplinearr)
oppline = oppline & opplinearr(i) & "<br />"
Next
warrep = "<div class=""warrep"" id=""warrep" & rs("id") & "fill"" style=""display:none;width:100%;""></div>" & _
"<div id=""warrep" & rs("id") & """ style=""display:none;width:100%;""><table class=""tblwarrep"">" & _
"<tr>" & _
" <td colspan=""4""><span class=""warrephead"">" & rs("opponent") & "</span></td>" & _
"</tr>" & _
"<tr>" & _
" <td>Date:</td><td>" & rs("spacedate") & "</td>" &_
" <td>Result:<td><td class=""" & rs("outcome") & """>" & rs("score") & "</td>" & _
"</tr>" & _
"<tr>" & _
" <td>Lineup:</td><td>" & ccbline & "</td>" & _
" <td>" & rs("opponent") & " Lineup:</td><td>" & oppline & "</td>" & _
"</tr>" & _
"<tr>" & _
" <td colspan=""4"">" & ps("comment") & "</td>" & _
"</tr>" & _
"</table></div>"
End If
Response.Write "<tr>" & _
" <td>" & rs("spacedate") & "</td>" & _
" <td>" & rs("opponent") & "</td>" & _
" <td>" & rs("wartype") & "</td>" & _
" <td>" & rs("maps") & "</td>" & _
" <td>" & rs("mapscore") & "</td>" & _
" <td class=""" & rs("outcome") & """>" & rs("score") & "</td>" & _
" <td></td>" & _
"</tr>" & _
"<tr>" & _
" <td colspan=""7"">" & warrep & "</td>" & _
"</tr>"
rs.MoveNext
Loop While Not rs.EOF
Nogen der kan spotte fejlen? Jeg har set mig blind på det. Håber i kan løse det.
Venlig hilsen
Peter.
