Problemer med <table> i paging.
Hej eksperterJeg har problemer med http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp
Det virker efter hensigten, med undtagelse af at siden først starter et skærmbillede længere nede - dvs der er en blank skærm hvor man skal scrolle ned for at komme til indholdet. Ligesåsnart <table> er fjernet, står det fint nok i toppen.
Er der nogen der lige har en forklaring på det?
Min source:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * from automater ORDER BY Id\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../../../db/produkter.mdb\")
%>
<html>
<head>
<link HREF=\"../../faaborg.css\" REL=\"stylesheet\" TYPE=\"text/css\">
<title>Trala</title>
<script language=\"JavaScript\" src=\"../../tdover.js\"></script>
</head>
<body bgcolor=\"#FFFFFF\">
<table width=\"80%\" height=\"460\">
<!-- genereret af paging -->
<%
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 6
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
Response.Write \"<tr><td width=\"\"11\"\" height=\"\"15\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\" rowspan=\"\"2\"\">\" & \"<img border=\'0\' src=\'\" & RS(\"Billednavn\") & \"\'>\" & \"</tr>\" & \"</td>\"
Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"Beskrivelse\" & \" \" & \"</td>\"
Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"Beskrivelse\") & \"</tr>\" & \"<br>\" & \"</td>\"
Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"Varenummer\" & \" \" & \"</td>\"
Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"Varenr\") & \"</tr>\" & \"<br>\" & \"</td>\"
Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"TUN-nr\" & \" \" & \"</td>\"
Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"TUNnr\") & \"</tr>\" & \"<br>\" & \"</td>\"
Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"Bredde i cm.\" & \" \" & \"</td>\"
Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"Bredde\") & \"</tr>\" & \"<br>\" & \"</td>\"
Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"Dybde i cm.\" & \" \" & \"</td>\"
Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"Dybde\") & \"</tr>\" & \"<br>\" & \"</td>\"
Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"Stk. pr. palle\" & \" \" & \"</td>\"
Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"StkPrPalle\") & \"</tr>\" & \"<br>\" & \"</td>\"
Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"Pris pr. stk\" & \" \" & \"</td>\"
Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"StkPrisDKK\") & \"</tr>\" & \"<br>\" & \"</td>\"
Response.write \"<tr><td width=\"\"80\"\" height=\"\"54\"\">\" & \" \" & \"</td>\"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<a href=paging.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next
Response.Write \"<p>\"
If Clng(intPage) > 1 Then
Response.Write \"<a href=paging.asp?page=\" & intPage - 1 & \"><<</a>\"
Else
Response.Write \"<<\"
End If
Response.Write \" \"
If Clng(intPage) < Clng(intPageCount) Then
Response.Write \"<a href=paging.asp?page=\" & intPage + 1 & \">>></a> \"
Else
Response.Write \">>\"
End If
%>
<!-- slut på paging generator -->
</body>
</html>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Jeg ville gerne give flere point, men har desværre ikke flere ):
Håber der er nogen der kan hjælpe mig her
//
ezolu
