12. marts 2002 - 17:37
Der er
3 kommentarer og 1 løsning
Dato
Hej. Jeg har et news system hvor jeg vil have ASP til kun at udtage de fem øverste rækker i Access databasen, hvordan gør jeg det? Jeg mener (Jeg ved godt denne ikke kan bruges): Select 5 from where.......
Annonceindlæg fra Computerworld it-jobbank
Mød 3.500+ it-talenter på IT-DAY 2026
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
12. marts 2002 - 17:47
#1
Forslag: Set Conn = Server.CreateObject("ADODB.Connection") dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/dindatabase.mdb") Conn.open dbConn SQL = "SELECT TOP 5 * FROM debat ORDER BY emneID DESC" Set RS = Conn.Execute( SQL ) while NOT RS.EOF text = left(RS("kommentar"), 150) text = replace(text,vbcrLF,"<br>") response.write "<tr><td><b>" & "Af: " & "</b>" & "<i>" & RS("nick") & "</i></td></tr>" response.write "<tr><td>" & "Emne: " & "<i>" & RS("emne") & "</i>" & "</td></tr>" response.write "<tr><td><p align=""justify""><b>" & RS("brodtekst") & "</b></td></tr>" response.write "<tr><td><p align=""justify"">" & text & "</p></td></tr>" response.write "<tr><td>" & "Læs hele emnet her!" & "</td></tr>" response.write "<tr><td colpan=""2""><img src=""/images/bundlinie.gif"" border=""0""></td></tr>" RS.MoveNext text="" wend RS.Close Set RS = nothing Conn.Close Set Conn = nothing %> Linien text = left(RS("kommentar"), 150) viser de første 150 karakterer fra teksten. Det kan du jo fjerne.