PM visar inget resultat

2 svar · 232 visningar · startad av Krug 7 sep. 2005

KrugMedlem sedan maj 200197 inlägg

Frågan7 sep. 2005 13:22#1

Databasen innehåller följande:
id - räknare
vecka - tal
dag - text
matratt - PM
alternativ - PM

Koden är:

<table width="555" border="0" cellspacing="0" cellpadding="0">
<%
SQL = "Select * From lunch where vecka = "& DatePart("ww", Date, vbMonday, vbFourFirstDays) &" order by id asc"
set rs = ConnObj.Execute(SQL)
if NOT rs.eof then
do until rs.eof
%>
  <tr>
    <td valign="top" width="100"><b><%=rs("dag")%></b></td>
    <td valign="top" width="455"><%=rs("matratt")%></td>
  </tr>
<%
if rs("alternativ") <> "" then
%>
  <tr>
    <td valign="top" width="100">&nbsp;</td>
    <td valign="top" width="455"><%=rs("alternativ")%></td>
  </tr>  
  <tr>
    <td valign="top" width="100">&nbsp;</td>
    <td valign="top" width="455">&nbsp;</td>
  </tr>
<%
else
%>
  <tr>
    <td valign="top" width="100">&nbsp;</td>
    <td valign="top" width="455">&nbsp;</td>
  </tr>
<%
End if
rs.MoveNext
Loop
ConnObj.Close
End if
%>
</table>

När det finns nånting i alternativ så ska det komma upp under dagens rätt men som det är nu kommer det bara en tomrad. Ändrar jag alternativ från PM till text så fungerar det men vill gärna ha PM eftersom det kan finnas flera alternativ.

Tacksam för snabb hjälp.

KrugMedlem sedan maj 200197 inlägg

7 sep. 2005 13:27#2

Sökfunktionen funkar oxå :r

<table width="555" border="0" cellspacing="0" cellpadding="0">
<%
SQL = "Select * From lunch where vecka = "& DatePart("ww", Date, vbMonday, vbFourFirstDays) &" order by id asc"
set rs = ConnObj.Execute(SQL)
if NOT rs.eof then
do until rs.eof
%>
  <tr>
    <td valign="top" width="100"><b><%=rs("dag")%></b></td>
    <td valign="top" width="455"><%=rs("matratt")%></td>
  </tr>
<%
strAlt = rs("alternativ")
if strAlt <> "" then
%>
  <tr>
    <td valign="top" width="100">&nbsp;</td>
    <td valign="top" width="455"><%=strAlt%></td>
  </tr>  
  <tr>
    <td valign="top" width="100">&nbsp;</td>
    <td valign="top" width="455">&nbsp;</td>
  </tr>
<%
else
%>
  <tr>
    <td valign="top" width="100">&nbsp;</td>
    <td valign="top" width="455">&nbsp;</td>
  </tr>
<%
End if
rs.MoveNext
Loop
ConnObj.Close
End if
%>
</table>

J.N.Medlem sedan apr. 20031 660 inlägg

7 sep. 2005 13:28#3

HEJ!

Klassiskt fel, du kan inte hämta PM-fält mer än en gång, vilket du gör genom att kontrollera om den innehåller något innan du skriver ut den.

Gör en variabel av det först, tex rs_alternativ.

Förklaring varför det inte går: http://www.webforum.nu/showthread.php?s=&postid=1056025#post1056025.