Förut så stog det rätt om det inte fanns några poster, nu står det:
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
<%
strSQL = "select Namn,Frukt,Antal,Dygn_id,"&_
" B_fett , B_vitamin,"&_
" B_kolhydrater, B_jarn, A_fett, A_jarn, A_vitamin"&_
" from personer p,frukter f,kalender k "&_
" where p.id = k.namn_id"&_
" and k.frukt_id = f.id"&_
" and p.id = "& Id &_
" and k.Dygn_id = "& Dygn &_
" and datum = #"& varDate&"#"
Set rs = Conn.execute(strSQL)
Ajarn=rs("A_jarn")
Afett=rs("A_fett")
Avitamin=rs("A_vitamin")
if rs.eof then
Response.write "Inga poster!"
Else
Response.write rs("Namn")&"<br>"
while not rs.eof
'loopa ut poster etc.
%>
<%
strSQL = "select Namn,Frukt,Antal,Dygn_id,"&_
" B_fett , B_vitamin,"&_
" B_kolhydrater, B_jarn, A_fett, A_jarn, A_vitamin"&_
" from personer p,frukter f,kalender k "&_
" where p.id = k.namn_id"&_
" and k.frukt_id = f.id"&_
" and p.id = "& Id &_
" and k.Dygn_id = "& Dygn &_
" and datum = #"& varDate&"#"
Set rs = Conn.execute(strSQL)
if rs.eof then
Response.write "Inga poster!"
Else
Ajarn=rs("A_jarn")
Afett=rs("A_fett")
Avitamin=rs("A_vitamin")
Response.write rs("Namn")&"<br>"
while not rs.eof
'loopa ut poster etc.
%>
Då kommer en följdfråga:
Även fast inte "kalender" innehåller något värde så skulle jag i allafall vilja få ut:
Ajarn=rs("A_jarn")
Afett=rs("A_fett")
Avitamin=rs("A_vitamin")
Måste jag formulera en ny fråga separat för dem då?
strSQL = "select Namn,Frukt,Antal,Dygn_id,"&_
" B_fett , B_vitamin,"&_
" B_kolhydrater, B_jarn, A_fett, A_jarn, A_vitamin"&_
" from (personer p left outer join kalender k "&_
" on (p.id = k.namn_id and datum = #"& varDate&"#) " & _
" left outer join frukt f "&_
" on (k.frukt_id = f.id and k.Dygn_id = "& Dygn & ")" & _
" where p.id = "& Id
Set rs = Conn.execute(strSQL)
256 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849