Metod för att lista poster

2 svar · 252 visningar · startad av MarreMan 25 okt. 2005

MarreManMedlem sedan feb. 200225 inlägg

Frågan25 okt. 2005 04:40#1

Hej!

Jag undrar om någon har en bra metod för att lista ut poster ur en db. Scriptet ser så här.

<%
	Set Connect = Server.CreateObject("ADODB.Connection")
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	Connect.Open db_string
	Recset.CursorLocation = 3
	Recset.CacheSize = 5
	SQL = "SELECT * FROM docs ORDER BY ID ASC"
	RecSet.Open SQL, Connect

'	:-----: Listar innehållsförteckning över alla dokument i databasen :-----:
%>

<table cellspacing="0" cellpadding="3" width="750">
<tr>
<td width="325"><b>Avdelning</b></td>
<td width="325"><b>Dokument</b></td>
<td width="100"><b>Arkivsätt</b></td>
</tr>
<%
	Do While Not Recset.EOF
%>
  <tr>
    <td valign="top"><%=Recset("Department")%></td>
    <td valign="top"><%=Recset("Dokument")%></td>
    <td valign="top"><%=Recset("StorageWay")%></td>
</tr>

<%
	Recset.MoveNext
	Loop
%>
</table>

Listan blir då

Avdelning Dokument Arkivsätt
Avdelning Dokument Arkivsätt
Avdelning Dokument Arkivsätt

och jag skulle vilja lista så här istället men vet inte riktigt hur det skall göras

----------------------------------------------
Avdelning
----------------------------------------------
Dokument Arkivsätt
Dokument Arkivsätt
Dokument Arkivsätt

yohpopsMedlem sedan feb. 20011 198 inlägg

25 okt. 2005 05:27#2

Lite snabbt:

<%
	Do While Not Recset.EOF
%>
<%if oldDepartment<>Recset("Department") or oldDepartment="" then%>
<tr>
    <td valign="top" colspan="2"><%=Recset("Department")%></td>
</tr>
<%end if%>
  <tr>
    <td valign="top"><%=Recset("Dokument")%></td>
    <td valign="top"><%=Recset("StorageWay")%></td>
</tr>

<%
oldDepartment=Recset("Department")
	Recset.MoveNext
	Loop
%>

Men då måste du sortera på Department.

Det går ju också att skapa 2 recordset, ett som loopar igenom alla Departments och ett som loopar igenom dokumenten i varje Department.

MarreManMedlem sedan feb. 200225 inlägg

25 okt. 2005 10:21#3

Tack så mycket yohpops, det funkar precis som avsett. :birp