---

Håber i kan hjælpe en nybegynder...

Jeg har en databasse med links, hvor hvert link er tildelt en
kategori.
Jeg har lavet en asp side der laver en liste over kategorierne,
og skal have den til at hente de links der høre til den kategori
jeg klikker på med mussen.

Hvordan gør jeg det?
På forhånd tak for hjælpen.

Jimmy

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Jimmy Lauritsen" skrev

> Håber i kan hjælpe en nybegynder...

vil da prøve

> Jeg har en databasse med links, hvor hvert link er tildelt en
> kategori.
> Jeg har lavet en asp side der laver en liste over kategorierne,
> og skal have den til at hente de links der høre til den kategori
> jeg klikker på med mussen.
>
> Hvordan gør jeg det?

der er faktisk ikke så meget i det!
siden med link:
<a href="hent_data_ud_fra_database_side.asp?kat=1">første kategori</a>
<a href="hent_data_ud_fra_database_side.asp?kat=1">2 kategori</a>
<a href="hent_data_ud_fra_database_side.asp?kat=1">3 kategori</a>

hent data ud fra database side

strkat = Request.QueryString("kat")
strSQL = "SELECT * FROM min_database WHERE kat = '" & strkat & "' "
Set rs = Conn.Execute(strSQL)

udskriv dine link


håber du kan bruge det til noget


--
Pepss
Den ordblinde der prøver at blive webdesigner
Fræk frækkere www.cafe-flirt.dk
De frække noveller www.novelle.cafe-flirt.dk

---

> håber du kan bruge det til noget
>
>
> --
> Pepss
> Den ordblinde der prøver at blive webdesigner
> Fræk frækkere www.cafe-flirt.dk
> De frække noveller www.novelle.cafe-flirt.dk
>
Det virkede ikke helt...Men nu får jeg ikke fejl, der udskrives bare
intet på siden....

FØRSTE side (link_start.asp), hvor Kategorierne vises (virker fint nok).
Den laver en menu med kategorier i venstre side, og skriver teksten "Vælg
en kategori til venstre" til højre:

<H3>Links</h3>

<table width="100%" cellspacing="0" cellpadding="0" align="center">
   <tr>
      <td class="linkmenu" width="17%" valign="top">
<!-- Kategorimenu -->
         <%
         Set DBadgang = Server.CreateObject("ADODB.Connection")
         DBadgang.connectionstring = "Driver={Microsoft Access Driver (*.mdb)};
DBQ="& MdbSti &";"
         DBadgang.Open

            SQLstr = "SELECT "
            SQLstr = SQLstr + "linkgrupper.gruppenavn AS linkgruppe "
            SQLstr = SQLstr + "FROM linkgrupper "
            SQLstr = SQLstr + "ORDER BY linkgrupper.gruppenavn "
            Set RS = DBadgang.Execute(SQLstr)

            While Not RS.BOF AND NOT RS.EOF
         %>
            <a href="links.asp?kategori=1" target="_self"><%= RS("linkgruppe")
%></a><br>
         <%
               RS.MoveNext
            Wend
         %>
      </td>
      <td width="10px" valign="bottom"><img src="css/spacer.gif" width=10
height=1 alt="" border="0"></td>
<!-- Kategorimenu Slut-->

<!-- Linkliste -->               
      <td valign="top" align="center">
         <B>Vælg en kategori til venstre.</B>
      </td>
<!-- Linkliste Slut -->   
   
   </tr>
</table>




Den ANDEN side (links.asp), som skal liste de links der høre til den
kategori man har klikket på:

<H3>Links</h3>

<table width="100%" cellspacing="0" cellpadding="0" align="center">
   <tr>
      <td class="linkmenu" width="17%" valign="top">
<!-- Kategorimenu -->
         <%
         Set DBadgang = Server.CreateObject("ADODB.Connection")
         DBadgang.connectionstring = "Driver={Microsoft Access Driver (*.mdb)};
DBQ="& MdbSti &";"
         DBadgang.Open

            SQLstr = "SELECT "
            SQLstr = SQLstr + "linkgrupper.gruppenavn AS linkgruppe "
            SQLstr = SQLstr + "FROM linkgrupper "
            SQLstr = SQLstr + "ORDER BY linkgrupper.gruppenavn "
            Set RS = DBadgang.Execute(SQLstr)

            While Not RS.BOF AND NOT RS.EOF
         %>
            <a href="links.asp?gruppe=1" target="_self"><%= RS("linkgruppe")
