Problemer med noget løkke
Hej,Jeg er igang med at lave en oversigt over nogle sider i en database, som jeg har struktureret ved at sige:
id, menu og sub.. i sub kan der være et tal som er id'et på den side den er underside på..
Jeg har lavet denne kode, men den laver fejl.. den står bare og fucker op... :)
<!--#include virtual="/cmplicity/_include/protect.asp"-->
<!--#include virtual="/_global/dbconn.asp"-->
<!--#include virtual="/_global/functions.asp"-->
<!--#include virtual="/cmplicity/_include/site_config.asp"-->
<!--#include virtual="/cmplicity/_include/site_header.asp"-->
<!--#include virtual="/cmplicity/_include/site_top.asp"-->
<%' ### identification area ### %>
<span class="domain"><%=strSiteDomain%></span><br>
<span class="title"><%=strNameTitle%>, <%=strSiteName%></span>
<!--#include virtual="/cmplicity/_include/site_top2.asp"-->
<%' ### controlpanel area ### %>
<!--#include virtual="/cmplicity/_include/box_controlpanel.asp"-->
<!--#include virtual="/cmplicity/_include/site_skabelon1_midle.asp"-->
<table align="center" border="0" cellpadding="0" cellspacing="0" style="width:100%;">
<tr>
<td style="width:359px;height:18px;background-image:url('/cmplicity/_gfx/box_head_large.jpg');">
<table border="0" cellpadding="0" cellspacing="0" style="width:100%;height:14px;">
<tr>
<td class="menu" style="padding-left:5px;">Sideinstillinger</td>
</tr>
</table>
</td>
</tr>
<tr>
<td style="height:1px;"></td>
</tr>
<tr>
<td style="width:359px;height:3px;background-image:url('/cmplicity/_gfx/box_top_large.jpg');"></td>
</tr>
<tr>
<td style="width:359px;background-color:#D2DAEB;padding:5px;padding-bottom:15px;">
<%
openConn()
strSQL1 = "SELECT page.id FROM page WHERE page.id=" & strStartside
Set pageRs = connection.Execute(strSQL1)
If (pageRs.EOF or pageRs.BOF) Then
strSQL2 = "SELECT page.id FROM page WHERE page.sub=0"
Set minRs = connection.Execute(strSQL2)
If Not (minRs.EOF or minRs.BOF) Then
strSQL3 = "UPDATE setup SET [startside]='" & minRs("id") & "'"
connection.Execute(strSQL3)
Else
strSQL4 = "SELECT page.id FROM page"
Set rs4 = connection.Execute(strSQL4)
strSQL5 = "UPDATE page SET [sub]='0' WHERE page.id=" & rs4("id")
connection.Execute(strSQL5)
strSQL6 = "UPDATE setup SET [startside]='" & rs4("id") & "'"
connection.Execute(strSQL6)
End if
Else
Response.Write("")
End if
strSQL = "SELECT ID, sub, menu FROM page ORDER BY [order]"
Set rsEntries = connection.Execute(strSQL)
%>
<table border="0" cellpadding="0" cellspacing="0" style="width:100%;">
<%
If Not (rsEntries.EOF or rsEntries.BOF) Then
bgcolor=""
Do
' Gem data som kommasepareret liste
arrID = arrID & "," & rsEntries("ID")
arrRE = arrRE & "," & rsEntries("sub")
arrSU = arrSU & "," & rsEntries("menu")
rsEntries.MoveNext
Loop while not rsEntries.eof
' Lav arrays med data
arrID = Split(arrID,",")
arrRE = Split(arrRE,",")
arrSU = Split(arrSU,",")
' Funktion som undersøger for svar
Function Threads(intID, AntalIndryk)
AntalIndryk = AntalIndryk + 1
For m = 1 to Ubound(arrID)
' Hvis svar til det indlæg som funktionen er kaldt med
If (Cint(arrRE(m)) = Cint(intID) And Cint(intID) > 0) Or (Cint(arrRE(m)) = 0 AND Cint(intID) = 0) Then
' Tilføj til liste og kald funktionen for at undersøge for svar
Threads = Threads & "<tr style=""height:15px;background-color:" & bgcolor & ";""><td>"
If Cint(intID) > 0 Then
For i = 2 To AntalIndryk
Threads = Threads & " "
Next
Threads = Threads & "- "
End If
if bgcolor="#E6EDF2" then bgcolor="" else bgcolor="#E6EDF2"
Threads = Threads & arrSU(m) & "</td>"
Threads = Threads & "<td style=""width:90px;text-align:right;padding-right:10px;"">"
Threads = Threads & "<a href=""/default.asp?pid=" & arrID(m) & """ target=""_blank""><img src=""/cmplicity/_gfx/ikon/show.gif"" align=""absbottom"" width=""10"" height=""11"" border=""0"" alt=""Vis siden i nyt vindue""></a>"
Threads = Threads & " | "
Threads = Threads & "<a href=""#"" onclick=""PopUp('/cmplicity/menu/editor.asp?id=" & arrID(m) & "', 600, 350);return false;"" class=""txtlink""><img src=""/cmplicity/_gfx/ikon/edit.gif"" align=""absbottom"" width=""12"" height=""11"" border=""0"" alt=""Rediger siden""></a>"
Threads = Threads & " | "
Threads = Threads & "<a href=""/cmplicity/menu/setup.asp?id=" & arrID(m) & """ class=""txtlink""><img src=""/cmplicity/_gfx/ikon/options.gif"" align=""absbottom"" width=""12"" height=""11"" border=""0"" alt=""Instillinger for siden""></a>"
Threads = Threads & " | "
Threads = Threads & "<a href=""/cmplicity/menu/del.asp?id=" & arrID(m) & """ onclick=""return showConfirm();"" class=""txtlink""><img src=""/cmplicity/_gfx/ikon/delete.gif"" align=""absbottom"" width=""9"" height=""11"" border=""0"" alt=""Slet siden""></a>"
Threads = Threads & "</td>"
Threads = Threads & "</tr>"
Threads = Threads & Threads(arrID(m), AntalIndryk)
End If
Next
AntalIndryk = AntalIndryk - 1
End Function
Response.Write Threads(0, 0)
End if
%>
</table>
<br>
<input type="button" value="tilføj ny side" class="submit" onclick="location.href='/cmplicity/menu/create.asp'">
<input type="button" value="Se træstruktur" class="submit" onclick="PopUp('/cmplicity/menu/sitemap.asp', 250, 300);return false;">
<%
closeConn()
%>
</td>
</tr>
<tr>
<td style="width:359px;height:3px;background-image:url('/cmplicity/_gfx/box_bottom_large.jpg');"></td>
</tr>
</table>
<!--#include virtual="/cmplicity/_include/site_skabelon1_midle2.asp"-->
<%' ### text area 2 ### %>
<!--#include virtual="/cmplicity/_include/box_modul.asp"-->
<!--#include virtual="/cmplicity/_include/site_bottom.asp"-->
