till att börja med borde du klamra dina fältnamn, eftersom du kallat datumkolumnen för datum.
------------------
<A HREF="http://www.cartman.nu" TARGET=_blank>
det man inte minns har inte hänt.
hit med en berka!</A>
Frågan#1
Någon som kan hjälpa mig med denna kod,
problemet är som tidigare att, ja inget vill funka.
<%
Dim SQL
Dim i
Dim databas
Session.LCID = 1053
Set databas = Server.CreateObject("ADODB.Connection")
Set Conn = Server.CreateObject("ADODB.Connection")
Databas.Open "DSN=konot-data;Password=krypterat"
SQL = "SELECT Meddelande.Id, " & "Meddelande.Rubrik, Meddelande.Datum, " & "Id.Namn FROM Meddelande, Namn " & "WHERE Meddelande.[Id] = Namn.Id AND " & "Meddelande.Parent=" & Parent
SQL = "SELECT * From Forum WHERE 1=2 order by Datum desc"
Set RS = databas.execute(SQL)
RS.Open SQL, Conn,1,2
Sub DisplayChildMeddelanden(Parent,Level)
Do While Not RS.EOF
Response.Write "<tr>"
Response.Write "<td>"
For i = 1 to level
Response.Write " "
Next
Response.Write "<a href='inlagg.asp?id" & RS("Id") & "'>" & RS("Rubrik") & "</a>"
Response.Write "</td>"
Response.Write "<td nowrap>" & RS("Namn") & "</td>"
Response.Write "<td nowrap>" & FormatDateTime(RS("Datum"),2) & "</td>"
Response.Write "</tr>"
DisplayChildMeddelanden databas("Id"),Level+1
RS.MoveNext
Loop
End Sub
%>
<a href='nytt.asp'>Nytt inlägg</a>
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Forum"
DisplayChildMeddelanden 0,1
%>
[Redigerat av cgi den 11 sep 2000]
