Søg
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 09:43 Der er 30 kommentarer og
2 løsninger

2 ASP Spm

Hvis nu jeg gerne vil have at en celle skifter farve for hver anden gang, hvid og grå hvorfor virker min kode så ikke??

KODE:
-------------------------------------------------------------------
Do until rsMenu.EOF

STRING_Menu = rsMenu("name")
STRING_Link = "<a href='indhold.asp?id=" & rsMenu("Id") & "'>" & STRING_Menu & "</a>"

response.write("<tr>")
if rsMenu("ParentID") = "0" Then
    response.write ("<td width='20%'>") & ("<font face='Arial' text='black' size='2'>") & STRING_Link & ("</td>")
else
    response.write ("<td width='20%'>") & ("<font face='Arial' text='black' size='2'>") & (" - ") & STRING_Link & ("</td>")
end if

response.write ("<td width='50'>") & rsMenu("headline") & ("</td>")
response.write ("<td width='10'>") & rsMenu("rank") & ("</td>")
response.write ("<td width='10'>") & rsMenu("parentID") & ("</td>")
response.write ("<td width='10'>") & rsMenu("show") & ("</td>")
response.write("</tr>")

rsMenu.movenext

response.write("<tr>")
if rsMenu("ParentID") = "0" Then
    response.write ("<td width='20%'>") & ("<font face='Arial' text='black' size='2'>") & STRING_Link & ("</td>")
else
    response.write ("<td width='20%'>") & ("<font face='Arial' text='black' size='2'>") & (" - ") & STRING_Link & ("</td>")
end if

response.write ("<td width='50'>") & rsMenu("headline") & ("</td>")
response.write ("<td width='10'>") & rsMenu("rank") & ("</td>")
response.write ("<td width='10'>") & rsMenu("parentID") & ("</td>")
response.write ("<td width='10'>") & rsMenu("show") & ("</td>")
response.write("</tr>")

rsMenu.movenext
loop


OG... hvis jeg nu gerne vil have at rsMemu, bliver sorteret alt efter deres RANK... hvordan får jeg så det ind i min SQL sætning???

KODE:
-----------------------------------------------------------------
Dim ADO_Connection
Dim rsMenu
Dim SQL_STRING

set ADO_Connection = server.Createobject("ADODB.Connection")
ADO_Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")

set rsMenu = server.Createobject("ADODB.Recordset")
SQL_String = "Select * from menu"
rsMenu.open SQL_String, ADO_Connection
Avatar billede eagleeye Praktikant
08. september 2004 - 09:46 #1
2. med en ORDER BY rank og så enten DESC eller ASC. DESC for højst rank først

SQL_String = "Select * from menu order by rank desc"
Avatar billede thomas_yde Nybegynder
08. september 2004 - 09:50 #2
hvis du befinder dig på sidste post i din rsMenu så vil den fejle da du flytter dig 2 positioner i din kode, dvs du går ud over antal records.

du skal istedet for lave noget inde i dit loop der finder ud af om det er hvid eller grå's tur til at blive udskrevet.

