Avatar billede Slettet bruger
01. juni 2001 - 08:51 Der er 1 kommentar og
1 løsning

Problemer med <table> i paging.

Hej eksperter

Jeg 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\" & \"&nbsp;\" & \"</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\" & \"&nbsp;\" & \"</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\" & \"&nbsp;\" & \"</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.\" & \"&nbsp;\" & \"</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.\" & \"&nbsp;\" & \"</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\" & \"&nbsp;\" & \"</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\" & \"&nbsp;\" & \"</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\"\">\" & \"&nbsp;\" & \"</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 & \">&lt;&lt;</a>\"
Else
    Response.Write \"&lt;&lt;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write \"<a href=paging.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
    Response.Write \"&gt;&gt;\"
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
Avatar billede slash Nybegynder
01. juni 2001 - 14:08 #1
du har defineret en fast højde på din table (460)! Har du prøvet at fjerne den faste højde?
Avatar billede Slettet bruger
01. juni 2001 - 14:17 #2
Ja det har jeg, og det er med fuldt overlæg at jeg har defineret en fast højde.
Men jeg har selv fundet ud af det nu - <table> skulle skrives som Response.write :o)
//ezolu
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester