Søgeresultat vist i tabelform
Jeg har et ASP-script, som udfører en søgning i en accessdb. Mit problem er nu, at efter jeg har sat basen op til at sætte mit søgeresultat ind i en tabel, opstår der en lille sjov ting. Det er, at der nu fremkommer et blankt område, der fylder ca. 20-30 linier før resultatet fremvises. Ydermere vises min paging-knapper før selve resultatet vises, hvad ikke skal være tilfældet.Jeg tror, at problemet har noget at gøre med BOF- eller EOF-argumenterne.
Den problematiske del af scriptet ser således ud:
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"test.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 20
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
AntalP = rs.RecordCount
Response.write \"<p><b>Din søgning resulterede i \" & AntalP & \" af<br></b></p>\"
Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p><br>\"
count=1+(intPage-1)*rs.PageSize
Response.Write \"<font color=#000000><table border=5>\"
Response.Write \"<cellPadding=0>\"
Response.Write \"<cellSpacing=0>\"
Response.Write \"<tr><th>Nr.</th><th>A-fond</th><th>Arkivbetegnelse</th>\"
Do While Not rs.EOF And intRecCount > 0
Response.Write \"<tr><td><font face= Arial><font size=2>\" & count & \". <a href=\'fuldpost.asp?id=\" & \"</td>\"
Response.Write \"<td><font face= Arial><font size=2>\" & rs(\"ID\") & \"\' target=\'_blank\'><font color=#000000>\" & \"</td>\"
Response.Write \"<td><font face= Arial><font size=2><font face= Arial><size=5>\" & \"<a href=\'fuldpost.asp?id=\" & rs(\"ID\") & \"\' target=\'_blank\'><font color=#000000>\" & rs(\"afond\") & \" </td>\"
Response.Write \"<td><font face= Arial><font size=2>\" & \"<a href=\'fuldpost.asp?id=\" & rs(\"ID\") & \"\' target=\'_blank\'><font color=#000000>\" & rs(\"arbet\") & \"</td></tr></b></font></a><br>\"
intRecCount = intRecCount - 1
rs.MoveNext
count=count+1
Loop
End if
If rs.recordcount = 0 then
Response.Write \"<br><br><br><br><b><font size=3>Der er ikke fundet nogle afonds, prøv igen</b><br><br>\"
%>
<p align=\"center\"><a href=\"java script:history.go(-1)\"><font color=\"#000000\"><b>Tilbage</b></font></a></p>
<%
else
rs.Close
Set rs = Nothing
Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<a href=simpel.asp?ogsimpel=\" & strogsimpel &\"&fritekst=\" & strfritekst & \"&arbet=\" & strarbet &\"&page=\" & intNum & \">\" & intNum & \"</a> \"
Next
Response.Write \"<p>\"
If Clng(intPage) > 1 Then
Response.Write \"<a href=simpel.asp?ogsimpel=\" & strogsimpel &\"&fritekst=\" & strfritekst & \"&arbet=\" & strarbet &\"&page=\" & intPage - 1 & \"><<</a>\"
