Vis alle nyheder. lille problem med min syntax
Hej alle sammen.Sidder lige med lidt kode der gør bøvl!
Kort om problemet:
Jeg har to sider: index.asp og indhold.asp
Index.asp har forskellige a href="" som kan ende på
?id=(tal)
?id=allnews
Det er så min indhold.asp der afgør hvilken tabel der skal vises fra. Alt sammen virker perfekt. Bare ikke allnews.
Jeg er kommet så langt at hvis jeg vælger allnews udskriver den en response.write("du har valgt alle nyhederne - test")
Dette er bare for at jeg er sikker på at den har fat i den rigtige sql. Dernæst skulle den udskrive alle nyhederne, men det gør den bare ikke. Kun den første. Selvom jeg har lavet et Do & Wend(loop)
Hvad kan der være galt ?
Her er min kode:
If Request.Querystring("id") = ("allnews") Then
Response.Write("Du har valgt alle nyhederne - test")
Set objRsNyheder = Con.Execute("SELECT * FROM tblNews ORDER BY id DESC")
Else
Set objRsNyheder = Con.Execute("SELECT * FROM tblNews WHERE ID=" & request.querystring("ID"))
Set objRs = Con.Execute("SELECT * FROM articles WHERE ID=" & request.querystring("ID"))
Set objRsForside = Con.Execute("SELECT * FROM forside WHERE ID=" & request.querystring("ID"))
End If
If 1=1 Then
If not objRsNyheder.Eof Then
While not objRsNyheder.Eof
Overskrift = objRsNyheder("Heading")
dato = objRsNyheder("Heading")
tekst = objRsNyheder("Heading")
strArticle = "<b>" & objRsNyheder("Heading") & "</b>" & "<br><i>" & objRsNyheder("NewsDateTime") & "</i><br><br>"& (objRsNyheder("FullText"))
objRsNyheder.MoveNext
Wend
Else
If not objRs.Eof Then
strArticle = objRs("article")
Else
strArticle = objRsForside("article")
End If
End If
End If
/Mvh
