Hvordan samler jeg ens overskrifter??

http://exp.dk/spm/267730  :)

Jep ;) er det ikke rigtig nok det jeg har skrevet?

Jow, fint nok. Men nye læsere kan jo li'sågodt starte der.

Ja, du har helt ret.

Hm, jeg forstår det ikke helt. Jeg ville foreslå det samme som erik, men det er så ikke det du vil have?

Jeg er åben over for alle muligheder, bare det kommet til at virke!

Jeg har lavet et lille link, så I kan se hvordan det ser ud:

http://www.friserverplads.dk/smede/hovedprojekt/proeve.htm

altså du laver dit udtræk med sql, og opretter en rs
set rs = conn(sql)
gammel = ""
do while not rs.eof
  if gammel <> rs("kategoriIdNavn") then
    response.write rs("kategoriPic") & " "
    response.write rs("kategoriIdNavn") & "<br>"
  end if
  response.write rs("U_kategoriNavn") & "<br>"
  gammel = rs("kategoriIdNavn")
loop

Ja, det er lige sådan noget jeg har brug for, men jeg har haft lidt problemer med at sætte det ind, vil du lige prøve??


Her er koden:

<%

Dim strConnect, Conn

'Åbner connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString

sql = "SELECT Kategori.kategoriNavn, Kategori.kategoriPic, U_Katagori.u_KategoriNavn FROM Kategori INNER JOIN U_Katagori ON Kategori.KategoriId = U_Katagori.u_kategoriId"

Set objRec = Server.CreateObject("ADODB.Recordset")

objRec.open sql, Conn

int_count = 0

%>
<table width="520" border="0" cellspacing="0" cellpadding="0">
  <% While NOT objRec.EOF
    If int_count = 0 Then
        Response.Write "<tr>"
    End If
  %>
    <td>   
    <table width="260" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td rowspan="2" width="5" valign="top"></td>
        <td rowspan="2" width="59" valign="top">
          <table width="55" height="55" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td background="billeder/site/darmer.gif" width="51" height="51">
                <table width="55" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td rowspan="4" width="2" class="hvid"></td>
                    <td colspan="2" height="2" class="hvid"></td>
                    <td rowspan="2" width="2" class="hvid"></td>
                  </tr>
                  <tr>
                    <td height="36" width="36"></td>
                    <td width="17"></td>
                  </tr>
                  <tr>
                    <td height="17"></td>
                    <td colspan="2" rowspan="2" background="billeder/site/forside_transperant.gif" height="19" width="19"></td>
                  </tr>
                  <tr>
                    <td height="2" class="hvid"></td>
                  </tr>
                </table>
              </td>
            </tr>
          </table>
        </td>
        <td rowspan="2" width="9" valign="top"></td>
        <td width="191" class="overskrift_forside"><a onfocus="this.blur()" href="#"><%=objRec("kategoriNavn")%></a></td>
      </tr>
      <tr>
        <td width="191" valign="top">
          <table width="191" border="0" cellspacing="0" cellpadding="0" class="hovedtekst">
            <tr>
            <td><a onfocus="this.blur()" href="#"><%=objRec("u_kategoriNavn")%></a></td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td height="10"></td>
      </tr>
    </table>
    </td>
  <%
    If int_count = 1 Then
        Response.Write "</tr>"
        int_count = 0
    Else
        int_count = 1
    End If
   
objRec.MoveNext()
   
Wend
%>
    </table>
<%
objRec.close
Conn.Close
SEt Conn = Nothing


%>

Du laver bare 2 connections til hver sin tabel, og placere den der henter under kategorierne ud inde i LOOP...

SELECT * FROM U_KATAGORI WHERE U_KATEGORI = " & objRec("KATEGORIID")

så kan du bare lave en løkke mere, der skriver underkat ud...

// LOSS

Det var da en besværlig måde at lave en tabel på! Tre tabeller inden i hinanden? For hver post? Hvorfor skal det dog til, det vil du da aldrig kunne holde styr på! Prøv at starte meget simplere, og så pynt på det, når du har fået udtrækket til at fungere. Jeg prøver lige at lave et forslag, med de navne og værdier du har.

<%

Dim strConnect, Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
sql = "SELECT KategoriId, kategoriNavn, kategoriPic, FROM Kategori"
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.open sql, Conn
%>
<table width="520" border="0" cellspacing="0" cellpadding="0">
<%do while not objRec.eof%>
    <tr>
        <td><%=objRec("kategoriPic")%><b><%=objRec("kategoriNavn")%></b>
<%
sql = "select u_KategoriNavn FROM U_Kategori WHERE u_kategoriId = " & objRec("KategoriId")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, Conn
do while not rs.eof
    response.write "<br>" & rs(0)
    rs.movenext
loop
rs.close
%>
        </td>
    </tr>
<%
objRec.movenext
loop
%>
</table>
<%
objRec.close
Conn.Close
SEt Conn = Nothing


%>

Jammen tak for det begge to! Fortsat god vind fremover ;-)