Ett enkelt forum DEL 2

Jag antar att det är att skriva ut alla poster/svar på samma post du vill ha hjälp med?
Skriver hela koden, blir lättare så. :)

<%
strSQL = "SELECT * FROM tabellen WHERE iif(Svar_ID <> 0, Svar_ID, ID) = " & Request.QueryString("id")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Databasöppning"
Set objRS = objConn.Execute(strSQL)

If NOT objRS.EOF Then
  Do Until objRS.EOF
    Response.Write("Av: " & objRS("Skribent") & " kl. " & objRS("Datum") & "<br>")
    Response.Write("Rubrik: " & objRS("Amne") & "<br>")
    Response.Write(objRS("Inlagg") & "<p>")
    objRS.MoveNext
  Loop
End If

Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

Det enda jag är osäker på är SQL-satsen (vilket jag antar du också var?). Jag hoppas att någon annan kan hjälpas med den om den inte funkar som den är nu. :)

Hur kan man veta att det är en fråga?

Just det, Sebbe, det andra hade jag koll på, men SQLsatsen vore det bra om ngn kunde förklara, visst, jag kn ju hitta ngn här ngnstans och anvä'nda den, men jag vill veta vad saler o ting bewtyder och gör innan jag använder dom, nu har jag kolla på allt utan det här deå.

Så:

-Vad betyder SQLfrågan??

sql = "SELECT columner FROM tabell WHERE ID = id:t OR Svar_ID = id:t ORDER BY id";

Den kan nog kirra biffen åt mig, ska prova...

Ok, fortsättning förljer...

JAg vill att inlägg 1 som laddas ske se ut på ett spec. sätt, sen ska de nästföljande se annorlkunda ut.

Skrive3r ju ut inläggen i flash med en DO WHILE NOT oRec.EOF

MEn skule behöva byta ut mot ngt som gör att den bara tar första, sen ev. hoppar vidare till en ny loop., somm skrver på med ett nytt utseende.

Tack, nu måste jag till jobbet ; ))

Kanske typ så här:

If NOT objRS.EOF Then
i = 0
  Do Until objRS.EOF
	If i = 0 then
  	  'Skriv på ett sätt
  	  Response.Write("Av: " & objRS("Skribent") & " kl. " & objRS("Datum") & "<br>")
  	  Response.Write("Rubrik: " & objRS("Amne") & "<br>")
  	  Response.Write(objRS("Inlagg") & "<p>")
	Else
  	  'Skriv på annat sätt
  	  Response.Write("Av: " & objRS("Skribent") & " kl. " & objRS("Datum") & "<br>")
  	  Response.Write("Rubrik: " & objRS("Amne") & "<br>")
  	  Response.Write(objRS("Inlagg") & "<p>")
	End If
  i = i+1
  Loop
End If

Eller ännu enklare?

If NOT objRS.EOF Then
  ' Första sättet
  Response.Write("Av: " & objRS("Skribent") & " kl. " & objRS("Datum") & "<br>")
  Response.Write("Rubrik: " & objRS("Amne") & "<br>")
  Response.Write(objRS("Inlagg") & "<p>")
  objRS.MoveNext

  Do Until objRS.EOF
    ' Andra sättet
    Response.Write("Av: " & objRS("Skribent") & " kl. " & objRS("Datum") & "<br>")
    Response.Write("Rubrik: " & objRS("Amne") & "<br>")
    Response.Write(objRS("Inlagg") & "<p>")
    objRS.MoveNext
  Loop
End If

Så sant, så sant.

Jo, tack, gör på ngt av dessa, men har inte tid nu, tack