Visa signatur
[size="1"]1700+ JIUHB 0308MPMW | NF7-S 2.0 | 2 x 256 TwinMos Winbond 3200 | Hercules 8500 LE | Seagate Barracuda 80Gb IV | Enermax EG365P-VE 350W | Alpha PAL 8045 | Enermax 80 mm | Sony Trinitron G420 19"[/size]
Halloj! På en hemsida i asp och med accessdatabaser vill jag på indexsidan visa datum och tid för när några databaser senast är uppdaterade.
Vissa databaser uppdaterar jag manuellt och då fyller jag manuellt i tid och datum i databasen. Vissa databaser uppdateras dock via nätet av mig och av andra.
1. Går det att få någon tid och datum på dem också?
2. Går det att ordna sortering så den senast uppdaterade ligger överst hela tiden?
Här är en exempelkod för en databas jag fyller i själv.
<%
set rUppdat = Request("uppdat")
%>
<%
DBPath = "dbq=" & Server.MapPath("databaser/nyheter.mdb")
Set Database = Server.CreateObject("ADODB.Connection")
Database.Open "driver={Microsoft Access Driver (*.mdb)};" & DBPath
SQLstring = "SELECT * FROM info "
set RS=Database.Execute(SQLstring)
if RS.EOF then
Response.Write("<FONT FACE=verdana SIZE=1 COLOR=navy></B></FONT>")
end if
do while not RS.EOF
Response.Write("<TABLE CELLSPACING=0 WIDTH='100%'><TR>")
Response.Write("<TD ALIGN=left COLSPAN=1><FONT FACE=verdana SIZE=1 COLOR=black><B>Senaste uppdateringar:</B></TR></TD>")
Response.Write("<TR><TD ALIGN=left><FONT FACE=verdana SIZE=1><A HREF=http://www.XXXXXXXXXXX.com/nyheter.asp>Nyheter</A></TD>")
Response.Write("<TD ALIGN=left><FONT FACE=verdana SIZE=1> "&RS("uppdat")&" "&RS("uppdattid")&"</TD></TR>")
RS.MoveNext
Loop
RS.Close
set RS = Nothing
Database.Close
set Database = Nothing
%>
[size="1"]1700+ JIUHB 0308MPMW | NF7-S 2.0 | 2 x 256 TwinMos Winbond 3200 | Hercules 8500 LE | Seagate Barracuda 80Gb IV | Enermax EG365P-VE 350W | Alpha PAL 8045 | Enermax 80 mm | Sony Trinitron G420 19"[/size]
Spelnyheter från FZ
Copyright © 1999–2025 Geeks AB. Allt innehåll tillhör Geeks AB.
Citering är tillåten om källan anges.