12. juni 2003 - 17:08Der er
3 kommentarer og 1 løsning
Paging, hvis antal overstiger 15 opskrifter
Jeg har nu gennemlæst en hulens masse spørgsmål her på E, og slået mine folder forbi activedeveloper.dk. Men endnu er det ikke lykkes mig at indsættte noget brugbart paging på nedenstående kildekode... Håber at den endnu engang sidder en haj bag pcén som kunne trænge til 200 points for at indsætte noget paging i nedenstående ............................................... <ul>" Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db\glad4mad.mdb")
strSQL = "Select * From opskrift Where opskrift.Kategori='4' Order by brugernavn Desc" Set rs = Conn.Execute(strSQL)
rs.MoveNext Loop While Not rs.EOF Else Response.Write "Vær den første der indsender opskrift i denne kategori <a href='opskriftscript.asp' target='_parent' class='black'>| Indsend Her |</a>" End If
Conn.Close Set Conn = Nothing RESPONSE.WRITE"</ul></TD>"
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.
Response.Write "<p>Gå til side " For intNum = 1 To intPageCount Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> " Next
Response.Write "<p>" If Clng(intPage) > 1 Then Response.Write "<a href=?page=" & intPage - 1 & ">Forrige</a>" Else Response.Write "Forrige" End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then Response.Write "<a href=?page=" & intPage + 1 & ">Næste</a> " Else Response.Write "Næste" End If
Else Response.Write "Vær den første der indsender opskrift i denne kategori <a href='opskriftscript.asp' target='_parent' class='black'>| Indsend Her |</a>" End If
Conn.Close Set Conn = Nothing RESPONSE.WRITE"</ul></TD>"
Det er simpelhen for fornemt... Tusinde tak for hjælpen endnu engang eagleeye
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.