---

Hi,

Jeg ved ikke om det kan lad sig gøre, men måske nogen har et forslag:

Jeg har en Access database med links til forskellige sider. Tabellen i
database har tre kolonner:
kategori (kategorisering af links)
destination (navnet på hjemmesiden)
link (URL)

Nedenstående script oplister bare destinationen med tilhørende URL
alfabetisk efter kategoriseringen.

Spørgsmålet er nu om man kan få listen delt op efter kategorierne med
tilhørende overskrift:

<h2>kategori 1</h3>
<ul>
<li>. et link</li>
<li>. et andet link</li>
</ul>

<h2>kategori 2</h3>
<ul>
<li>. et tredje link</li>
<li>. et fjerde link</li>
</ul>

Osv. indtil EOF
--
Med venlig hilsen
Lars Klingenberg
[lklingenberg@ifi.ku.dk]

ASP script:

<% Dim Connect, Links
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "ifidb"
Set Links = Connect.Execute("SELECT * FROM info_link_links ORDER BY
kategori") %>

<ul>
<% do until Links.EOF %>

<li><a href="http://<%= Links("link") %>"><%= Links("destination")
%></li>

<% Links.MoveNext
loop %>
</ul>
<% Connect.close
Set Connect = nothing %>

---

"Lars Klingenberg" <lklingenberg@ifi.ku.dk> skrev i en meddelelse
news:97l8d4$ft3$1@news.inet.tele.dk...
> Hi,
>
> Jeg ved ikke om det kan lad sig gøre, men måske nogen har et forslag:
Jow da..

> Set Links = Connect.Execute("SELECT * FROM info_link_links ORDER BY
> kategori") %>

GROUP BY kategori er vel den model du skal bruge.


--
/Mogens
http://www.svend-bent.dk/ nu med robotsøgning, hitlist, sidste nye links,
click true % og meget mere
http://hjem.get2net.dk/mogges/ Haltruplund dambrug - Frisk fisk er sundt.
Fjern remove i mail adr. så er der hul igennem.

---

> GROUP BY kategori er vel den model du skal bruge.
Eh...

Microsoft][ODBC Microsoft Access Driver] Cannot group on fields selected
with '*'.

Kan man "select" med noget andet end *?

Jeg er rookie indenfor ASP, så hvis du kan give en smule mere info ville det
være rart Jeg har forsøgt at lede i min tutorial, men uden held (måske
jeg skulle udvide mit "bibliotek" - nogle forslag? Gerne noget der går i
dybden med MS Access Databaser)

/Lars

---

"Lars Klingenberg" <lklingenberg@ifi.ku.dk> skrev i en meddelelse
news:97l9vn$k6g$1@news.inet.tele.dk...
> > GROUP BY kategori er vel den model du skal bruge.
> Eh...
>
> Microsoft][ODBC Microsoft Access Driver] Cannot group on fields selected
> with '*'.
>
> Kan man "select" med noget andet end *?

