Hej!!! skriver direkt ur huvet nu så jag vet inte om jag missat nått men det borde väl fungera i alla fall.. finns säkert smidgare sätt oxå... detta är med en accessdatabas.... Förenklat lite. ;O)Senaste 5 inloggade + script......
Fråga 1:
Någon som har ett färdigt script hur man listar upp de senaste 5 inloggade eller som kan förklara hur man går till väga?
mvhSv: Senaste 5 inloggade + script......
<code>
<%
dim db
db = "DBQ=" & Server.Mappath("mindatabas.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set connect = server.createobject("ADODB.Connection")
connect.open db
set recset = server.createobject("ADODB.Recordset")
sql = "select username from users order by logindate DESC"
recset.open sql, connect, adopenstatic, adlockoptimistic
do while senaste < 5
if recset.eof or recset.bof then exit do
end if
response.write "De 5 senast inloggade är:<br>" & recset("username")
recset.movenext
senaste = senaste + 1
loop
%>
</code>
hoppas det ger lite klarhet i alla fall..
//J.ESv: Senaste 5 inloggade + script......
<code>
<%
set connect = server.createobject("ADODB.Connection")
connect.open "DBQ=" & Server.Mappath("mindatabas.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set recset = connect.Execute("SELECT TOP 5 username FROM users ORDER BY logindate DESC")
Response.Write "De 5 senast inloggade är:<br>"
Do Until recset.eof
Response.Write recset("username")
recset.movenext
Loop
%>
</code>
* Tagit Top 5. Hämtar bara det fem första posterna<br>
* Skapar och öppnar recordsetet med Execute.<br>
Fördelar:<br>
+ Skapa instans internt
+ Forward only Cursor
+ Read only