noget alla:
Et stylesheet med
.WhiteCells{color:#FFFFFF}
.GreyCells{color:#999999}
Dim even, className
even = true

Do until rsMenu.EOF
If Even Then
  Even = false
  className = WhiteCells
Else
  Even = true
  className = GreyCells
End If

Response.Write("<td class='"&className&"'>en tekst</td>")
rsMenu.Movenext
loop
Avatar billede thomas_yde Nybegynder
08. september 2004 - 09:51 #3
rettelse:
Et stylesheet med
.WhiteCells{color:#FFFFFF}
.GreyCells{color:#999999}


Dim even, className
even = true

Do until rsMenu.EOF
If Even Then
  Even = false
  className = "WhiteCells"
Else
  Even = true
  className = "GreyCells"
End If

Response.Write("<td class='"&className&"'>en tekst</td>")
rsMenu.Movenext
loop
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 09:54 #4
Jeg har ikke arbejdet med stylesheets før, hvordan får jeg sådan en fætter rigtigt ind???
Avatar billede glen5000 Nybegynder
08. september 2004 - 09:56 #5
Jeg tror problemet med første spørgsmål er at hvis der er et ulige antal poster i databasen, så vil der komme en fejl, for den tjekker kun hver anden gang om den er nået slutningen af databasen.

Men du vil kunne lave det sådan her i stedet for

counter = 0
Do until rsMenu.EOF

if counter = 1 then
color = "gray"
counter = 0
else
color = "white"
counter = 1
end if

STRING_Menu = rsMenu("name")
STRING_Link = "<a href='indhold.asp?id=" & rsMenu("Id") & "'>" & STRING_Menu & "</a>"

response.write("<tr bgcolor='"& color &"'>")
if rsMenu("ParentID") = "0" Then
    response.write ("<td width='20%'>") & ("<font face='Arial' text='black' size='2'>") & STRING_Link & ("</td>")
else
    response.write ("<td width='20%'>") & ("<font face='Arial' text='black' size='2'>") & (" - ") & STRING_Link & ("</td>")
end if

response.write ("<td width='50'>") & rsMenu("headline") & ("</td>")
response.write ("<td width='10'>") & rsMenu("rank") & ("</td>")
response.write ("<td width='10'>") & rsMenu("parentID") & ("</td>")
response.write ("<td width='10'>") & rsMenu("show") & ("</td>")
response.write("</tr>")

rsMenu.movenext
loop

/Glen
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 10:07 #6
thomas yde:
Hvordan får jeg lavet sådan en Stylesheet????
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 10:19 #7
Der er altså ikke noget af det der virker... men browser bliver bare ved med at kører!!!
Avatar billede eagleeye Praktikant
08. september 2004 - 10:29 #8
hvordan ser din kode ud nu?
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 10:30 #9
Jeg har fundet ud af hvorfor den blev ved med at kører... men det der med den stylesheet er jeg godt nok ikke helt med på hvordan jeg får startet på!
Avatar billede eagleeye Praktikant
08. september 2004 - 10:40 #10
du kan i føste omkring lave det i HTLM koden:

<style>
.navn_1 {background-color : #909090; }
.navn_2 {background-color : #454545; }
</style>
Avatar billede thomas_yde Nybegynder
08. september 2004 - 10:48 #11
vi kan bare lige skrive lidt om.

Response.Write("<style>")
Respone.Write(".WhiteCells{color:#FFFFFF}")
Respone.Write(".GreyCells{color:#999999}")
Response.Write("</style>")

Dim even, className
even = true

Do until rsMenu.EOF
If Even Then
  Even = false
  className = "WhiteCells"
Else
  Even = true
  className = "GreyCells"
End If

response.write("<tr class="&className&">")
if rsMenu("ParentID") = "0" Then
    response.write ("<td width='20%'>") & ("<font face='Arial' text='black' size='2'>") & STRING_Link & ("</td>")
else
    response.write ("<td width='20%'>") & ("<font face='Arial' text='black' size='2'>") & (" - ") & STRING_Link & ("</td>")
end if

response.write ("<td width='50'>") & rsMenu("headline") & ("</td>")
response.write ("<td width='10'>") & rsMenu("rank") & ("</td>")
response.write ("<td width='10'>") & rsMenu("parentID") & ("</td>")
response.write ("<td width='10'>") & rsMenu("show") & ("</td>")
response.write("</tr>")

rsMenu.Movenext
loop
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 11:06 #12
Der sker ikke rigtigt noget:
--------------------------------------------------------------
<style>
.WhiteCells{color:#FFFFFF}
.GreyCells{color:#999999}
    </style>

<%
Dim even, className
even = true

Do until rsMenu.EOF
If Even Then
  Even = false
  className = "WhiteCells"
Else
  Even = true
  className = "GreyCells"
End If

STRING_Menu = rsMenu("name")
STRING_Link = "<a href='indhold.asp?id=" & rsMenu("Id") & "'>" & STRING_Menu & "</a>"

    response.write("<tr class='&className&'>")
    if rsMenu("ParentID") = "0" Then
        response.write ("<td width='20%'>") & ("<font face='Arial' text='grey' size='2'>") & STRING_Link & ("</td>")
    else
        response.write ("<td width='20%'>") & ("<font face='Arial' text='grey' size='2'>") & (" - ") & STRING_Link & ("</td>")
    end if
    response.write ("<td width='50'>") & ("<font face='Arial' text='grey' size='2'>") & rsMenu("headline") & ("</td>")
    response.write ("<td width='10' align='center'>") & ("<font face='Arial' text='grey' size='2'>") & rsMenu("rank") & ("</td>")
    response.write ("<td width='10' align='center'>") & ("<font face='Arial' text='grey' size='2'>") & rsMenu("parentID") & ("</td>")
    response.write ("<td width='10' align='center'>") & ("<font face='Arial' text='grey' size='2'>") & rsMenu("show") & ("</td>")
    response.write("</tr>")
    rsMenu.Movenext
loop%>
Avatar billede eagleeye Praktikant
08. september 2004 - 11:09 #13
Det hedder background-color ikke kun color
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 11:11 #14
Ikke noget!
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 11:11 #15
Det hele er hvidt endnu!
Avatar billede thomas_yde Nybegynder
08. september 2004 - 11:16 #16
min fejl, er 100% stresset.

eagleeye har ret som altid, det hedder nemlig background-color .
Color alene er kun skriften...min brøler-
Avatar billede eagleeye Praktikant
08. september 2004 - 11:16 #17
Hvis du tager view source skifter den så WhiteCells og GreyCells i <tr> ?
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 11:17 #18
du kan se siden her: http://www.frip.dk/dominoconsult/menu_edit.asp
Avatar billede thomas_yde Nybegynder
08. september 2004 - 11:17 #19
hvor blev mine " af?
Response.Write("<style>")
Respone.Write(".WhiteCells{background-color:#FFFFFF}")
Respone.Write(".GreyCells{background-color:#999999}")
Response.Write("</style>")

Dim even, className
even = true

Do until rsMenu.EOF
If Even Then
  Even = false
  className = "WhiteCells"
Else
  Even = true
  className = "GreyCells"
End If

response.write("<tr class='"&className&"'>")
if rsMenu("ParentID") = "0" Then
    response.write ("<td width='20%'>") & ("<font face='Arial' text='black' size='2'>") & STRING_Link & ("</td>")
else
    response.write ("<td width='20%'>") & ("<font face='Arial' text='black' size='2'>") & (" - ") & STRING_Link & ("</td>")
end if

response.write ("<td width='50'>") & rsMenu("headline") & ("</td>")
response.write ("<td width='10'>") & rsMenu("rank") & ("</td>")
response.write ("<td width='10'>") & rsMenu("parentID") & ("</td>")
response.write ("<td width='10'>") & rsMenu("show") & ("</td>")
response.write("</tr>")

rsMenu.Movenext
loop
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 11:21 #20
Takker Thomas og Eagleeye!
Avatar billede thomas_yde Nybegynder
08. september 2004 - 11:23 #21
det var så lidt, undskyld jeg var lidt rodet, sidder lige med lidt for mange ting omkring mig nu.
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 11:25 #22
Kan jeg smide det i en CSS sheet?
Avatar billede thomas_yde Nybegynder
08. september 2004 - 11:26 #23
ja
Avatar billede eagleeye Praktikant
08. september 2004 - 11:30 #24
Ja det kan du godt, du skal bare huske at havde et link til style sheetet så det bliver includret sådan her i mellem <head> og </head>
<LINK href="mystyle.css" rel="stylesheet" type="text/css">

Men ellers kan du se en masse omkring det her:
http://www.w3.org/TR/REC-html40/present/styles.html
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 11:34 #25
Hvis jeg nu skriver i min style.css:
WhiteCells {color:#FFFFFF}
GreyCells {color:#66CCFF}

Og laver linket:
<head>
<meta http-equiv="Content-Language" content="da">
<style fprolloverstyle>A:hover {color: #FF0000; font-family: Arial; font-size: 10 pt}
</style>
<LINK href="style.css" rel="stylesheet" type="text/css">
</head>

Så skulle den være ok ik?
Avatar billede thomas_yde Nybegynder
08. september 2004 - 11:35 #26
husk det skal være background-color :)
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 11:37 #27
Har jeg gjordt... virker bare ikke... se selv:
http://www.frip.dk/dominoconsult/menu_edit.asp
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 11:39 #28
Sådan her ser min "style.css" ud:
WhiteCells {background-color:#FFFFFF}
GreyCells {background-color:#66CCFF}
Avatar billede eagleeye Praktikant
08. september 2004 - 11:48 #29
Prøv med . og typsik skriver man det sådan her:

.WhiteCells {
  background-color:#FFFFFF
}
.GreyCells {
  background-color:#66CCFF
}
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 11:54 #30
Ok.... en PRIK fik det til at virke.... takker!
Thomas smider du ikke lige et svar osse???
Avatar billede thomas_yde Nybegynder
08. september 2004 - 11:59 #31
jo
Avatar billede -l_jogge_l- Nybegynder
08. september 2004 - 12:12 #32
Hm... kan ikke få almindelig text til at virke med stylesheets!
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
I går 17:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
I går 17:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
05/0810:19 Kan jeg beholde Publisher på min maskine efter at MS stopper med support Af KurtG i Office & Kontorpakker
02/0814:53 TV4ever 3.0 Af valby i Diverse
01/0816:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
White papers
Flere white papers »