Rada upp i två kolumner

5 svar · 196 visningar · startad av Addeladde 20 okt. 2001

AddeladdeMedlem sedan jan. 20013 406 inlägg

Frågan20 okt. 2001 12:26#1

Jag har gjort en liten SQL-fråga som plockar ut företag från en tabell. De radas upp efter foretag_kategori under en rubrik.

EX:
TELECOM
ericson
telia
nokia

LÄKEMDEL
pharmacia upjon
astra zeneca

osv.

Jag skulle vilja att det radas upp i två kolumner. Lyckas inte p.g.a av rubrikerna som skapas på ett speciellt sätt se i koden nedan.

pg = TRIM( Request( "pg" ) )
IF pg = "" THEN pg = 1 

Set referensRS = Server.CreateObject( "ADODB.Recordset" )
referensRS.ActiveConnection = Con
referensRS.CursorType = adOpenStatic
referensRS.CursorLocation = adUSEClient
referensRS.Pagesize = 200

sqlString = "SELECT * " &_
"FROM foretag, kategori " &_
"WHERE foretag_kategori = kategori_id " &_
" ORDER BY kategori_namn, kategori_id, foretag_namn "
referensRS.Open sqlString
referensRS.AbsolutePage = pg
referenser = referensRS.RecordCount

row = 0
response.write "<table width=""350"" border=""1"" cellspacing=""0"" cellpadding=""0"">"
kategori = ""
WHILE NOT referensRS.EOF AND rowCount < referensRS.PageSize
rowCount = rowCount + 1

IF row = 0 or(row = 3)  or(kategori <> referensRS( "Kategori_namn" )) THEN 
  response.write "<tr>"
END IF

IF kategori <> referensRS( "Kategori_namn" ) THEN

kategori = referensRS( "kategori_namn" ) 
response.write "<td><b>"& kategori & "</b>"
END IF
response.write referensRS("foretag_namn") & "</td>"

IF row = 2 or(row) = 5 THEN  
  response.write "</tr>"
END IF
row = row +1

referensRS.MoveNext
WEND

referensRS.close
set referensRS = nothing
con.close
set con = nothing
%>

------------------
Adde

AddeladdeMedlem sedan jan. 20013 406 inlägg

20 okt. 2001 14:17#2

jippi nu har jag äntligen lyckats svänga till en kodsnutt som fungerar

------------------
Adde

tapaniMedlem sedan apr. 200093 inlägg

20 nov. 2001 17:01#3

Du kan väl presentera hur du löste det :)

AddeladdeMedlem sedan jan. 20013 406 inlägg

20 nov. 2001 17:14#4

Jag tog bara med koden som radar upp det i två kolumner. Observer att det även är med en kodsnutt på att dela upp recordsettet på flera sidor

      <%
	  kat = 0
	  rubrik =1
response.write "<table width=""350"" border=""0"" cellspacing=""3"" cellpadding=""0"">"
response.write "<tr valign=""top"">"
response.write "<td>"
kategori = ""
WHILE NOT referensRS.EOF AND rowCount < referensRS.PageSize
rowCount = rowCount + 1

IF kat = 50 THEN 
  response.write "<td>"
END IF

IF sortering <> 2 THEN
  IF kategori <> referensRS( "Kategori_namn" ) THEN
    kategori = referensRS( "kategori_namn" )
    IF rubrik <> 1 THEN 
      response.write "<br>" 
    END IF
    rubrik = rubrik + 1
    response.write "<b><font class=""bold10"">"& kategori & "</b></font><br>"
  END IF
END IF
response.write "<font class=""normal10"">"& referensRS("foretag_namn") & "<br></font>"
IF kat = 49 THEN
  response.write "</td>"
  rubrik = 1
END IF
kat = kat + 1

referensRS.MoveNext
WEND
response.write "</tr>"
response.write "</table>"

------------------
Adde

[Redigerat av Addeladde den 20 nov 2001]

tapaniMedlem sedan apr. 200093 inlägg

21 nov. 2001 09:10#5

Tack :) precis vad jag har letat efter..

tapaniMedlem sedan apr. 200093 inlägg

21 nov. 2001 15:35#6

Tog bort frågan :) ..........

[Redigerat av tapani den 21 nov 2001]