%></a><br>
         <%
               RS.MoveNext
            Wend
         %>
      </td>
      <td width="10px" valign="bottom"><img src="css/spacer.gif" width=10
height=1 alt="" border="0"></td>
<!-- Kategorimenu Slut-->

<!-- Linkliste -->               
      <td valign="top">
         <table width="100%" border="0" cellspacing="1" align="center"
bgcolor="Silver">
            <tr>
               <th class="link" colspan="2">
                  <%
                  KATstr = Request.QueryString("kategori")
                  Set DBadgang = Server.CreateObject("ADODB.Connection")
                  DBadgang.connectionstring = "Driver={Microsoft Access Driver
(*.mdb)}; DBQ="& MdbSti &";"
                  DBadgang.Open

                     SQLstr = "SELECT "
                     SQLstr = SQLstr + "linktabel.gruppe AS gruppe, "
                     SQLstr = SQLstr + "linktabel.navn AS navn, "
                     SQLstr = SQLstr + "linktabel.beskrivelse AS beskrivelse, "
                     SQLstr = SQLstr + "linktabel.url AS url, "
                     SQLstr = SQLstr + "linktabel.target AS target "
                     SQLstr = SQLstr + "FROM linktabel "
                     SQLstr = SQLstr + "WHERE gruppe='" & KATstr & "' "
                     SQLstr = SQLstr + "ORDER BY linktabel.navn "
                     Set RS = DBadgang.Execute(SQLstr)

                     While Not RS.BOF AND NOT RS.EOF
                  %>
                     <%= RS("gruppe") %>
               </th>
            </tr>
            <tr>
               <td class="link">
                  <a href="<%= RS("url") %>" target="<%= RS("target") %>"
class="link"><%= RS("navn") %></a>
               </td>
               <td class="link">
                  <%= RS("beskrivelse") %>
               </td>
            </tr>
                  <%   
                        RS.MoveNext
                     Wend
                  %>

         </table>
      </td>
<!-- Linkliste Slut -->   
   
   </tr>
</table>


Håber du lige kan gi' mig det sidste, så det virker...Takker

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Jimmy Lauritsen skrev:

> Det virkede ikke helt...Men nu får jeg ikke fejl, der
> udskrives bare intet på siden....

Har du et link til siden? Tjek evt. den genererede kildekode -
nogle fejl skyldes at der er rod i html-koden så udskrevne værdier
ikke vises på siden.




> <a href="links.asp?gruppe=1"
> target="_self"><%= RS("linkgruppe")

Mon ikke du skal putte gruppe-nummeret ind i linket:

<a href="links.asp?gruppe=<%= RS("linkgruppe") %>"
target="_self"><%= RS("linkgruppe") %></a>


> SQLstr = SQLstr +
> "linktabel.gruppe AS gruppe, "


Generel note: Du behøver ikke at aliasse dine feltnavne hvis de
bare skal kunne tilgås med deres eget navn, og det er tilsvarende
ikke nødvendigt at putte tabelpræfiks foran et feltnavn hvis der
kun er én tabel i forespørgslen.

Når du kun henter data fra en og samme tabel er følgende tre
sætninger lige gode:

   SELECT linktabel.gruppe AS gruppe FROM linktabel

   SELECT linktabel.gruppe FROM linktabel
   
   SELECT gruppe FROM linktabel


I alle tilfælde vil feltet kunne tilgås i et postsæt med
rs("gruppe").
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

> Har du et link til siden?

Den er desværre ikke lagt på endnu.


>&gt;
>&gt; Mon ikke du skal putte gruppe-nummeret ind i linket:
>&gt;
>&gt; <a href="links.asp?gruppe=<%= RS("linkgruppe") %>"
> target="_self"><%= RS("linkgruppe") %></a>


Det var lige det der skulle til....Havde prøvet noget lignende, hvor
jeg fik fejl.

JENS...Tak for hjælpen og de gode råd om DB....Dem kan jeg virkeligt
bruge til noget....TAKKER

Og PEPSS tak for at du fik mig på rette spor.


PS: Det lød sku næsten som en takke-tale til en prisuddeling

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials