30. september 2004 - 16:17Der er
5 kommentarer og 1 løsning
Indsætte variable i id, samt trigger til de forskellige udtræk
Hej
Hvordan kan jeg udtrække samtlige afholdte arrangementer i dette kald til databasen.
Et eller andet sted skal man vil første køre en 'tæller' der tæller antallet af afholdte arrangementer vha 'id' som er autonum.
Derefter vil jeg jo gerne at den laver en string ala nedenstående, således man kan læse de første 190 anslag, og derefter den henviser til hele artiklen.
........................... DETTE FUNGERE FINT MED KUN 1 ARTIKEL ........................... Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db\afholdte.mdb") strSQL = "select * from flashbacks Where id = 1" Set rs = Conn.Execute(strSQL) streng=rs("beskriv") if len(streng)>190 then streng=left(streng,190) & " ..." end if strLatestLink = "<a href='specifikevent.asp?id=" & rs("id") & "'><div class='subtxt'>Læs hele Annoncen >>" & "<br><br></div></a>" .................................. TRIGGER .................................. RESPONSE.WRITE"<br>" & Replace(streng,vbCrLf,"<br>") & "<br>" & strLatestLink
Du kan lave et loop. Som udksirver det og en SQL count som tæller poster:
sql = "select count(id) as antal from flashbacks " Set rs = Conn.Execute(sql) antal = rs("antal")
Så koden bliver:
Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db\afholdte.mdb") sql = "select count(id) as antal from flashbacks " Set rs = Conn.Execute(sql) antal = rs("antal") Response.write "Der er " & antal & " afholdte arrangementer.<br>"
strSQL = "select * from flashbacks " Set rs = Conn.Execute(strSQL) do while not rs.EOF streng=rs("beskriv") if len(streng)>190 then streng=left(streng,190) & " ..." end if strLatestLink = "<a href='specifikevent.asp?id=" & rs("id") & "'><div class='subtxt'>Læs hele Annoncen >>" & "<br></div></a>" RESPONSE.WRITE "<br>" & Replace(streng,vbCrLf,"<br>") & "<br>" & strLatestLink
Hold da helt op. Det virker jo formidabelt. Jeg viste ikke man kunne 'genbruge' strLatestLink = "< ...etc til forskellige link. Smid et svar, og tusinde tak for hjælpen.
Simpel og ligetil. Endnu engang tak. Hvem ved, måske ender det med at noget af det hænger ved c",)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.