---
title: "Trädforum kod fel.!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6476-trädforum-kod-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "cgi"
published: "2000-08-31T20:49:00.000Z"
updated: "2000-09-01T11:00:00.000Z"
replies: 3
views: 283
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/6476-trädforum-kod-fel"
---
# Trädforum kod fel.!
## #1 — cgi, 2000-08-31T20:49Z
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 ""
Response.Write "| "
For i = 1 to level
Response.Write " "
Next
Response.Write "" & databas("Rubrik") & ""
Response.Write " | "
Response.Write "" & databas("Namn") & " | "
Response.Write "" & FormatDateTime(databas("Datum"),2) & " | "
Response.Write "
"
DisplayChildMeddelanden RS("Id"),Level+1
RS.MoveNext
Loop
End Sub
%>
-Forum-
Nytt inlägg
| Rubrik |
Postat av |
Datum |
<%
DisplayChildMeddelanden 0,1
%>
```
Permalänk: https://www.webforum.nu/p/6476
## #2 — emission, 2000-08-31T21:35Z
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 " "
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.
Permalänk: https://www.webforum.nu/p/245986
## #3 — Vide, 2000-09-01T06:09Z
Antar att du menar i 2:an? :)
Permalänk: https://www.webforum.nu/p/245987
## #4 — emission, 2000-09-01T11:00Z
Eehhh, ja, just jäklar. cgi kanske hade det trots allt. :r
Permalänk: https://www.webforum.nu/p/245988
---
Tråden på webben: https://www.webforum.nu/amne/asp/6476-trädforum-kod-fel