Hjälp med en sak och getrows

3 svar · 149 visningar · startad av erka 23 juni 2001

erkaMedlem sedan dec. 19996 522 inlägg

Frågan23 juni 2001 21:12#1

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 ?

------------------
1 Man, 1 Million dead, The odds are just about even - Ash

LarsGMedlem sedan dec. 200012 464 inlägg

23 juni 2001 21:30#2

<%
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?

------------------
essentitia preter non sans multiplicandum

erkaMedlem sedan dec. 19996 522 inlägg

23 juni 2001 21:35#3

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

------------------
1 Man, 1 Million dead, The odds are just about even - Ash

LarsGMedlem sedan dec. 200012 464 inlägg

23 juni 2001 22:00#4

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

------------------
essentitia preter non sans multiplicandum