/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
sitemap oprettelse
Fra : simsen


Dato : 11-09-05 15:43

Hejsa

Jeg er ny her - så bær over med mig - hvis jeg gør dette her forkert

Mit problem:

Jeg vil oprette en sitmap side på min hp'er.

Jeg har 3 niveauer i alt:

Overskrift
--Underoverskrift
----Underoverskrift2

Min database ser ud som følgende:
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

Det skulle gerne ende ud med:
Forside
Firmaprofil
--Om Simsen
--Kontakt
--Betingelser
Kartofler
--Sort1
----Priser
----Løsning
----Struktur
--Sort2
Referencer

Min kode ser ud som følgende:



<%
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

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
%>




Nu er problemet så - at den istedet ender ud med:
Forside
Firmaprofil
--Kontakt
--Betingelser
Kartofler
----Priser
----Løsning
----Struktur
--Sort2
Referencer

Altså den glemmer af en eller anden årsag den første entrie af
underoverskrift2

Nogen der kan hjælpe mig?

mvh

simsen



 
 
Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste