| " & senaste("item") & ""
response.write " | Categori:"
select case senaste("category")
case "categori1"
response.write categori1
case "categori2"
response.write categori2
case "categori3"
response.write categori3
case "categori4"
response.write categori4
case "categori5"
response.write categori5
end select
response.write " | "
response.write " Pris:" & senaste("price") & " Kr |
senaste.MoveNext
Loop
senaste.Close
Set senaste = Nothing
%>
```
Permalänk: https://www.webforum.nu/p/755140
## #8 — Ekström, 2002-08-16T22:12Z
Schysst att du orkar ändra i hans kod, Solbulle. Sånt orkar jag inte med. Får bättra mig.
\*Bortse från detta meddelande, som egentligen, inte har nån mening.\* Eller jo, en hyllning till Solbulle är det ju ;)
Permalänk: https://www.webforum.nu/p/755146
## #9 — @nders, 2002-08-16T22:16Z
```
select case senaste("category")
case "categori1"
response.write categori1
case "categori2"
response.write categori2
case "categori3"
response.write categori3
case "categori4"
response.write categori4
case "categori5"
response.write categori5
end select
```
Borde kunna ersättas med:
```
Response.write eval(senaste("category"))
```
Mvh,
Permalänk: https://www.webforum.nu/p/755150
## #10 — solbulle, 2002-08-17T00:54Z
Hupp, ehurm... jo det skulle man nog kunna göra, snacka om smidigt. :)
Men ni fattar principen va? :e
Permalänk: https://www.webforum.nu/p/755233
## #11 — Ivar, 2002-08-17T14:14Z
Tack för all tips!
Men frågan är finns det någon som kan implementera nuvarande kod till Pagin som visar 20 sidor och 20 till med nästa knapp också vidare.
\<%
Dim connect, query, senaste, test
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
Set senaste = Server.CreateObject("ADODB.Recordset")
query = "SELECT \* FROM items Where test='on' ORDER BY dateCreated DESC"
senaste.Open query, Connect
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "DELETE FROM items WHERE dateCreated \< #" & dateAdd("d",-30,Date) & "#"
RecSet.Open SQL, Connect,1,2
Do Until senaste.EOF
%\>
\