SQLstmt = \"select top 10 * FROM news ORDER BY ID desc;\" Conn.Execute (SQLstmt) Set vis = conn.Execute(SQLstmt) %> <% DO WHILE NOT vis.EOF overskrift = vis(\"overskrift\") ID = vis(\"ID\") link = vis(\"link\") %>
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Jamen så viser den et bestemt ID.... Dvs. at når jeg tilføjer en ny nyhed så virker scriptet ikke mere.... Det skal være så det altid er Nyhed 2 ud fra databasen den viser....
Typisk har man et felt (ID) som er autonummer og be opdateres automatisk når man indsætter en ny record. Det benytter eks.vis til at vælge en bested record hvor man kender ID\'et. Det skulle ikke ændre sig når man indsætte nye record. Den nye record skulle bare få det næste nummer i rækken.
Jeg skal bare kunne hente den anden sidste nyhed i databasen.... Altså den skal ikke vise den samme nyhed hele tiden. Men nr. 2 sidste nyhed der er intastet i databasen...
Conn_String = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"blah.mdb\") If Request(\"PageTo\") <> \"\" Then strPageTo = Request(\"PageTo\") If strPageTo <> \"\" Then nPageTo = int(strPageTo) If nPageTo < 1 Then nPageTo = 1 End If Else nPageTo = 1 End If Set RS = Session(\"ListingRS\") RS.AbsolutePage = nPageTo
else Set Conn=Server.CreateObject(\"ADODB.Connection\") Conn.ConnectionTimeout=15 Conn.CommandTimeout=30
Conn.Open Conn_String Set Cmd=Server.CreateObject(\"ADODB.Command\") Set RS=Server.CreateObject(\"ADODB.Recordset\") Cmd.CommandType = 1 Set Cmd.ActiveConnection = Conn Cmd.CommandText=\"SELECT * From blahblahdatabasenavn order by dato desc;\"
RS.Open Cmd, , 1, 1 RS.PageSize = PageSize Set Session(\"ListingRS\") = RS nPageTo = 1 If not (RS.BOF and RS.EOF) Then Set RS = Session(\"ListingRS\") RS.AbsolutePage = nPageTo End If
end if If RS.EOF Then Response.Write(\" <br><br><font size=4 color=\'red\'<b>Intet fundt <br></b></font><br>\") Else
nRowCount = RS.PageSize
While not RS.EOF and nRowCount > 0 Count = 0 for i = 1 to Count next dagar=DateDiff(\"d\", Dato, RS(\"Dato\"))+2 if dagar >= 0 then %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.