Ingen ting under denne kategori endnu

efter din kode og inden du laver din løkke med visningen af film skal du indsætte
if rs.EOF or rs.BOF then
response.write "Der er ingen film i denne kategori"
else

og efter din visning af kategorien skriver du
end if

er det her helt forkert eller?


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dabe/dbase1.mdb")
genreid = Request.QueryString("genreid")
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM movies WHERE genreid=" & genreid, Conn, 1, 3
rs.Update
%>
<%
if rs.EOF or rs.BOF then
response.write "Der er ingen film i denne kategori"
else
end if
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
  <tr>
    <td width="100%"> </td>
  </tr>
  <tr>

<% do until rs.eof %>




det skal lige siges at jeg ikke er hel asp haj endnu :p

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dabe/dbase1.mdb")
genreid = Request.QueryString("genreid")
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM movies WHERE genreid=" & genreid, Conn, 1, 3
rs.Update
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
  <tr>
    <td width="100%"> </td>
  </tr>
<% if rs.EOF or rs.BOF then %>
  <tr>
  <td>
    <h4>response.write "Der er ingen film i denne kategori"</h4>
  </td>
  </tr>
<% else %>
  <tr>
  <td>
<% do until rs.eof %>
...din kode med visningen
  </td>
  </tr>
<% end if %>

du laver først et check om rs er tom .. hvis den er skriver den "Der er ingen film i databasen". Ellers skal den gå videre og vise det hele (do until rs.eof)
og til slut afslutter du din "hvis"-sætning

jeg får bare
Error Type:
ADODB.Recordset (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

måske er det nemmere hvis du har HELE koden:


<meta http-equiv="Content-Language" content="da">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
  <tr>
    <td width="100%"> </td>
  </tr>
  <tr>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dabe/dbase1.mdb")
genreid = Request.QueryString("genreid")
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM movies WHERE genreid=" & genreid, Conn, 1, 3
rs.Update
%>
<% if rs.EOF or rs.BOF then %>
    <h4><% response.write "Der er ingen film i denne kategori" %></h4>
    <% else %>
<% do until rs.eof %>
  <td width="100%" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; font-size:9pt">
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
    <tr>
      <td width="100%" height="2" colspan="2"></td>
    </tr>
    <tr>
      <td width="6%" rowspan="2" height="31">
      <p align="center">
      <a title="Se Infomation Om <%= rs("movietitle") %>" target="I1" href="showinfo.asp?movieid=<%= rs("movieid") %>" <a>
<img border="0" src="images/covers/<%= rs("movietitle") %>.jpg" width="24" height="34"> </a></td>
      <td width="94%" height="12" style="font-size: 10pt; font-family: Verdana">
      <a title="Se Infomation Om <%= rs("movietitle") %>" target="I1" href="showinfo.asp?movieid=<%= rs("movieid") %>" <a>
<%= rs("movietitle") %></a></td>
    </tr>
    <tr>
      <td width="94%" height="19" style="font-size: 8pt; font-family: Verdana">
      <a title="Se Infomation Om <%= rs("movietitle") %>" target="I1" href="showinfo.asp?movieid=<%= rs("movieid") %>" <a>
<%= rs("sprog") %>  -  <%= rs("tid") %> Min.</a></td>
    </tr>
    <tr>
      <td width="100%" height="2" colspan="2" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom: 1px solid #8C9EA6">
      </td>
    </tr>
  </table>
</td>
  </tr>
<%
rs.MoveNext
Loop
%>
</table>
<% end if %>



Fejlen er:
Error Type:
ADODB.Recordset (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/MovieDB/showgenre.asp, line 16

Linie 16: rs.Update

hvad står der i din adresselinie ?
Er der en genreid=ET_ELLER_ANDET_TAL

jep
showgenre.asp?genreid=7

prøv at ændre hele din selection
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dabe/dbase1.mdb")
genreid = Request.QueryString("genreid")
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM movies WHERE genreid=" & genreid, Conn, 1, 3
rs.Update
%>
til
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dabe/dbase1.mdb")
SQL = "SELECT * FROM movies WHERE genreid=" & genreid, Conn, 1, 3
set rs = conn.execute(sql)
%>

så får jeg en
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/MovieDB/showgenre.asp, line 13, column 53

linie 13: SQL = "SELECT * FROM movies WHERE genreid=" & genreid, Conn, 1, 3

hmm - prøv at slette
, Conn, 1, 3

så får vi en:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'genreid='.
/MovieDB/showgenre.asp, line 14

Linie 14: set rs = conn.execute(sql)

wow - jeg overså lige noget:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dabe/dbase1.mdb")
genreid = Request.QueryString("genreid")
SQL = "SELECT * FROM movies WHERE genreid=" & genreid, Conn, 1, 3
set rs = conn.execute(sql)
%>

Prøv det i stedet for det jeg skrev tidligere - du skal selvfølgelig stadig have genreid med

hehe men nu en:

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/MovieDB/showgenre.asp, line 14, column 53

linie 14: SQL = "SELECT * FROM movies WHERE genreid=" & genreid, Conn, 1, 3

igen .. prøv at fjerne      , Conn, 1, 3

så er der sku gevinst

cool - så går jeg i seng :) Gnat

god nat og mange tak