---
title: "PM visar inget resultat"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/133889-pm-visar-inget-resultat"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Krug"
published: "2005-09-07T13:22:01.000Z"
updated: "2005-09-07T13:28:30.000Z"
replies: 2
views: 243
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/133889-pm-visar-inget-resultat"
---

# PM visar inget resultat

## #1 — Krug, 2005-09-07T13:22Z

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.

Permalänk: https://www.webforum.nu/p/133889

## #2 — Krug, 2005-09-07T13:27Z

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>
```

Permalänk: https://www.webforum.nu/p/1666236

## #3 — J.N., 2005-09-07T13:28Z

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>.

Permalänk: https://www.webforum.nu/p/1666238

---

Tråden på webben: https://www.webforum.nu/amne/asp/133889-pm-visar-inget-resultat