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.
<% intPage = Request(\"page\") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If
Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"SELECT * FROM drink\" strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\") rs.Open strSQL, strDSN, 1 If Not (rs.BOF Or rs.EOF) Then rs.PageSize = 10 rs.AbsolutePage = intPage intRecCount = rs.PageSize intPageCount = rs.PageCount Do While Not rs.EOF And intRecCount > 0 Response.Write \" <A HREF=\"\"drink.asp?id=\"& rs(\"id\") & \"\"\">\"& rs(\"overskrift\") & \"<br></A>\" intRecCount = intRecCount - 1 rs.MoveNext Loop End If rs.Close Set rs = Nothing Response.Write \" \" Response.Write \"<center>\" If Clng(intPage) > 1 Then Response.Write \"<a href=default.asp?page=\" & intPage - 1 & \">Tilbage</a>\" Else Response.Write \"Tilbage\" End If
Response.Write \" \"
If Clng(intPage) < Clng(intPageCount) Then Response.Write \"- <a href=default.asp?page=\" & intPage + 1 & \">Næste side</a> \" Else Response.Write \"- Næste side\" End If %>
<% intPage = Request(\"page\") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If
Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"SELECT * FROM drink ORDER BY overskrift ASC\" strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\") rs.Open strSQL, strDSN, 1 If Not (rs.BOF Or rs.EOF) Then rs.PageSize = 10 rs.AbsolutePage = intPage intRecCount = rs.PageSize intPageCount = rs.PageCount Do While Not rs.EOF And intRecCount > 0 Response.Write \" <A HREF=\"\"drink.asp?id=\"& rs(\"id\") & \"\"\">\"& rs(\"overskrift\") & \"<br></A>\" intRecCount = intRecCount - 1 rs.MoveNext Loop End If rs.Close Set rs = Nothing Response.Write \" \" Response.Write \"<center>\" If Clng(intPage) > 1 Then Response.Write \"<a href=default.asp?page=\" & intPage - 1 & \">Tilbage</a>\" Else Response.Write \"Tilbage\" End If
Response.Write \" \"
If Clng(intPage) < Clng(intPageCount) Then Response.Write \"- <a href=default.asp?page=\" & intPage + 1 & \">Næste side</a> \" Else Response.Write \"- Næste side\" End If %>
20 til hver, da hyper var først og senj havde hele koden håber det er ok
Synes godt om
Ny brugerNybegynder
Din løsning...
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.