Søg
Avatar billede adis Nybegynder
21. april 2004 - 10:56 Der er 19 kommentarer og
1 løsning

hver anden linie andet bgcolor

her er koden med bgcolor, men det kommer med dette fejl:

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: '0'
/skiper/wwwroot/test_radio.asp, line 70

  <% do until rs.EOF %>
 
<tr>
<%    for each x in rs.fields %>
  <td colspan="8"><table width="100%"  border="0">
<%
x = 0

Do until rs.eof
If x = 1 then
    Bgcolor = "bgcolor=#ffffcc"
Else
    Bgcolor = "bgcolor=#fffffc"
End If
%>
    <tr <% Response.write bgcolor %> >
    <%
x = x + 1
  If x > 1 then
  x = 0
  End If

Rs.movenext
Loop                   
%>

    <td width="20%">


    <%
        response.write(x.value)
    %>  </td>
<td width="8%"><div align="center">
    <input type="radio" name="1" value="name1" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt")%>>
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="2" value="name2" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="1" value="name3" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="2" value="name4" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>   
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="1" value="name5" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>   
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="2" value="name6" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>   
  </div></td>
  <td width="31%">&nbsp;</td>
    </tr>
  </table></td>
  </tr>
<%
next
  rs.MoveNext
%>
<% loop %>
</table>

<input type="submit" value="Submit">
</form>
Avatar billede trumf Nybegynder
21. april 2004 - 11:06 #1
hvad står der i linie 70 ?
Avatar billede cdc Novice
21. april 2004 - 11:08 #2
jeg bruger selv denne, hvis det kan hjælpe lidt på vej:

<%
bgskift=0
do while not RS.EOF
bgskift=bgskift + 1

if bgskift = 2 then
bgskift = 0
end if

if bgskift = 0 then
color="bgcolor='#eeeeee'"
else
color="bgcolor='#ffffff'"
end if
%>
      <table>
        <tr>
          <td width="200" <%=color%>><%=RS("tabelnavn") %></td>
        </tr>
<%
RS.MoveNext
loop
%>
Avatar billede adis Nybegynder
21. april 2004 - 11:10 #3
linie 70

Loop                   
%>

    <td width="20%">


    <%
        response.write(x.value) <-----------
    %>  </td>
Avatar billede juggalo Nybegynder
21. april 2004 - 11:10 #4
du kunne også bruge;

bgskift=0
do while not RS.EOF
bgskift=bgskift + 1

if bgskift mod 2 = 0 then
color="bgcolor='#eeeeee'"
else
color="bgcolor='#ffffff'"
end if
%>
      <table>
        <tr>
          <td width="200" <%=color%>><%=RS("tabelnavn") %></td>
        </tr>
<%
RS.MoveNext
loop
Avatar billede juggalo Nybegynder
21. april 2004 - 11:11 #5
prøv at skrive response.write x i stedet for response.write x.value
Avatar billede adis Nybegynder
21. april 2004 - 11:18 #6
<td width="200" <%=color%>><%=RS("tabelnavn") %></td> <---

Hvad skal jeg skrive under tabelnavn når jeg ingen navne har?
Avatar billede trumf Nybegynder
21. april 2004 - 11:19 #7
Du har blandet javascript sammen med vbscript.
Det er .value der skal væk
Avatar billede trumf Nybegynder
21. april 2004 - 11:21 #8
<% do until rs.EOF %>
 
<tr>
<%    for each x in rs.fields %>
  <td colspan="8"><table width="100%"  border="0">
<%
x = 0

Do until rs.eof
If x mod 2 = 0 then
    Bgcolor = "bgcolor=#ffffcc"
Else
    Bgcolor = "bgcolor=#fffffc"
End If
%>
    <tr <% Response.write bgcolor %> >
    <%
x = x + 1
Rs.movenext
Loop                   
%>

    <td width="20%">


    <%
        response.write(x)
    %>  </td>
