Henter de sidste 10.

SQL = "Select TOP 10 * from sider order by id DESC"

Her tager den autonummeret, hvis det er defineret ... hvad mener du med titel?

Niceday...

Ja den skulle gerne udskrive titlen på filmen. Men det fandt jeg selv ud af.
Takker! :)

Hov..Det virker ikke...

Når jeg tilføjer en film til min database, gør jeg det ikke efter alfabet.

Den skal vise de sidste 10 som JEG har tilføjet, og ikke de sidste 10 i alfabetet.?

Se evt. http://www.trailersiden.dk/newtrailers.asp - det er de sidste i alfabetet.

De sidste 10 jeg har tilføjet i databasen er:
Seabiscuit
Tears Of The Sun
Guru, The
Just Married
Master And Commander
Spider
Left Behind
Beijing Bicycle
Crouching Tiger, Hidden Dragon
Devil's Backbone, The

Det er det den skal vise. Så jeg hele tiden på forsiden kan vise de sidste nye.

du kan også gøre det oldfashion :)

Select titel from movies order by id desc

for i=0 to 9
udskriv rs("titel")
rs.movenext
next

thomas_yde

Kan jeg få dig til at lave hele koden, kan ikke få det til at virke.

<%

set rs = Conn.Execute("Select titel from movies order by id desc")
Response.Write "<table>
for i=0 to 9
  If not rs.EOF
    Response.Write "<tr><td>" & rs("titel") & "</td></tr>" & vbcrlf
  End If
rs.movenext
next
Response.Write "</table>"
%>

Jeg ville nu lave den sådan her - sp har du en mere dynamisk kode, som lettere kan tilpasses ved at ændre i sql-kaldet. Desuden kræver det mindre ressourcer, hvilket man bør tænke særdeles meget over ved anvendelse af Access :-)


<%

set rs = Conn.Execute("Select TOP 10 titel from movies order by id desc")
Response.Write "<table>


do while not rs.EOF

    Response.Write "<tr><td>" & rs("titel") & "</td></tr>" & vbcrlf

rs.movenext
loop


Response.Write "</table>"
%>

korrektion, eksemplet kræver mindre ressourcer, da der kun hentes 10 poster fra databasen - alternativt ville alle blive hentet, men kun 10 udskrevet - det er ikke særligt effektivt.

nemmerlig :)
Og han skal kun bruge den hvis din ikke virker

synes alligevel du skal have nogle points for din løsning - den er jo ikke forkert :-)

Kan vi ikke bare dele de point? Det er op til jer..

Men men..Jeg er ikke god til ASP ;O)
Jeg kan ikke få det til at virke.
Her er koden:

<%

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("trailers/trailerb.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect 

set rs = Conn.Execute("Select TOP 10 titel from sider order by id desc")
Response.Write "<table>


do while not rs.EOF

    Response.Write "<tr><td>" & rs("titel") & "</td></tr>" & vbcrlf

rs.movenext
loop


Response.Write "</table>"
%>

Det er Access 2000 ikke?

Jo det er.

Udskift placeringen (d:\home\berugernavn\db\trailer.mdb) med den placering databasen har hos dig - så skulle det gerne spille :-)


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\berugernavn\db\trailer.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
SQL = "Select TOP 10 titel from movies order by id desc"
Set RS = Conn.Execute(SQL)

Response.Write "<table>"

do while not rs.EOF
  Response.Write "<tr><td>" & rs("titel") & "</td></tr>" & vbcrlf
rs.movenext
loop

Response.Write "</table>"
%>

min tabel hedder trailerb.mdb: Det er rettet.
Jeg har udskiftet 'movies' med 'sider', da tabellen hedder 'sider'.
Men virker stadig ikke.
http://www.trailersiden.dk/newtrailers.asp
Andre forslag?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=trailerb.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
SQL = "Select TOP 10 titel from sider order by id desc"
Set RS = Conn.Execute(SQL)

Response.Write "<table>"

do while not rs.EOF
  Response.Write "<tr><td>" & rs("titel") & "</td></tr>" & vbcrlf
rs.movenext
loop

Response.Write "</table>"
%>

Hmm, nu siger du den ikke virker :)
Men kommer der fejl eller skriver den slet ikke noget ud?

Prøv at klikke på linket ;O)
Når en gang min F***** server udbyder virker.. *G*

Hvilken udbyder har du. Siden virker ikke endnu.

Cliche.dk.. Jeg synes de er blevet meget ustabile på det sidste.

Jeg smider lige en besked når den er klar.

Men btw.. Så var det som om filen slet ikke var der. (newtrailers.asp)

Siden virker nu.
http://www.trailersiden.dk/newtrailers.asp

Der kommer ikke mange fejlbeskeder.

Nej..Det er ikke ligefrem nemt at se hvad der er galt...

DU kan debugge den ved at kommentere noget af koden ud.

ved at sætte ' foran

Underligt den ikke virker - kan du ikke sende din tabel til mig, så skal jeg nok tilrette kode og smide den ud på min egen side, så du kan se hvordan det virker ... det eneste som så skal rettes er placeringen af filen. Desværre er det dog placeringen jeg er bange for er forkert. Har du prøvet at ændre sql til "select * from sider" - så skulle du få en komplet liste over alle.

doh ... min mail: jens@ladosfeste.dk

Er det i orden vi lige stiller det lidt i bero?... Min side gennemgår kode-oprydning og asp ændringer. Jeg skal nok huske det ;O)

Jeg fandt ud af at genbruge en kode, så nu virker det.

<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("trailer.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   

strSQL = "SELECT TOP 10  * FROM sider  ORDER BY id DESC"
Set rs = objConn.Execute(strSQL)

'Udskriv top 10
placering = 1

do while (not rs.EOF) AND (placering <= 10)

  response.write placering & "."
  response.write "<a class=menub href='"& Rs("abclink") &"'>" & rs("titel") & "</a><br>"
 


  placering = placering + 1
  rs.MoveNext
loop

%>

Men ellers.. Er det ok med en deling af point?

Du gør bare hvad du finder bedst :)