Er der noget eller ej?
Jeg har følgende kildekode som jeg ikke kan finde fejlen i... hjælp mig tak!det hele går ud på at den skal skrive at der ikke er noget i database hvis den ikke finde noget og indsætte nogle data i en table hvis den finder noget.
jeg får denne fejl ud af dette script.
error \'80020009\'
Exception occurred.
vis.asp, line 0
(grin ikke, jeg er \"mindre nybegynder\" i ASP, så det kan godt være at det ser tåbeligt ud)
<% if mode = \"\" then %>
<%
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../db/attraktioner.mdb\")
Set rs = Conn.Execute(\"select * from attraktioner where kategori = \'\" & Request.QueryString(\"kategori\") & \"\'\")
%>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"14\">
<tr>
<td height=\"15\" width=\"20\">
<div align=\"left\"><img src=\"../images/menustart.gif\" width=\"20\" height=\"16\"></div>
</td>
<td height=\"15\" width=\"123\">
<div align=\"center\"><font size=\"1\" face=\"Tahoma\"><b><a href=\"info.asp\">Noget2</a></b></font></div>
</td>
<td height=\"15\" width=\"26\">
<div align=\"center\"><font size=\"1\" face=\"Tahoma\"><b><img src=\"../images/menumellem.gif\" width=\"26\" height=\"16\"></b></font></div>
</td>
<td height=\"15\" width=\"123\">
<div align=\"center\"><font size=\"1\" face=\"Tahoma\"><b><a href=\"info.asp\">Noget2</a></b></font></div>
</td>
<td height=\"15\" width=\"26\">
<div align=\"center\"><font size=\"1\" face=\"Tahoma\"><b><img src=\"../images/menumellem.gif\" width=\"26\" height=\"16\"></b></font></div>
</td>
<td height=\"15\" width=\"123\">
<div align=\"center\"><font size=\"1\" face=\"Tahoma\"><b><a href=\"info.asp\">Noget2</a></b></font></div>
</td>
<td height=\"15\" width=\"26\">
<div align=\"center\"><font size=\"1\" face=\"Tahoma\"><b><img src=\"../images/menumellem.gif\" width=\"26\" height=\"16\"></b></font></div>
</td>
<td height=\"15\" width=\"123\">
<div align=\"center\"><font size=\"1\" face=\"Tahoma\"><b><a href=\"info.asp\">Noget2</a></b></font></div>
</td>
<td height=\"15\" width=\"26\">
<div align=\"center\"><font size=\"1\" face=\"Tahoma\"><b><img src=\"../images/menumellem.gif\" width=\"26\" height=\"16\"></b></font></div>
</td>
<td height=\"15\" width=\"123\">
<div align=\"center\"><font size=\"1\" face=\"Tahoma\"><b><a href=\"info.asp\">Noget2</a></b></font></div>
</td>
<td height=\"15\" width=\"20\">
<div align=\"right\"><img src=\"../images/menuslut.gif\" width=\"20\" height=\"16\"></div>
</td>
</tr>
</table>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td height=\"1\" background=\"../images/tablevandretbg.gif\"></td>
</tr>
</table>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td> </td>
</tr>
</table>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"156\">
<tr>
<td align=\"left\" height=\"105\" valign=\"top\">
<blockquote>
<p><font face=\"Tahoma\" size=\"2\"><b><%=rs(\"kategori\")%></b></font><br>
<i><font face=\"Tahoma\" size=\"1\">- Herunder vil der så komme
en komplet liste over dem som ligger i databasen...</font></i> </p>
<%
set rs = nothing
%>
<%
set rs = Conn.execute(\"SELECT * FROM attraktioner WHERE kategori = \'\" & Request.QueryString(\"kategori\") & \"\' ORDER BY attraktion\")
IF NOT (RS.BOF OR RS.EOF) THEN
do until rs.eof
%>
<% if rs(\"plus\") <> True then %>
<table width=\"650\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr bgcolor=\"#DEDEBC\">
<td height=\"20\" width=\"5\"></td>
<td height=\"20\"><a href=\"?mode=vis&attraktion=<%=rs(\"attraktion\")%>\"><font face=\"Tahoma\" size=\"1\"><%=rs(\"attraktion\")%></font></a></td>
</tr>
<tr bgcolor=\"#ECECD9\">
<td height=\"20\" width=\"5\"></td>
<td height=\"20\"><font face=\"Tahoma\" size=\"1\"><%=rs(\"korttekst\")%></font></td>
</tr>
</table><br>
<% else %>
<table width=\"650\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr bgcolor=\"#DEDEBC\">
<td height=\"20\" width=\"5\"></td>
<td height=\"20\"><a href=\"?mode=vis&attraktion=<%=rs(\"attraktion\")%>\"><font face=\"Tahoma\" size=\"1\"><b><%=rs(\"attraktion\")%></b></font></a></td>
</tr>
<tr bgcolor=\"#ECECD9\">
<td height=\"20\" width=\"5\"></td>
<td height=\"20\"><font face=\"Tahoma\" size=\"1\"><%=rs(\"korttekst\")%></font></td>
</tr>
</table><br>
<% end if %>
<%
rs.movenext
loop
ELSE
response.write \"Der blev ikke fundet noget\"
%>
<% end if %>
</blockquote>
</td>
</tr>
</table>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td height=\"1\" background=\"../images/tablevandretbg.gif\"></td>
</tr>
</table>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"14\">
<tr>
<td height=\"20\" width=\"33%\" align=\"left\" valign=\"middle\"></td>
<td height=\"20\" width=\"10%\" align=\"center\" valign=\"middle\"><img src=\"../images/venstrepil.jpg\" width=\"24\" height=\"14\"></td>
<td height=\"20\" width=\"10%\" align=\"center\" valign=\"middle\"><a href=\"index.asp\"><img src=\"../images/home.jpg\" width=\"16\" height=\"16\" border=\"0\"></a></td>
<td height=\"20\" width=\"10%\" align=\"center\" valign=\"middle\"><img src=\"../images/hojrepil.jpg\" width=\"24\" height=\"14\"></td>
<td height=\"20\" width=\"33%\" align=\"right\" valign=\"middle\"></td>
</tr>
</table>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td height=\"1\" background=\"../images/tablevandretbg.gif\"></td>
</tr>
</table>
<% end if %>
Håber i kan hjælpe :)
/TjaZ
