Søg
Avatar billede olelar Nybegynder
21. januar 2001 - 16:27 Der er 7 kommentarer og
1 løsning

liste 3 og 3

Jeg har flg:

<table border=\"0\" cellspacing=\"0\" cellpadding=\"2\">
<%
i = 1
While not RS.EOF
      IF i = 2 then
        response.write \"<TR BGCOLOR=\'#F2EEEE\'>\"
        i =1
      ELSE
        Response.write \"<TR BGCOLOR=\'#D3B79A\'>\"
        i = i+1
      END IF
%>

<td><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td>
<td background=sortknap.gif width=1> &nbsp;</td>
<% rs.movenext %>
<td><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td>
<td background=sortknap.gif width=1>&nbsp; </td>
<% rs.movenext %>
<td><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td></TR>
<% rs.movenext %>

<% wend %>
<% rs.close %>
<% dbobj.close %>
</table>

Den skulle gerne vise posterne 3 og 3. Virker fint når antallet af udtrukne poster går op i tre. Hvis ikke kommer flg. fejl:
ADODB.Field fejl \'80020009\'

Enten er BOF eller EOF sand, eller den aktuelle post er blevet slettet. Den handling, programmet anmodede om, kræver en aktuel post.

?

Hvordan løser jeg det?
Avatar billede eagleeye Praktikant
21. januar 2001 - 17:19 #1

Movenext flytter til næste post. så inden du benytter movenext skal du tjekke på rs.eof.
Avatar billede eagleeye Praktikant
21. januar 2001 - 17:26 #2
Sådan her ville jeg lige umidedlbart sige koden skal laves:
<td><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td>
<td background=sortknap.gif width=1> &nbsp;</td>
<% if rs.EOF %>
  <% rs.movenext %>
  <td><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td>
  <td background=sortknap.gif width=1>&nbsp; </td>
<% end if%>

<% if rs.EOF %>
  <% rs.movenext %>
  <td><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td></TR>
<% end if %>
<% if rs.EOF %>
  <% rs.movenext %>
<% end if %>
Avatar billede eagleeye Praktikant
21. januar 2001 - 17:34 #3
Eks, din gamle kode:

Tjekekr rs.EOF
Udskriv Post 1
movenext
Udskrv Post 2
movenext
Udskriv Post 3
Tjekekr rs.EOF
Udskriv Post 4
movenext
ADODB Fejl!!!! Der er ikke flere poster.

Eks, din ny kode:

Tjekekr rs.EOF
Udskriv Post 1
Tjekekr rs.EOF
  movenext
  Udskrv Post 2
Tjekekr rs.EOF
  movenext
  Udskriv Post 3
Tjekekr rs.EOF
  Udskriv Post 4
Tjekekr rs.EOF
  movenext
Stopper her uden fejl; forhåbendtlig...
Avatar billede olelar Nybegynder
21. januar 2001 - 17:38 #4
Hej eagleeye 
Har prøvet din kode. Den giver fejl (mangler then)

Har prøvet at ændre lidt på koden:
<%
i = 1
While not RS.EOF
      IF i = 2 then
        response.write \"<TR BGCOLOR=\'#F2EEEE\'>\"
        i =1
      ELSE
        Response.write \"<TR BGCOLOR=\'#D3B79A\'>\"
        i = i+1
      END IF
%>
<% if not rs.eof then %>
<td><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td>
<td background=sortknap.gif width=1> &nbsp;</td>
<% rs.movenext %><% end if %><% if not rs.eof then %>
<td><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td>
<td background=sortknap.gif width=1>&nbsp; </td>
<% rs.movenext %><% end if %><% if not rs.eof then %>
<td><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td> </TR>
<% rs.movenext %><% end if %>

<% wend %>
<% rs.close %>
<% dbobj.close %>


Her kan jeg godt liste dem uden fejl - men jeg skulle jo gerne have tabellen til at se ordentlig ud, så den nederste række skulle gerne skrives helt ud, men med tomme celler.

Avatar billede olelar Nybegynder
21. januar 2001 - 18:02 #5
Hej igen

Fik selv rettet den til sådan her:

<table border=\"0\" cellspacing=\"0\" cellpadding=\"2\">
<%
i = 1
While not RS.EOF
      IF i = 2 then
        response.write \"<TR BGCOLOR=\'#F2EEEE\'>\"
        i =1
      ELSE
        Response.write \"<TR BGCOLOR=\'#D3B79A\'>\"
        i = i+1
      END IF
%>
<% if not rs.eof then %>
<td width=\"100\"><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td>
<td background=sortknap.gif width=1> &nbsp;</td>
<% rs.movenext %><% end if %><% if not rs.eof then %>
<td width=\"100\"><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td>
<td background=sortknap.gif width=1>&nbsp; </td>
<% rs.movenext %>
<% else %>
<td width=\"100\">&nbsp;</td><td background=sortknap.gif width=1>&nbsp; </td> <td width=\"100\">&nbsp;</td></TR>
<% end if %><% if not rs.eof then %>
<td width=\"100\"><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td> </TR><% rs.movenext %>
<% else %>
<td width=\"100\">&nbsp;</td> </TR>
<% end if %>

<% wend %>
<% rs.close %>
<% dbobj.close %>
</table>

Du få lige pointsene for forsøget :-)
Avatar billede eagleeye Praktikant
21. januar 2001 - 18:11 #6

Så skal det vist se sådan ud for dem alle:

<% if not rs.eof then %>
  <td><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td>
  <% rs.movenext %>
<% else %>
  <td>&nbsp;</td>
<% end if %>
<td background=sortknap.gif width=1> &nbsp;</td>

Jeg har først svaret nu fordi jeg ikke har kunnet komme i kontakt med experten.dk..
Avatar billede eagleeye Praktikant
21. januar 2001 - 18:12 #7
OK du er jo mere eller mindre kommet frem til det sammen.
Avatar billede eagleeye Praktikant
21. januar 2001 - 18:16 #8
Hvorfor laver du ikke:
<% for teller=0 to 2 do %>
  <% if not rs.eof then %>
    <td><A HREF=\"submenu.asp?ID=<%= rs(\"ID\") %>\" TARGET=\"_top\"><%= rs(\"leverandoer\") %></A></td>
    <% rs.movenext %>
  <% else %>
    <td>&nbsp;</td>
  <% end if %>
  <td background=sortknap.gif width=1> &nbsp;</td>
<% next %>

I stedet for de 3 gane end linier
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »