---

Nogen der kan hjælpe mig med at finde fejlen i min kode ?
meningen er at den skal vise outputs med skiftevis hvis og grå
bg-color.. håber der er nogen der kan hjælpe..
på forhånd mange tak..

//DuNAi

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath ("database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "ingen tag's ligenu !"
else
do while not rs.EOF %>
<table border="0" width="100%" height="0" bgcolor="#EEEEEE">
<td>
<b><%=RS("Dato")%> | <A
HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
<%=RS("Besked")%>
</td>
</table>
<% rs.movenext %>
<table border="0" width="100%" height="0" bgcolor="#FFFFFF">
<td>
<b><%=RS("Dato")%> | <A
HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
<%=RS("Besked")%>
</td>
</table>
<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

--
Danmarks største specialiserede IT jobdatabase
- Udelukkende med IT- og internetrelaterede jobs
- Opret en profil og lad drømmejobbet finde dig
KLIK HER! => http://www.html.dk/job

---

dunai wrote:
> Nogen der kan hjælpe mig med at finde fejlen i min kode ?
> meningen er at den skal vise outputs med skiftevis hvis og grå
> bg-color.. håber der er nogen der kan hjælpe..
>
> <%
> if rs.EOF then
> Response.write "ingen tag's ligenu !"
> else
> do while not rs.EOF %>
> <table border="0" width="100%" height="0" bgcolor="#EEEEEE">
> <td>
> <b><%=RS("Dato")%> | <A
> HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
> <%=RS("Besked")%>
> </td>
> </table>
> <% rs.movenext %>
> <table border="0" width="100%" height="0" bgcolor="#FFFFFF">
> <td>
> <b><%=RS("Dato")%> | <A
> HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
> <%=RS("Besked")%>
> </td>
> </table>
> <%RS.MoveNext
> Loop
> end if

Hvilken fejl får du? Og hvad fungerer ikke efter hensigten?

Du vil få et problem hvis der er et ulige antal poster, fordi du siger:
Sålænge rs ikke er tom
Skriv ulige
[Her skal du teste igen om rs er tom!]
Skriv lige <- giver en fejl, hvis den er tom

Er det med vilje at du laver en ny tabel for hver post i stedet for at
have én tabel og bare lave en række (TR-tagget) til hver post?
Du bruger slet ikke TR-tagget. Det skal omkring TD-taggene.

mvh Torben

---

Torben Brandt wrote in dk.edb.internet.webdesign.serverside.asp:
> dunai wrote:
> > Nogen der kan hjælpe mig med at finde fejlen i min kode ?
> > meningen er at den skal vise outputs med skiftevis hvis og grå
> > bg-color.. håber der er nogen der kan hjælpe..
> >
> > <%
&gt; > if rs.EOF then
&gt; > Response.write "ingen tag's ligenu !"
&gt; > else
&gt; > do while not rs.EOF %>
> > <table border="0" width="100%" height="0" bgcolor="#EEEEEE">
> > <td>
> > <b><%=RS("Dato")%> <A
> > HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
> > <%=RS("Besked")%>
> > </td>
> > </table>
> > <% rs.movenext %>
> > <table border="0" width="100%" height="0" bgcolor="#FFFFFF">
> > <td>
> > <b><%=RS("Dato")%> <A
> > HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
> > <%=RS("Besked")%>
> > </td>
> > </table>
> > <%RS.MoveNext
> > Loop
> > end if
>
> Hvilken fejl får du? Og hvad fungerer ikke efter hensigten?
>
> Du vil få et problem hvis der er et ulige antal poster, fordi du siger:
> Sålænge rs ikke er tom
> Skriv ulige
> [Her skal du teste igen om rs er tom!]
> Skriv lige <- giver en fejl, hvis den er tom
>
> Er det med vilje at du laver en ny tabel for hver post i stedet for at
> have én tabel og bare lave en række (TR-tagget) til hver post?
> Du bruger slet ikke TR-tagget. Det skal omkring TD-taggene.
>
> mvh Torben

den skriver det hele rigtigt.. men kommer med denne fejl:
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted.
Requested operation requires a current record.

/tag/default2.asp, line 0

hmm.. nu var det jo heller ikke min html - men mine koder jeg skulle bruge
hjælp til ;)
hmm.. hvordan siger du at du skriver denne "ulige" ? hmm..


--
Danmarks største specialiserede IT jobdatabase
- Udelukkende med IT- og internetrelaterede jobs
- Opret en profil og lad drømmejobbet finde dig
KLIK HER! => http://www.html.dk/job

---

dunai skrev:

> Nogen der kan hjælpe mig med at finde fejlen i min kode ?

Hjælp til selvhjælp: <http://asp-faq.dk/article/?id=41>.

Det er udmærket at du fortæller hvad du gerne vil have din kode til
at gøre - men du bør også fortælle hvad den gør nu.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Fandt ud af at lave det på denne måde:

<table>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath ("database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs = Conn.execute(strSQL)


Do Until rs.EOF
%>
<TR>
<TD bgcolor="#FFFFFF"><b><%=RS("Dato")%> | <A
HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b</TD>
<TD bgcolor="#FFFFFF"><%=RS("Besked")%>
</TD>
</TR>
<%
rs.MoveNext
If rs.EOF THEN exit Do
%>
<TR>
<TD bgcolor="#EEEEEE"><b><%=RS("Dato")%> | <A
HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b</TD>
<TD bgcolor="#EEEEEE"><%=RS("Besked")%>
</TD>
</TR>
<%
rs.MoveNext
Loop
rs.Close
Set Conn = Nothing
%>
</table>

btw mange tak for hjælpen til alle =)

--
Danmarks største specialiserede IT jobdatabase
- Udelukkende med IT- og internetrelaterede jobs
- Opret en profil og lad drømmejobbet finde dig
KLIK HER! => http://www.html.dk/job