Søg
Avatar billede simsen Mester
11. september 2005 - 11:41 Der er 9 kommentarer og
1 løsning

sitemap løsning fortsat

Jeg troede lige, jeg var blevet sååååå klog efter http://www.eksperten.dk/spm/647029 :-(

Jeg glemte, at jeg ikke kun havde 2 niveauer - men har faktisk 3 - og så ville jeg være "genial" og så bare lave en ekstra af niveau 1 - men det virker bare ikke.

Min kode:
<%
Set dataRS = Server.CreateObject("ADODB.RecordSet")
dataSQL = "Select overskrift, underoverskrift, underoverskrift2 from tblPages"
dataRS.Open dataSQL, whtConn, 1

overskrift = ""
underoverskrift = ""

do while not dataRS.eof
  if dataRS("overskrift") <> overskrift then
    overskrift = dataRS("overskrift")
    response.write overskrift & "<br>"

        if dataRS("underoverskrift") <> underoverskrift then
            underoverskrift = dataRS("underoverskrift")
            response.write "&mdash;" & underoverskrift & "<br>"
        end if

  end if

  response.write "&nbsp;&nbsp;&mdash;" & dataRS("underoverskrift2") & "<br>"
  dataRS.MoveNext
loop

dataRS.Close
Set dataRS = Nothing
whtConn.Close
Set whtConn = Nothing
%>

Jeg vil have den til følgende:

Overskrift1
Overskrift2
--Underoverskrift2-1
--Underoverskrift2-2
----Underoverskrift2-2-1
----Underoverskrift2-2-2
--Underoverskrift2-3
Overskrift3

Hvordan løser jeg så dette?
Avatar billede busschou Praktikant
11. september 2005 - 12:33 #1
hrmm, så var den værre ;o)
prøv lige med det her og se om det gør trikket
---
<%
Set dataRS = Server.CreateObject("ADODB.RecordSet")
dataSQL = "Select overskrift, underoverskrift, underoverskrift2 from tblPages"
dataRS.Open dataSQL, whtConn, 1

overskrift = ""
underoverskrift = ""

do while not dataRS.eof
  if dataRS("overskrift") <> overskrift then
    overskrift = dataRS("overskrift")
    response.write overskrift & "<br>"
  elseif dataRS("underoverskrift") <> underoverskrift then
    underoverskrift = dataRS("underoverskrift")
    response.write "&mdash;" & underoverskrift & "<br>"
  end if

  response.write "&nbsp;&nbsp;&mdash;" & dataRS("underoverskrift2") & "<br>"
  dataRS.MoveNext
loop

dataRS.Close
Set dataRS = Nothing
whtConn.Close
Set whtConn = Nothing
%>
----
Avatar billede busschou Praktikant
11. september 2005 - 12:35 #2
nej vendt, den går vist ikke
Kan du ikke vise 5-10 linjer af din tabel
Så vi kan se den præcise sammenhæng
Har alle felter fx overskrifter og underskrifter..osv ?
Avatar billede simsen Mester
11. september 2005 - 13:03 #3
Det gør det ikke - det står godt nok rodet nu:

Overskrift1
Overskrift2
—Underoverskrift2-2
—Underoverskrift2-3
Overskrift3
--—Underoverskrift(2)3-1-1
—Underoverskrift3-2
--—Underoverskrift(2)3-2-1
--—Underoverskrift(2)3-2-2
--—Underoverskrift(2)3-2-3
—Underoverskrift3-3
Overskrift4
Overskrift5
—Underoverskrift5-2
--—Underoverskrift(2)5-2-1
--—Underoverskrift(2)5-2-2
--—Underoverskrift(2)5-2-3
--—Underoverskrift(2)5-2-4
--—Underoverskrift(2)5-2-5
--—Underoverskrift(2)5-2-6
—Underoverskrift5-3
Overskrift6

Som du kan se af ovennævnte - så sletter den slet og ret den første underoverskrift - som burde skrives ud også jo.
Altså underoverskrift 2-1, 3-1 samt 5-1 mangler
Avatar billede simsen Mester
11. september 2005 - 13:19 #4
ID..pagename...........overskrift...........underoverskrift.........underoverskrift2
____________________________________________________________________________________

