Kategorisering i .asp

Tags:    asp

Hej Forum,

Jeg arbejder på en nyhedsbase (i MS Access), og jeg vil gerne kunne præsenterer nyheder after kategori fx.

Programmering
.asp
.html
LotusNotes

Gossip
Alex og Jogge sammen igen
Morten Olsen bliver landstræner i håndbold

Jeg har prøve med to RecordSet, óg en SQL sætning med ORDER BY men jeg kan ikke få det til at spille.

ANYONE?

Bedste hilsner
René



4 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Hej ..

du kan mergo 2 tabeller med union...

noget ala
Fold kodeboks ind/udKode 


Med venlig hilsen
/Jokke Jensen
www.jj-multimediedesign.dk



Hej ..

du kan mergo 2 tabeller med union...

noget ala
Fold kodeboks ind/udKode 


Med venlig hilsen
/Jokke Jensen
www.jj-multimediedesign.dk


Hej Jokke,

tak for hurtig respons
- godt jeg havde stavet det med "g" i eks. :-)


Jeg har ikke udtrykt mig klart nok, kan jeg se sorry.

Jeg har alle nyheder i een tabel. Jeg ville gerne at man lavede en "Do"-kode der tog feltet "nyhed-kategori" og skrev det een gang hvor efter man løb alle nyheder i den bestemte kategori igennem og så tog næste kategori og så videre - gerne således at man ikke skulle hardcode overskrifterne, som man naturligvis kunne gøre hvis man viste at man kun havde det antal og så lave et antal RecordSet udvalgt på kategori:

nyhed_kategori
* nyhed_overskrift & nyhed_byline

Lidt lige som når man ser prislister på nettet

IBM
*ThinkPad1
*ThinkPad2

ACER
*TravelStar1
*TravelStar2

Håber det var mere præcist






Øhmm ok..

Jeg har lavet noget tidligere hvor jeg lavede en tabel med kategori navnene... i denne tjekkede jeg så om tallet kunne deles med 100.. hvis dette lykkedes til en int, var det en overskrift.. og den fik derfor en fed skrift.. ellers bare en normal.. denne tabel kunne jeg så order by.. og kategorien 100 blev vist før.. oprettes der så nye hoved kategorier, skal du selvfølgelig sørge for i dit script at den får det næste nummer der kan deles med 100...


på denne måde kan du også få normaliseret din database, hvis gossip og nyheder har samme egenskaber.. hvis du kan følge mig..


Med venlig hilsen
/Jokke Jensen
www.jj-multimediedesign.dk



Hej Igen,

Her er løsningen på mit problem:

<%
Dim KAT
KAT = ""

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("db/nyheder.mdb")
Conn.Open DSN

strSQL = "Select * from nyhed order by nyhed_kategori"
Set rs = Conn.Execute(strSQL)
%>

<%
Do While Not rs.EOF

If rs("nyhed_kategori") <> KAT Then
Response.Write "<tr>"
Response.Write "<td width='500'>"
Response.Write "<h1>" & rs("nyhed_kategori") & "</h1>"
Response.Write "</td>"
Response.Write "</tr>"
KAT = rs("nyhed_kategori")
End If

Response.Write "<tr>"
Response.Write "<td width='500'>"
Response.Write "<b>" & rs("nyhed_overskrift") & "</b><br>"
Response.Write "<i>" & "af: " & rs("nyhed_byline") & "</i> (" &
rs("nyhed_dato") & ")<br>"
Response.Write rs("nyhed_text")
Response.Write "<hr></td>"
Response.Write "<td width='200' align='right'>"
If rs("nyhed_grafik") <> "" Then
Response.Write "<img border='0' src='grafik/" & rs("nyhed_grafik") &
"'>"
Else
Response.Write " "
End If
Response.Write "</td>"
Response.Write "</tr>"

rs.MoveNext
Loop
%>

<%
Conn.Close
Set Conn = Nothing
%>


/rené

[Redigeret d. 31/03-05 10:21:40 af René Kømler]



t