Trädforum kod fel.!

3 svar · 272 visningar · startad av cgi 31 aug. 2000

cgiMedlem sedan jan. 2000371 inlägg

Frågan31 aug. 2000 20:49#1

Någon som kan se något fel på denna kod,
jag får inte upp något felmeddelande, varken rubrikerna eller svaren vill visas, någon.??

<%
Sub DisplayChildMeddelanden(Parent,Level)

    Dim SQL
    Dim i

Session.LCID = 1053
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("forum.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" 
SQL = "Select * from Forum WHERE 1=2"
Set RS = databas.execute(SQL)

Do While Not RS.EOF

   Response.Write "<tr>"
   Response.Write "<td>"

   For i = 1 to level
     Response.Write "&nbsp;&nbsp;"
   Next

Response.Write "<a href='inlagg.asp?id" & databas("Id") & "'>" & databas("Rubrik") & "</a>"
Response.Write "</td>"

Response.Write "<td nowrap>" & databas("Namn") & "</td>"
Response.Write "<td nowrap>" & FormatDateTime(databas("Datum"),2) & "</td>"
Response.Write "</tr>"

   DisplayChildMeddelanden RS("Id"),Level+1
   RS.MoveNext

Loop
End Sub

%>

<html>
<head>
  <title>-Forum-</title>
</head>
<body>
<a href='nytt.asp'>Nytt inlägg</a>
<table border="0">
<tr>
   <td width="70%">Rubrik</td>
   <td width="15%">Postat av</td>
   <td width="15%">Datum</td>
</tr>

<%
DisplayChildMeddelanden 0,1
%>
</table>

</body>
</html>

emissionMedlem sedan dec. 19996 721 inlägg

31 aug. 2000 21:35#2

Inga större fel, men..

1. Skapa databaskopplingen utanför subben, och återanvänd den, i stället för att skapa en ny databaskoppling för varje meddelande i forumet (vilket det ju blir med varje anrop till DisplayChildMeddelanden). Det är ett ruggigt slöseri med kraft.

2.
For i = 1 to level
Response.Write " "
Next

ska bytas ut till

For i = 1 to level
Response.Write "&nbsp "
Next

annars blir det ingen indentering

3. Dimma RS i subben. Jag misstänker att den blivit global, om du använt den tidigare i koden. Slå på option explicit längst upp, så blir det inte fel.

VideMedlem sedan dec. 19998 577 inlägg

1 sep. 2000 06:09#3

Antar att du menar i 2:an? :)

------------------
PC-älskare prasslar i säven, och har malt i ryggen
www.webeye.nu
Har du gjort lumpen?

emissionMedlem sedan dec. 19996 721 inlägg

1 sep. 2000 11:00#4

Eehhh, ja, just jäklar. cgi kanske hade det trots allt. :r