Opdeling af udtrak

du skal til med paging

http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp

/nute

http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp

Hvordan får jeg det at passe ind i dette...

60 point for et link.. men hvis en af jer kan vise hvordan det sættes ind i dette..



if mode=\"kartegorie\" and request(\"klasse\") <> \"\" then
    sql = \"SELECT * from kunder  WHERE kartegori=\'\"& request(\"slags\") &\"\' and klasse=\'2\' order by navn asc\"
    set rstemp = conntemp.execute(sql)
response.write \"<table>\"
do while not (rstemp.eof or rstemp.bof)
response.write \"<table  bgcolor=\"\"#78B4B0\"\" style=\"\"border: 1 solid #000000\"\" width=\"\"100%\"\" height=\"\"70\"\">\"
If Len(rstemp(\"logo\")) > 0 Then
response.write \"<tr><td  width=\"\"105\"\" align=\"\"left\"\" valign=\"\"middle\"\"><a href=\"\"http://\" & rstemp(\"link\") & \"\"\" target=\"\"_blank\"\"><img src=\"\"logoer/\" & rstemp(\"logo\") & \"\"\" alt=\"\"\" & rstemp(\"navn\") & \"\"\" border=\"\"1\"\"></a></td>\"
Else
Response.Write \"<tr align=\"\"left\"\" align=\"\"left\"\" valign=\"\"middel\"\"><td width=\"\"120\"\"></td>\"
end if


response.write \"<td width=\"\"280\"\" align=\"\"left\"\" valign=\"\"top\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"2\"\">\" & rstemp(\"navn\") & \"</font><br><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\"><a href=\"\"http://\" & rstemp(\"link\") & \"\"\" target=\"\"_blank\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"2\"\">\" & rstemp(\"link\") & \"</a></td>\"

response.write \"<td align=\"\"left\"\" valign=\"\"top\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"2\"\">\" & rstemp(\"tekst\") & \"</td></tr>\"
response.write \"</table>\"
response.write \"<table height=\"\"3\"\"><tr><td></td></tr></table>\"
rstemp.movenext

loop
    rstemp.close
    Response.Write \"<table>\"
end if

hmmm

Her er din kode med lavet om så den er med paging:

Udskift al din kode med dette, indsæt det melem:
if mode=\"kartegorie\" and request(\"klasse\") <> \"\" then
...<ny kode...>
end if

Den nye kode:

  intPage = Request(\"page\")
  If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
  End If

  Set rstemp = Server.CreateObject(\"ADODB.RecordSet\")
  sql = \"SELECT * from kunder WHERE kartegori=\'\"& request(\"slags\") &\"\' and klasse=\'2\' order by navn asc\"
  rstemp.Open SQL, conntemp, 1
  If Not (rstemp.BOF Or rstemp.EOF) Then
    rstemp.PageSize = 10
    rstemp.AbsolutePage = intPage
    intRecCount = rstemp.PageSize
    intPageCount = rstemp.PageCount
  end if
  response.write \"<table>\"
  do while not (rstemp.eof or rstemp.bof) AND intRecCount > 0
    response.write \"<table bgcolor=\"\"#78B4B0\"\" style=\"\"border: 1 solid #000000\"\" width=\"\"100%\"\" height=\"\"70\"\">\"
    If Len(rstemp(\"logo\")) > 0 Then
      response.write \"<tr><td width=\"\"105\"\" align=\"\"left\"\" valign=\"\"middle\"\"><a href=\"\"http://\" & rstemp(\"link\") & \"\"\" target=\"\"_blank\"\"><img src=\"\"logoer/\" & rstemp(\"logo\") & \"\"\" alt=\"\"\" & rstemp(\"navn\") & \"\"\" border=\"\"1\"\"></a></td>\"
    Else
      Response.Write \"<tr align=\"\"left\"\" align=\"\"left\"\" valign=\"\"middel\"\"><td width=\"\"120\"\"></td>\"
    end if
    response.write \"<td width=\"\"280\"\" align=\"\"left\"\" valign=\"\"top\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"2\"\">\" & rstemp(\"navn\") & \"</font><br><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\"><a href=\"\"http://\" & rstemp(\"link\") & \"\"\" target=\"\"_blank\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"2\"\">\" & rstemp(\"link\") & \"</a></td>\"
    response.write \"<td align=\"\"left\"\" valign=\"\"top\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"2\"\">\" & rstemp(\"tekst\") & \"</td></tr>\"
    response.write \"</table>\"
    response.write \"<table height=\"\"3\"\"><tr><td></td></tr></table>\"
    intRecCount = intRecCount - 1
    rstemp.movenext
  loop
  rstemp.close
  Response.Write \"<table>\"

  Response.Write \"<p>Gå til side \"
  For intNum = 1 To intPageCount
    Response.Write \"<a href=default.asp?page=\" & intNum & \"&slags=\"& request(\"slags\") & \"&klasse=\" & request(\"klasse\") & \">\" & intNum & \"</a> \"
  Next

  Response.Write \"<p>\"
  If Clng(intPage) > 1 Then
    Response.Write \"<a href=default.asp?page=\" & intPage - 1 & \"&slags=\"& request(\"slags\") & \"&klasse=\" & request(\"klasse\") & \">&lt;&lt;</a>\"
  Else
    Response.Write \"&lt;&lt;\"
  End If

  Response.Write \"&nbsp;\"

  If Clng(intPage) < Clng(intPageCount) Then
    Response.Write \"<a href=default.asp?page=\" & intPage + 1 & \"&mode=\"& mode & \"&klasse=\" & klasse & \">&gt;&gt;</a> \"
  Else
    Response.Write \"&gt;&gt;\"
  End If