---

Hej Gruppe

Jeg har en nyhedsoversigt der bare lister alle poster...jeg kunne dog godt
tænke mig at der kun blev listet f.eks. de sidste 10 nyheder udfra dags dato

er det muligt vha. af SQL alene ?

i bunden af siden skulle der så være link til arkiv der trækker alle
posterne .....

thx

---

On Mon, 27 May 2002 18:16:29 +0200, "Nigel" <nigel@hotmail.com> wrote:

>Jeg har en nyhedsoversigt der bare lister alle poster...jeg kunne dog godt
>tænke mig at der kun blev listet f.eks. de sidste 10 nyheder udfra dags dato
>
>er det muligt vha. af SQL alene ?
>
>i bunden af siden skulle der så være link til arkiv der trækker alle
>posterne .....

For 3 dage siden blev et lignende spørgsmål
Message-ID: <3cedf796$0$70399$edfadb0f@dspool01.news.tele.dk>

besvaret
Message-ID: <7NmH8.3811$N46.229332@news010.worldonline.dk>

med en henvisning til flg. link:
<URL: http://activedeveloper.dk/aspdigital/kapitel2/paging.asp>

Good luck

--
Jørn Andersen,
Brønshøj

---

"Nigel" <nigel@hotmail.com> wrote in message
news:3cf25bde$0$97329$edfadb0f@dspool01.news.tele.dk...
> Jeg har en nyhedsoversigt der bare lister alle poster...jeg kunne dog godt
> tænke mig at der kun blev listet f.eks. de sidste 10 nyheder udfra dags
dato
> er det muligt vha. af SQL alene ?
> i bunden af siden skulle der så være link til arkiv der trækker alle
> posterne .....


Noget ala

If Request.Querystring( "cmd" ) = "arkiv" Then
strSQL = "SELECT felt1, felt2 FROM tabel ORDER BY Idfelt DESC"
Else
strSQL = "SELECT TOP 10 felt1, felt2 FROM tabel ORDER BY Idfelt DESC"
End if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Hent og print data '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Request.Querystring( "cmd" ) = "arkiv" Then
Response.write( "<a href=""" & Request.ServerVariables( "SCRIPT_NAME" )
& """>Vis nyeste</a>" )
Else
Response.write( "<a href=""" & Request.ServerVariables( "SCRIPT_NAME" )
& "?cmd=arkiv"">Vis arkiv</a>" )
End if


--
Jakob Andersen

---

Hej Jacob

Tak for dit svar...det virker næsten :0)

jeg har nu:

<% If Request.Querystring( "cmd" ) = "arkiv" Then
OpenDB "SELECT * From TABELNAVN ORDER BY Idfelt DESC;"
else
OpenDB "SELECT TOP 5 * FROM TABELNAVN ORDER BY Dato
DESC;"

If Not (Rs.Eof And Rs.Bof) Then

Do While Not Rs.Eof

<SNIP> en hel masse <Snip>

%>

men får fejlen:
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1

fejl i linje 14 i inc filen som ser sådan ud:
Databasename = " STI TIL DB"
DatabasePath = Server.MapPath(DatabaseName)

Dim RS, RS2

Sub OpenDB(SQL)

Set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" &
"DBQ=" & DatabasePath & ";" & "FIL=MS Access;"
DB.Open
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, DB, 3, 3
End Sub

thx

---

Hej Gruppe

så kører det ..thx :0)




"Nigel" <nigel@hotmail.com> wrote in message
news:3cf2aa17$0$18627$edfadb0f@dspool01.news.tele.dk...
> Hej Jacob
>
> Tak for dit svar...det virker næsten :0)
>
> jeg har nu:
>
> <% If Request.Querystring( "cmd" ) = "arkiv" Then
> OpenDB "SELECT * From TABELNAVN ORDER BY Idfelt
DESC;"
> else
> OpenDB "SELECT TOP 5 * FROM TABELNAVN ORDER BY Dato
> DESC;"
>
> If Not (Rs.Eof And Rs.Bof) Then
>
> Do While Not Rs.Eof
>
> <SNIP> en hel masse <Snip>
>
> %>
>
> men får fejlen:
> [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1
>
> fejl i linje 14 i inc filen som ser sådan ud:
> Databasename = " STI TIL DB"
> DatabasePath = Server.MapPath(DatabaseName)
>
> Dim RS, RS2
>
> Sub OpenDB(SQL)
>
> Set DB = Server.CreateObject("ADODB.Connection")
> DB.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" &
> "DBQ=" & DatabasePath & ";" & "FIL=MS Access;"
> DB.Open
> Set RS = Server.CreateObject("ADODB.Recordset")
> RS.Open SQL, DB, 3, 3
> End Sub
>
> thx
>
>
>