19..Forside............Forside       
40..Firmaprofil........Firmaprofil..........Om Simsen   
41..KontaktDesign......Firmaprofil..........Kontakt   
42..Betingelse.........Firmaprofil..........Betingelser   
44..Priser.............Kartofler............Sort1..................Priser
45..Løsninger..........Kartofler............Sort1..................Løsning
46..Struktur...........Kartofler............Sort1..................Struktur
47..Sort2..............Kartofler............Sort2   
48..Referencer.........Referencer

Dette skulle gerne ende op i:

Forside
Firmaprofil
--Om Simsen
--Kontakt
--Betingelser
Kartofler
--Sort1
----Priser
----Løsning
----Struktur
--Sort2
Referencer
Avatar billede busschou Praktikant
11. september 2005 - 16:31 #5
jeg har desværre først set din kommentar nu, tror ekspertens mailsystem atter er nede :o/.. og nu skal jeg ud af døren, men hvis ikke andre kigger på det så prøver jeg kigge forbi i morgen engang igen
Avatar billede simsen Mester
11. september 2005 - 17:07 #6
Det ville være kanont - tak :-)
Avatar billede busschou Praktikant
12. september 2005 - 07:27 #7
prøv med
----
<%
Set dataRS = Server.CreateObject("ADODB.RecordSet")
dataSQL = "Select overskrift, underoverskrift, underoverskrift2 from tblPages"
dataRS.Open dataSQL, whtConn, 1

overskrift = ""
underoverskrift = ""

do while not dataRS.eof
  if dataRS("overskrift") <> overskrift then
    overskrift = dataRS("overskrift")
    response.write overskrift & "<br>"
  if dataRS("underoverskrift") <> underoverskrift then
    underoverskrift = dataRS("underoverskrift")
    response.write "&mdash;" & underoverskrift & "<br>"
  end if
  if dataRS("underoverskrift2") <> "" then
    response.write "&nbsp;&nbsp;&mdash;" & dataRS("underoverskrift2") & "<br>"
  end if
  dataRS.MoveNext
loop

dataRS.Close
Set dataRS = Nothing
whtConn.Close
Set whtConn = Nothing
%>
Avatar billede busschou Praktikant
12. september 2005 - 07:27 #8
hov der mangler lige en end if
----
<%
Set dataRS = Server.CreateObject("ADODB.RecordSet")
dataSQL = "Select overskrift, underoverskrift, underoverskrift2 from tblPages"
dataRS.Open dataSQL, whtConn, 1

overskrift = ""
underoverskrift = ""

do while not dataRS.eof
  if dataRS("overskrift") <> overskrift then
    overskrift = dataRS("overskrift")
    response.write overskrift & "<br>"
  end if
  if dataRS("underoverskrift") <> underoverskrift then
    underoverskrift = dataRS("underoverskrift")
    response.write "&mdash;" & underoverskrift & "<br>"
  end if
  if dataRS("underoverskrift2") <> "" then
    response.write "&nbsp;&nbsp;&mdash;" & dataRS("underoverskrift2") & "<br>"
  end if
  dataRS.MoveNext
loop

dataRS.Close
Set dataRS = Nothing
whtConn.Close
Set whtConn = Nothing
%>
Avatar billede simsen Mester
12. september 2005 - 13:59 #9
OOooo - jeg kunne næsten kysse dig - tak du er bare en engel :-)

Smid et svar og du får dine points og endnu engang tak - du har gjort mig til en meget glad Quinde :-)
Avatar billede busschou Praktikant
12. september 2005 - 14:04 #10
hehe, må se om ikke vi kan finde en cyber kysse feature herinde et sted :p
Godt det virker :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 14:01 VBS Af bsn i VBscript
I dag 12:06 Messinglak Af ErikHg i Fri debat
14/0713:08 overføre internet til gæstehus Af Malm i Andet hardware
13/0719:53 Hotspot problemer på Samsung mobil med 2 SIM kort Af Gamba i Mobilnetværk
11/0722:40 Nye toldregler = nye svindelmuligheder Af nu_igen i Andet software
White papers
Flere white papers »