set re = Connect.Execute("Select f_Kat, f_Datum, f_UserID, f_ID from t_Galleri_info Where f_Year = " & strYear & " And f_Ort = '" & ort & "' order by f_Datum ")
Do Until re.EOF
set rs = Connect.Execute("Select f_Namn, f_Text from t_Galleri WHERE f_KatID = " & re("f_ID") & " ")
strSQL = "Select GI.f_Kat, GI.f_Datum, GI.f_UserID, GI.f_ID, G.f_Namn, G.f_Text from t_Galleri_info GI" & _
" LEFT JOIN t_Galleri G ON GI.f_ID = G.f_KatID " & _
" Where GI.f_Year = " & strYear & " And GI.f_Ort = '" & ort & "' order by GI.f_Datum "
set re = Connect.Execute(strSQL)
Det är bara ett alias, så man kan skriva lite kortare. Speciellt om man har en massa underscore och liknande överallt tenderar det att bli väldigt grisigt.
Jag valde att lägga till det eftersom jag inte visste om det fanns fält med samma namn i tabellerna.
KatID=""
Do while Not rs.eof
If KatID <> rs("f_KatID") then
Response.write rs("f_KatID") &"<br>"
KatID=rs("f_KatID")
End if
'Skriv ut resten
rs.movenext
Loop
KatID=""
Do while Not rs.eof
If KatID <> rs("f_KatID") then
Response.write rs("f_KatID") &"<br>"
KatID=rs("f_KatID")
End if
'Skriv ut resten
rs.movenext
Loop
Det är så jag har gjort nu. Men jag tänkte att det kanske fanns något fint sätt att göra det med en sql sats
141 ms totalt · 3 externa anrop · v20260731065814-full.25f56b17