---
title: "Skriva ut en gång!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/101073-skriva-ut-en-gång"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfernstrom"
published: "2004-04-06T18:36:02.000Z"
updated: "2004-04-06T19:29:38.000Z"
replies: 5
views: 237
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/101073-skriva-ut-en-gång"
---

# Skriva ut en gång!

## #1 — magnusfernstrom, 2004-04-06T18:36Z

Hejsan!
Jag har en funktion som säger till när man fått ett nytt meddelande.

Koden för detta ser ut som följande: 

```
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("midgetzinc.mdb")
SQL = "SELECT * FROM meddelanden WHERE Till = " & Session("userID") & ""
Set rs = db.Execute(SQL)

Do until rs.EOF

If rs("Read") = "0" Then
%>
<table border="0" cellpadding="4" cellspacing="0">
<td width="500" height="" valign="center" bgcolor="" align="left" style="border: 1px, dotted;" bordercolor="B31C1C">
<span style="font-size: 8px; font-family: small fonts, verdana;">
<font color="000000">
<a href="meddelanden.asp" class="new">DU HAR OLÄSTA MEDDELANDEN I DIN INKORG!</a>
</span>
</font>
</td>
</table>
<%
End If

rs.MoveNext
Loop
%>
```

Men om man har två nya meddelanden så för man detta meddelande två gånger.

Hur gör jag för att endast visa det en gång?

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

## #2 — LeonL, 2004-04-06T18:39Z

Om du inte vill ändra alltför mycket lägger du till Exit Do alldeles ovanför End If:

```
Exit Do
End If
```

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

## #3 — magnusfernstrom, 2004-04-06T18:48Z

Så enkelt?
För bra för att vara sant :)

Tack för hjälpen!

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

## #4 — @nders, 2004-04-06T19:14Z

Är det inte smartare att bara strunta i att loopa?

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

## #5 — Poffe, 2004-04-06T19:25Z

Jag hade gjort så här:

```
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("midgetzinc.mdb")
SQL = "SELECT * FROM meddelanden WHERE Till = " & Session("userID") & " And Read = '0'"
Set rs = db.Execute(SQL)

If Not rs.EOF Then
%>
<table border="0" cellpadding="4" cellspacing="0">
<td width="500" height="" valign="center" bgcolor="" align="left" style="border: 1px, dotted;" bordercolor="B31C1C">
<span style="font-size: 8px; font-family: small fonts, verdana;">
<font color="000000">
<a href="meddelanden.asp" class="new">DU HAR OLÄSTA MEDDELANDEN I DIN INKORG!</a>
</span>
</font>
</td>
</table>
<%
End If

rs.Close
Set rs = Nothing

db.Close
Set db = Nothing
%>
```

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

## #6 — magnusfernstrom, 2004-04-06T19:29Z

"Är det inte smartare att bara strunta i att loopa?"

Om man kan ASP hyffsat är det lätt att säga så ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/101073-skriva-ut-en-gång