Hvorfor får jeg ingen udtræk?

fejl `?

Ja det er det der er problemet jeg får ingen fejl!! Der bliver bare ikke vist noget fra min database???

Med venlig hilsen
Peter F. Poulsen

<%Do while not rs.eof%
Response.Write rs(\"Produkt\") & \"<br>\"


rs.movenext
Loop
%>

<%Do until rs.eof%>
<%Response.Write rs(\"Produkt\") & \"<br>\"%>

<%
rs.movenext
Loop
%>

  <%Do while not rs.EOF
Response.Write rs(\"Produkt\") & \"<br>\"


rs.movenext
Loop
%> 

Nej det har jeg prøvet, det gør ingen forskel???

Er der ikke en af jer der vil se på det hvis jeg zipper min side (inkl. database) og sender det til jer. Vi kan godt finde ud af noget med lidt flere point?

Med venlig hilsen
Peter F. Poulsen

Prøv at lave en Response.Write på din sql variabel, så du kan se, hvad det er du sender til databasen. Prøv også at lave en Response.Write på rs.Recordcount.

torbenkock>> hvis jeg bruger Response.Write rs.Recordcount skriver den -1???

Hvad med din sql variabel??

At Recordcount er -1 tyder på, at du får sendt en forkert forespørgsel til databasen. Hvis du sendte noget korrekt, men der ingen records var, ville du få 0 i Recordcount

Jeg har to sider og en database:

- Default.asp
- Vis.asp
- Database.mdb

Her er indholdet af filerne:

Database.inc
<%
\' ADODB Connection objektet
Set Conn = Server.CreateObject(\"ADODB.Connection\")
\' Sti til databasen
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"Databaser/database.mdb\")
\' Åbner forbindelsen
Conn.Open DSN
%>

Default.asp

<!--#include file=\"Database.inc\"-->
<HTML>
table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" height=\"346\">
<tr>
<td width=\"18%\" style=\"border-right: 1 solid #808080\" height=\"346\" valign=\"top\" bgcolor=\"#ED7514\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"3\">
<tr>
<%\' opretter forespørgsel
SQL = \"SELECT * FROM Kategori ORDER BY Kategori\"
\' udfører forespørgsel
Set rs = Conn.Execute(SQL)
%>

<td width=\"100%\"><b><font size=\"1\">Kategorier</font></b><font size=\"1\"><br>
<%
\' gør indtil rs.eof
Do While not rs.eof
%>
<%
\' udskriv kategorier
Response.Write \"» \" & \"<a href=vis.asp?Kategori=\" & rs(\"Kategori\") & \">\" & rs(\"Kategori\") & \"</a><br>\"
%>
<%
\' fortsæt til næste post og loop
rs.movenext
Loop
%>
</font></td>
</tr>
</table>
</HTML>

Vis.asp

<!--#include file=\"Database.inc\"-->
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"Databaser/Database.mdb\")
%>
<%
Conn.open DSN
Sql = \"SELECT * FROM PRODUKTER where Kategori = \'\" & Request.Querystring(\"Kategori\") & \"\' \" 
Set rs = Conn.execute(Sql)
%>
<%Do until rs.eof%>
<td width=\"54%\" bgcolor=\"#DDDDDD\" onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\"><font size=\"1\"><%Response.Write rs(\"Produkt\")%></font></td>
<td width=\"12%\" bgcolor=\"#DDDDDD\" align=\"center\" onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\"><%
Response.Write \"<a href=vis_produkt.asp?ID=\" & rs(\"ID\") & \">\" & \"<img border=0 src=\'Grafik/Info.gif\'>\" & \"</a>\"
%>
</td>
<td width=\"12%\" bgcolor=\"#DDDDDD\" onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" align=\"center\"><a href=\"Kurv.asp?mode=tilfoej&amp;id=<%= RS(\"ID\") %>\" onmouseOver=\"status=\'Tilføj produktet til din indkøbskurv\';return true\" onMouseOut=\"status=\'\';return true\"><img border=\"0\" src=\"Grafik/vogn.gif\"></a></td>
<td width=\"22%\" align=\"right\" bgcolor=\"#DDDDDD\" onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\">
<p align=\"right\"><font size=\"1\"><%Response.Write rs(\"Pris\") & \",-\"%></font></td>
</tr>
<%
rs.movenext
Loop
%>
</table>
</td>
</tr>
</table>


Er der nogen der kan se hvad der går galt?

Med venlig hilsen
Peter F. Poulsen

Prøv at sende mig en kopi af dine relationer i databasen
lubbers@worldonline.dk

Jeg lukker dette spørgsmål