sql = "select F_RF_NAMN,F_FB_NAMN,F_FOR_NAMN
from T_RF,T_FB,T_FORENING
where T_RF.F_USER_ID = T_FB.F_USER_ID
and T_FB.F_USER_ID = T_FORENING.F_USER_ID
and T_FORENING.F_USER_ID = " & intID
sql = "select F_RF_NAMN,F_FB_NAMN,F_FOR_NAMN
from T_RF,T_FB,T_FORENING
where T_RF.F_USER_ID = T_FB.F_USER_ID
and T_FB.F_USER_ID = T_FORENING.F_USER_ID
and T_FORENING.F_USER_ID = " & intID
Set ObjRS = ObjConn.Execute(sql)
If objRS.EOF Then
'lala
Else
Response.Write"<select name=""Namn"" tabindex=""1"" >" &vbCrLf
Response.Write"<option style=""background: #FFCC99; color: #000000"">Välj din styrelse</option>" &vbCrLf
Do Until ObjRS.EOF
Response.Write"<option style=""background: #FFCC99; color: #000000"">"&[b]ObjRS("F_LAG_NAMN")[/b]&"</option>" &vbCrLf
ObjRS.Movenext
Loop
'och så stänger vi
hur ska jag göra vi den feta texten ....?
Kan jag skriva ObjRS(0) ??
Eller ska man döpa selecten med AS ?
select F_RF_NAMN,F_FB_NAMN,F_FOR_NAMN from T_RF,T_FB,T_FORENING where T_RF.F_USER_ID = T_FB.F_USER_ID and T_FB.F_USER_ID = T_FORENING.F_USER_ID and T_FORENING.F_USER_ID = 1
men vad jag får ut är bara posterna jag har i T_RF (Det är två stycken), och dem kommer så här:
Sverges innebandy förbund
Sverges innebandy förbund
Sverges innebandy förbund
Sverges innebandy förbund
Sveriges Ishockey förbund
Sveriges Ishockey förbund
Sveriges Ishockey förbund
Sveriges Ishockey förbund
Om du använder outer eller inner join har ingen betydelse i detta sammanhang. (Det du använder nu är en inner join.)
Det man kan göra är att i presentationen hålla reda på när någon kolumn byter värde och bara i dessa fall skriva ut innehållet
sql = _
"select F_RF_NAMN,F_FB_NAMN,F_FOR_NAMN from T_RF,T_FB,T_FORENING where T_RF.F_USER_ID = T_FB.F_USER_ID and T_FB.F_USER_ID = T_FORENING.F_USER_ID and T_FORENING.F_USER_ID = 1 order by F_RF_NAMN "
set rs = connect.execute(sql)
f_rf_namm = ""
while not rs.eof
if f_rf_namn <> rs("f_rf_namn") then
f_rf_namn = rs("(f_rf_namn")
'skriv ut f_rf_namn
end if
'skriv ut övriga kolumner
rs.movenext
wend
Nu vet jag inte om det stämmer med dina kolumnnamn men principen är densamma.
sql = "select F_RF_NAMN,F_FB_NAMN,F_FOR_NAMN from T_RF,T_FB,T_FORENING where T_RF.F_USER_ID = T_FB.F_USER_ID and T_FB.F_USER_ID = T_FORENING.F_USER_ID and T_FORENING.F_USER_ID = "& strMMID&" order by F_RF_NAMN "
Response.Write sql
Set ObjRS1 = ObjConn.execute(sql)
If ObjRS1.EOF Then
Response.Write "Du måste lägga in nått där du kan vara styrelsemedlem först"
Else
Response.Write"<select name=""lag"" tabindex=""1"" >" &vbCrLf
Response.Write"<option style=""background: #FFCC99; color: #000000"">Välj ditt lag</option>" &vbCrLf
strRfNamn = ""
strFbNamn = ""
strForNamn = ""
While Not ObjRS1.EOF
If strRfNamn <> ObjRS1("F_RF_NAMN") Then
strRfNamn = ObjRS1("F_RF_NAMN")
Response.Write"<option style=""background: #FFCC99; color: #000000"">"&strRfNamn&"</option>" &vbCrLf
End If
If strFbNamn <> ObjRS1("F_FB_NAMN") Then
strFbNamn = ObjRS1("F_FB_NAMN")
Response.Write"<option style=""background: #FFCC99; color: #000000"">"&strFbNamn&"</option>" &vbCrLf
End If
If strForNamn <> ObjRS1("F_FOR_NAMN") Then
strForNamn = ObjRS1("F_FOR_NAMN")
Response.Write"<option style=""background: #FFCC99; color: #000000"">"&strForNamn&"</option>" &vbCrLf
End If
ObjRS1.Movenext
Wend
'stänger och går hem
men jag får ut dem i denna ordning
<select name="lag" tabindex="1" >
<option style="background: #FFCC99; color: #000000">Välj ditt lag</option>
<option style="background: #FFCC99; color: #000000">Sverges innebandy förbund</option>
<option style="background: #FFCC99; color: #000000">Dalarnas ishockey förbund</option>
<option style="background: #FFCC99; color: #000000">KAIS</option>
<option style="background: #FFCC99; color: #000000">Mora IBF</option>
<option style="background: #FFCC99; color: #000000">dalarnas pingis förbund</option>
<option style="background: #FFCC99; color: #000000">KAIS</option>
<option style="background: #FFCC99; color: #000000">Mora IBF</option>
<option style="background: #FFCC99; color: #000000">Sveriges Ishockey förbund</option>
<option style="background: #FFCC99; color: #000000">Dalarnas ishockey förbund</option>
<option style="background: #FFCC99; color: #000000">KAIS</option>
<option style="background: #FFCC99; color: #000000">Mora IBF</option>
<option style="background: #FFCC99; color: #000000">dalarnas pingis förbund</option>
<option style="background: #FFCC99; color: #000000">KAIS</option>
<option style="background: #FFCC99; color: #000000">Mora IBF</option>
</select>
inte precis som jag tänkt mig...
Går det att fixa så att de kommer i fallande ordning från RF-->FB-->Forening
Som ni ser har RF bara kommit med två ggr men FB och Forening kommit med flera ggr
Jag har nog kommit fram till att du inte behöver en join utan en union
sql = "select F_RF_NAMN as NAMN from T_RF " & _
" where F_USER_ID = " & strMMID & _
"union select F_FB_NAMN from T_FB " & _
" where F_USER_ID = " & strMMID & _
"union select F_FOR_NAMN from T_FORENING " & _
" where F_USER_ID = " & strMMID & _
" order by 1"
Response.Write sql
Set ObjRS1 = ObjConn.execute(sql)
If ObjRS1.EOF Then
Response.Write "Du måste lägga in nått där du kan vara styrelsemedlem först"
Else
Response.Write"<select name=""lag"" tabindex=""1"" >" &vbCrLf
Response.Write"<option style=""background: #FFCC99; color: #000000"">Välj ditt lag</option>" &vbCrLf
While Not ObjRS1.EOF
Response.Write"<option style=""background: #FFCC99; color: #000000"">"& objRS1("NAMN")&"</option>" &vbCrLf
ObjRS1.Movenext
Wend
'stänger och går hem
Union innebär att man slår ihop resultatet av två eller flera frågor och samtidigt tar bort alla duplikat.
Ursäkta att jag ledde dig lite på villospår där, förhoppningsviss så har du i alla fall lärt dig något.
sql = "select F_RF_NAMN as NAMN from T_RF " & _
" where F_USER_ID = " & strMMID & _
" union select F_FB_NAMN from T_FB " & _
" where F_USER_ID = " & strMMID & _
" union select F_FOR_NAMN from T_FORENING " & _
" where F_USER_ID = " & strMMID & _
" order by 1"