Ja det kan du. du kan jo feks kun have brug at gruppere efter et felt eks
kategori
Så skriver du:
Set Links = Connect.Execute("SELECT Kategori FROM info_link_links GROUP BY
kategori") %>
Skal du have flere ting med i output så skriver du:
Set Links = Connect.Execute("SELECT Kategori, link, destination FROM
info_link_links GROUP BY kategori") %>

> Jeg er rookie indenfor ASP, så hvis du kan give en smule mere info ville
det
> være rart
Jeg er hellere ikke alt for god til det endnu men tro mig man lære meget af
sine fejl, især slåfejl

>Jeg har forsøgt at lede i min tutorial, men uden held (måske
> jeg skulle udvide mit "bibliotek" - nogle forslag? Gerne noget der går i
> dybden med MS Access Databaser)
Dertil må vi nok have nogen her i gruppen som kan røste et par gode titler
ud af ærmet.
Det eneste jeg kan hjælpe med er en håndfuld links til asp sider
http://www.svend-bent.dk/level.asp?MainGrup=Internet&Katogori=Webdesign&Leve
lone=Programmeringssprog
>
> /Lars
>

--
/Mogens
http://www.svend-bent.dk/ nu med robotsøgning, hitlist, sidste nye links,
click true % og meget mere
http://hjem.get2net.dk/mogges/ Haltruplund dambrug - Frisk fisk er sundt.
Fjern remove i mail adr. så er der hul igennem.

---

> Ja det kan du. du kan jo feks kun have brug at gruppere efter et felt eks
> kategori
> Så skriver du:
> Set Links = Connect.Execute("SELECT Kategori FROM info_link_links GROUP BY
> kategori") %>
> Skal du have flere ting med i output så skriver du:
> Set Links = Connect.Execute("SELECT Kategori, link, destination FROM
> info_link_links GROUP BY kategori") %>

Det får jeg bare ikke lov til:

[Microsoft][ODBC Microsoft Access Driver] You tried to execute a query that
does not include the specified expression 'site' as part of an aggregate
function.

Her er ASP'en (jeg har ændret lidt på navnene; destination=site, link=url):

<% Dim Connect, Links
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "ifiDB"
Set Links = Connect.Execute("SELECT kategori, site, url FROM
info_link_links GROUP BY kategori") %>

<ul>
<% do until Links.EOF %>

<li><a href="http://<%= Links("url") %>"><%= Links("site") %></li>

<% Links.MoveNext
loop %>
</ul>
<% Connect.close
Set Connect = nothing %>

---

"Lars Klingenberg" <lklingenberg@ifi.ku.dk> skrev i en meddelelse
news:97ljcq$ks2$1@news.inet.tele.dk...
> Det får jeg bare ikke lov til:
>
> [Microsoft][ODBC Microsoft Access Driver] You tried to execute a query
that
> does not include the specified expression 'site' as part of an aggregate
> function.
>
> Her er ASP'en (jeg har ændret lidt på navnene; destination=site,
link=url):
>
> <% Dim Connect, Links
> Set Connect = Server.CreateObject("ADODB.RecordsetConnection")

Jeg kom lige til at se du åbner en connection her ville jeg åbne et
Recordset
Set Connect = Server.CreateObject("ADODB.Recordset")
Hvis ikke det hjælper så ved jeg ikke lige hvad det kan være galt..


> Connect.Open "ifiDB"
> Set Links = Connect.Execute("SELECT kategori, site, url FROM
> info_link_links GROUP BY kategori") %>
>
> <ul>
> <% do until Links.EOF %>
>
> <li><a href="http://<%= Links("url") %>"><%= Links("site") %></li>
>
> <% Links.MoveNext
> loop %>
> </ul>
> <% Connect.close
> Set Connect = nothing %>


--
/Mogens
http://www.svend-bent.dk/ nu med robotsøgning, hitlist, sidste nye links,
click true % og meget mere
http://hjem.get2net.dk/mogges/ Haltruplund dambrug - Frisk fisk er sundt.
Fjern remove i mail adr. så er der hul igennem.

---

> Jeg kom lige til at se du åbner en connection her ville jeg åbne et
> Recordset
> Set Connect = Server.CreateObject("ADODB.Recordset")
> Hvis ikke det hjælper så ved jeg ikke lige hvad det kan være galt..
Desværre! Samme fejl...

Er der andre derude, der kan hjælpe os...?

---

"Lars Klingenberg" <lklingenberg@ifi.ku.dk> skrev i en meddelelse
news:97lmbd$152$1@news.inet.tele.dk...
> > Jeg kom lige til at se du åbner en connection her ville jeg åbne et
> > Recordset
> > Set Connect = Server.CreateObject("ADODB.Recordset")
> > Hvis ikke det hjælper så ved jeg ikke lige hvad det kan være galt..
> Desværre! Samme fejl...
>
> Er der andre derude, der kan hjælpe os...?

Prøv med et andet navn end Connect til recordsættet

Niels

>
>
>
>

---

> Prøv med et andet navn end Connect til recordsættet
Nix:

ADODB.Recordset (0x800A0E7D)
Operation is not allowed on an object referencing a closed or invalid
connection.