Jeg har er blevet færdig med et forum, og det *burde* fungere
fint, men jeg løbet direkte ind i en mur.
I alle emnerne (topics) kan man ikke ikke se hvem der har skrevet
hvilke ting, før det 3. indlæg (post). Og det er kun forfatteren
man ikke kan se, alt andet virker fint.
I min mening giver det ingen mening, når jeg bruger en løkke til
det, og der ikke mangler noget i databasen, når jeg kigger efter.
Her er koden, hvis det kan hjælpe (eksklusiv database
forbindelsen):
strSQL = "Select * from Forum Where ID=" &
Request.Querystring("topic") & "AND ForumID = " &
Request.Querystring("forumid")
Set rs = Conn.Execute(strSQL)
strSQL2 = "Select * from Forum Where Reply=" &
Request.Querystring("topic") & " AND ForumID = " &
Request.Querystring("forumid") & " Order By Time1"
Set rs2 = Conn.Execute(strSQL2)
if not rs.EOF then
strSQL3 = "Select * from Users Where Account='" & rs("author") &
"'"
Set rs3 = Conn.Execute(strSQL3)
end if
if not rs2.EOF then
strSQL4 = "Select * from Users Where Account='" & rs2("author") &
"'"
Set rs4 = Conn.Execute(strSQL4)
end if
Response.Write "<div id='center'><a href='post.asp?forumid=" &
Request.Querystring("forumid") & "&topic=" &
Request.Querystring("topic") & "' class='red'>Skriv kommentar til
denne tråd</a></div>"
if not rs.EOF then
Response.Write "<div id='textbox'><h3>" & rs("title") & "</h3><p
class='smalltext'>Skrevet af " & rs("author") & " den " &
rs("time1") & "<hr><p class='smalltext'>" & rs("content") &
"</p><p class='signature'>" & rs3("signature") & "</p></div><br>"
end if
Do Until rs2.EOF
Response.Write "<div id='textbox'><h3>" & rs2("title") & "</h3><p
class='smalltext'>Skrevet af " & rs2("author") & " den " &
rs2("time1") & "<hr><p class='smalltext'>" & rs2("content") &
"</p><p class='signature'>" & rs4("signature") & "</p></div><br>"
rs2.MoveNext
Loop
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials