---
title: "Hjälp med en sak och getrows"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10214-hjälp-med-en-sak-och-getrows"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "erka"
published: "2001-06-23T21:12:00.000Z"
updated: "2001-06-23T22:00:00.000Z"
replies: 3
views: 163
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/10214-hjälp-med-en-sak-och-getrows"
---

# Hjälp med en sak och getrows

## #1 — erka, 2001-06-23T21:12Z

Hej jag har ett problem som jag nog aldrig haft innan.

Jag har en DB med folk till en Mirc kanal och deras status som OP:a. Det är antingen AOP eller SOP. Jag vill få det utskrivet så det ser ut så här

SOP
Loopa fram alla som är Sop å sen gör en länk av varje

AOP
Loopa fram alla som är Aop å sen gör en länk av varje

Jag vill inte använda mig av två stycken SQL frågor. Det måste ju gå å göra på något annat sätt. Nu ser koden ut så här.

```
<%
Option Explicit
Dim Connect, SQLStmt, RS, ArrRS, a, strConnString
Session.lcid = 1053

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/lagunen/db/lagunen.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open strConnString
SQLStmt = "SELECT OpId, OpName, OpStatus FROM Operatorer ORDER BY OpStatus DESC"
SET RS = Connect.Execute(SQLStmt)

	ArrRS = RS.GetRows()
	RS.Close
	Set RS = Nothing

For a = 0 to Ubound(ArrRS,2)
Response.Write"<span class=""textvit""><a href=""Default.asp?DocID=Operators&ShowID="& ArrRS(0, a)&""">"& ArrRS(1, a)&" </a>- "& ArrRS(2, a)&"</span><br>"
Next
%>
```

Hur gör man ?

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

## #2 — LarsG, 2001-06-23T21:30Z

```
<%
Option Explicit
Dim Connect, SQLStmt, RS, ArrRS, a, strConnString,stat
Session.lcid = 1053
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/lagunen/db/lagunen.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open strConnString
SQLStmt = "SELECT OpId, OpName, OpStatus FROM Operatorer ORDER BY OpSta tus DESC"
SET RS = Connect.Execute(SQLStmt)

ArrRS = RS.GetRows()
RS.Close
Set RS = Nothing

stat = ""
For a = 0 to Ubound(ArrRS,2)
if  cstr(stat) <> cstr(ArrRs(2,a)) then
    if  a > 0 then 
        response.write "<br>"
    end if
    stat = ArrRs(2,a)
    Response.write stat
end if
Response.Write"<span class=""textvit""><a href=""Default.asp?DocID=Operators&ShowID="& ArrRS(0, a)&""">"& ArrRS(1, a)&" </a>- "& "</span><br>"
Next
%>
```

kanske?

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

## #3 — erka, 2001-06-23T21:35Z

Tackar, men exakt vad fan gör det ;)

menar denna del

For a = 0 to Ubound(ArrRS,2)
if cstr(stat) \<\> cstr(ArrRs(2,a)) then
if a \> 0 then 
response.write "\<br\>"
end if

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

## #4 — LarsG, 2001-06-23T22:00Z

Så fort opStatus byter värde så skriver man ut värdet. Den här koden fungerar för godtyckligt många värden på opStatus.

Om det inte är första posten så skriver man ut en extra radbrytning. (Den biten får du kanske justera något.)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10214-hjälp-med-en-sak-och-getrows