<td width="8%"><div align="center">
    <input type="radio" name="1" value="name1" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt")%>>
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="2" value="name2" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="1" value="name3" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="2" value="name4" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>   
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="1" value="name5" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>   
  </div></td>
  <td width="8%"><div align="center">
    <input type="radio" name="2" value="name6" <%if Request.Form("checked") then Response.Write("Meget tilfredsstillende, Fagligt<br>")%>>   
  </div></td>
  <td width="31%">&nbsp;</td>
    </tr>
  </table></td>
  </tr>
<%
next
  rs.MoveNext
%>
<% loop %>
</table>

<input type="submit" value="Submit">
</form>
Avatar billede adis Nybegynder
21. april 2004 - 11:25 #9
nu laver den fejl i:
Error Type:
ADODB.Recordset (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/skiper/wwwroot/test_radio.asp, line 92

<%
next
  rs.MoveNext <------------------
%>
<% loop %>
</table>

<input type="submit" value="Submit">
</form>
Avatar billede juggalo Nybegynder
21. april 2004 - 11:26 #10
det er fordi du har 2x movenext og loop - fjern det øverste :)
Avatar billede adis Nybegynder
21. april 2004 - 11:29 #11
nu få jeg denne fejl:
Error Type:
Microsoft VBScript compilation (0x800A041F)
Unexpected 'Next'
/skiper/wwwroot/test_radio.asp, line 89
next

<%
next <-------------
  rs.MoveNext
%>
<% loop %>
Avatar billede cdc Novice
21. april 2004 - 11:30 #12
<%
RS.MoveNext
loop
%>
Avatar billede juggalo Nybegynder
21. april 2004 - 11:30 #13
du skal ikke have det der next - slet det :)
Avatar billede adis Nybegynder
21. april 2004 - 11:33 #14
Når next er fjernet, får man en fejlbesked om at den mangler "next"
Avatar billede trumf Nybegynder
21. april 2004 - 12:02 #15
Du har både
for each x in rs.fields
Do until rs.eof
next
rs.MoveNext
Avatar billede adis Nybegynder
21. april 2004 - 12:36 #16
kan vi ikke starte forfra, da der kun kører i loop... jeg har altid haft denne linie

<%
next
  rs.MoveNext
%>
<% loop %>

men da jeg fik dette ind:

<%
bgskift=0
do while not RS.EOF
bgskift=bgskift + 1

if bgskift = 2 then
bgskift = 0
end if

if bgskift = 0 then
color="bgcolor='#eeeeee'"
else
color="bgcolor='#ffffff'"
end if
%>
      <table>
        <tr>
          <td width="200" <%=color%>><%=RS("tabelnavn") %></td>
        </tr>
<%
RS.MoveNext
loop
%>

virker intet som skal... hvad er problem...
Avatar billede tjaz Nybegynder
21. april 2004 - 16:36 #17
Prøv og se om du ikke kan bruge det her til noget (det virker nemlig):

<%
antal = 10
For t = 1 to antal
if t MOD 2 then
response.write("<font color='#000066'><strong>Blå baggrund</strong></font><br>")
else
response.write("<font color='#FF0000'><strong>Rød baggrund</strong></font><br>")
end if
next
%>
Avatar billede tjaz Nybegynder
21. april 2004 - 16:39 #18
Resultat af det jeg skrev:

http://www.tjaz.dk/exp/skift.asp
Avatar billede adis Nybegynder
21. april 2004 - 16:42 #19
har fåt den til at virke på en anden måde...

<% do until rs.EOF %>
<% for each x in rs.fields %>

<%
intBg = 0
if bg mod 2 = 0 then
    Bgcolor = "bgcolor=#fffffc"
else
    Bgcolor = "bgcolor=#ffffcc"
End if
%>
<tr <% Response.write bgcolor %>>
<%
bg = bg + 1
%>
Avatar billede adis Nybegynder
21. april 2004 - 16:45 #20
men du få dine point alligevel, for dit indsats.
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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
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
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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
40 min siden Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel
I går 22:58 Kan man undgå at få vist referer når der klikkes på links Af Strawberry i Browsere
I går 12:21 Er det svindel eller fra Microsoft Af mort1 i Andet sikkerhed
15/0811:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
14/0810:21 Ny printer, men hvilken Af mort1 i Printere
White papers
Flere white papers »