---
title: "Skriver ut flera ggr..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11759-skriver-ut-flera-ggr"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ReloadMaster"
published: "2001-09-24T20:12:00.000Z"
updated: "2001-09-24T20:28:00.000Z"
replies: 4
views: 187
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/11759-skriver-ut-flera-ggr"
---

# Skriver ut flera ggr...

## #1 — ReloadMaster, 2001-09-24T20:12Z

Tjena!
Jag skulle behöva hjälp med denna kod:

```
<%
If Request.Querystring("kontroll") = "1" Then

'Skapa Sessions
Session("fran") = Request.Form("fran")
Session("till") = Request.Form("till")
Session("amne") = Request.Form("amne")
Session("meddelande") = Request.Form("meddelande")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("communitydb.mdb")

SQL = "SELECT * FROM medlemmar"
Set RecSet2 = Connect.Execute(SQL)

Do Until RecSet2.EOF

If RecSet2("anvandarnamn") = Session("till") Then

Response.Redirect"community_meddelanden_skicka.asp?ID="&ID&"&skicka=ja"

RecSet2.Close

Else
%>

<b>Det finns ingen med detta användarnamn!</b>
<a href="community_meddelanden_skicka.asp?ID=<% =ID%>">Tillbaka</a>

<%
End If

RecSet2.MoveNext

Loop

RecSet2.Close

End If
%>
```

Denna kod ska kolla om användarnamnet finns om det inte gör det ska den skriva ut:
\<b\>Det finns ingen med detta användarnamn!\</b\>
\<a href="community_meddelanden_skicka.asp?ID=\<% =ID%\>"\>Tillbaka\</a\>

Men den verkar inte funka för den skriver ut detta lika många gånger som det finns användare i databsen hur ska jag göra för att den bara ska skriva ut det en  gång efter den gått igenom att posterna....

SEDAN skulle jag vilja ha hjälp med om någon kunde hjälpa mig med en grej till mitt community.
Som ska vara att när man loggar in så ska två tabeller uppdateras den ena ska kolla uppdateras med att man är online och den andra när man loggade på och sedan den svåra delen tycker jag:
att om man inte klickar på "logga ut"
knappen utan bara stänger fönstret ska ändå sidan kunna uppdatera tabellen till "Offline" 

Hoppas ni förstår...

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

## #2 — @nders, 2001-09-24T20:23Z

ettan:

byt SQL-frågan till:

```
SQL = "SELECT * FROM medlemmar WHERE anvandarnamn = '" & session("till") &"'"
```

och byt:

```
Do Until RecSet2.EOF

If RecSet2("anvandarnamn") = Session("till") Then

Response.Redirect"community_meddelanden_skicka.asp?ID="&ID&"&skicka=ja"

RecSet2.Close

Else
%>

<b>Det finns ingen med detta användarnamn!</b>
<a href="community_meddelanden_skicka.asp?ID=<% =ID%>">Tillbaka</a>

<%
End If

RecSet2.MoveNext

Loop
```

till

```
If not RecSet2.EOF then
RecSet2.Close
Response.Redirect"community_meddelanden_skicka.asp?ID="&ID&"&skicka=ja"
Else
%>
<b>Det finns ingen med detta användarnamn!</b>
<a href="community_meddelanden_skicka.asp?ID=<% =ID%>">Tillbaka</a>
<%
End If
```

Den andra har jag inte tid med just nu. Fridens!

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

## #3 — LarsG, 2001-09-24T20:24Z

```
<%
If Request.Querystring("kontroll") = "1" Then
'Skapa Sessions
Session("fran") = Request.Form("fran")
Session("till") = Request.Form("till")
Session("amne") = Request.Form("amne")
Session("meddelande") = Request.Form("meddelande")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("communitydb.mdb")

SQL = "SELECT * FROM medlemmar"
Set RecSet2 = Connect.Execute(SQL)

Do Until RecSet2.EOF

If RecSet2("anvandarnamn") = Session("till") Then
RecSet2.Close
Response.Redirect"community_meddelanden_skicka.asp?ID="&ID&"&skicka=ja"
end if
RecSet2.MoveNext
loop
%>

<b>Det finns ingen med detta användarnamn!</b>
<a href="community_meddelanden_skicka.asp?ID=<% =ID%>">Tillbaka</a>

<%
RecSet2.Close
End If
%>
```

(

```
<%
If Request.Querystring("kontroll") = "1" Then
'Skapa Sessions
Session("fran") = Request.Form("fran")
Session("till") = Request.Form("till")
Session("amne") = Request.Form("amne")
Session("meddelande") = Request.Form("meddelande")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("communitydb.mdb")

SQL = "SELECT * FROM medlemmar where anvandarnamn = '" & session("till") & "'"
Set RecSet2 = Connect.Execute(SQL)

if not RecSet2.EOF
RecSet2.Close
Response.Redirect"community_meddelanden_skicka.asp?ID="&ID&"&skicka=ja"
end if
%>

<b>Det finns ingen med detta användarnamn!</b>
<a href="community_meddelanden_skicka.asp?ID=<% =ID%>">Tillbaka</a>

<%
RecSet2.Close
End If
%>
```

Det är effektivare att låta databashanteraren sköta sökningen.)

Ditt andra problem får du lösa genom att lägga in uppdateringen i global.asa i subrutinen session_onend.

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

## #4 — CoolDude, 2001-09-24T20:24Z

Du borde väl söka efter det namnet i databasen?

```
SQL = "SELECT * FROM medlemmar WHERE anvandarnamn=" & Request.Form("till") & " "
```

Så får den något att leta efter.
Som det är nu så loopar den igenom alla namn så som du säger.

\[r\]
Hmm tittade å uppdaterade 2-3 ggr å INGA inlägg/svar...
Pilla ihop något å vad ser man :q
Jo! TVÅ har redan svarat... eller 1! :)
\[/r\]

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

## #5 — ReloadMaster, 2001-09-24T20:28Z

Tack för hjälpen då är 1:an iallafall löst...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11759-skriver-ut-flera-ggr