---
title: "svårt att ändra bakgrundsfärger i scriptet"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/103440-svårt-att-ändra-bakgrundsfärger-i-scriptet"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "timedia"
published: "2004-05-12T14:42:00.000Z"
updated: "2004-05-13T16:59:03.000Z"
replies: 15
views: 250
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/103440-svårt-att-ändra-bakgrundsfärger-i-scriptet"
---
# svårt att ändra bakgrundsfärger i scriptet
## #1 — timedia, 2004-05-12T14:42Z
Efter varje stad ska första raden ha bakgrundsfärg. Nästa rad ingen o.s.v. Har sökt och fått många träffar på 'varannan', men kan inte riktigt se hur jag ska gå tillväga? Någon som kan visa?
```
<% Set RS = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * from Foretag WHERE Konferans <>'' ORDER BY Stad "
pk = ""
RS.Open Visa, Connect
Do While Not rs.EOF
if pk <> rs("stad") then
pk = rs("stad")
response.write "| | " & pk & " | | | |
"
end if
response.write "| | "&RS("Fnamn")&"
"&RS("Gata")&"
"&RS("Tel")&"
| "&RS("Spec")&" | "&RS("Arr")&" | "&RS("Ovrigt")&" |
| | Öppettider: |
"
rs.Movenext
Loop
RS.Close: Set rs = nothing
Connect.Close
%>
```
Permalänk: https://www.webforum.nu/p/103440
## #2 — timedia, 2004-05-12T17:11Z
Följdfråga
I nedanstående försöker jag visa en bild på en bokstav(a.gif, b.gif, c.gif osv) Varför får jag *Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.*
```
<% Set RS = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM Artister ORDER BY Grupp "
RS.Open Visa, Connect
pk = ""
Do While Not rs.EOF
if pk <> left(RS("grupp"), 1) then
pk = left(RS("grupp"), 1)
response.write "| | ![](bilder/" & pk & ".gif) | | |
"
end if
response.write "| | "&RS("Grupp")&" | "&RS("Info")&" | "&RS("Ovrigt")&" |
"
rs.Movenext
Loop
RS.Close: Set rs = nothing
Connect.close
%>
```
Permalänk: https://www.webforum.nu/p/1345077
## #3 — timedia, 2004-05-13T14:25Z
Ingen som vet?
Permalänk: https://www.webforum.nu/p/1345561
## #4 — yohpops, 2004-05-13T14:33Z
Re: svårt att ändra bakgrundsfärger i scriptet
> **timedia skrev:**
>
> Efter varje stad ska första raden ha bakgrundsfärg. Nästa rad ingen o.s.v. Har sökt och fått många träffar på 'varannan', men kan inte riktigt se hur jag ska gå tillväga? Någon som kan visa?
>
> ```
> <% Set RS = Server.CreateObject("ADODB.Recordset")
> Visa = "SELECT * from Foretag WHERE Konferans <>'' ORDER BY Stad "
>
> pk = ""
> RS.Open Visa, Connect
> Do While Not rs.EOF
> if pk <> rs("stad") then
> pk = rs("stad")
> response.write "| | " & pk & " | | | |
"
> end if
> response.write "| | "&RS("Fnamn")&"
"&RS("Gata")&"
"&RS("Tel")&"
| "&RS("Spec")&" | "&RS("Arr")&" | "&RS("Ovrigt")&" |
| | Öppettider: |
"
> rs.Movenext
> Loop
> RS.Close: Set rs = nothing
> Connect.Close
> %>
> ```
```
<% Set RS = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * from Foretag WHERE Konferans <>'' ORDER BY Stad "
pk = ""
cnt = 0
RS.Open Visa, Connect
Do While Not rs.EOF
if pk <> rs("stad") then
pk = rs("stad")
cnt=0
response.write "| | " & pk & " | | | |
"
end if
if cnt = 0 then
response.write "| | "&RS("Fnamn")&"
"&RS("Gata")&"
"&RS("Tel")&"
| "&RS("Spec")&" | "&RS("Arr")&" | "&RS("Ovrigt")&" |
| | Öppettider: |
"
else
response.write "| | "&RS("Fnamn")&"
"&RS("Gata")&"
"&RS("Tel")&"
| "&RS("Spec")&" | "&RS("Arr")&" | "&RS("Ovrigt")&" |
| | Öppettider: |
"
end if
cnt = cnt +1
rs.Movenext
Loop
RS.Close: Set rs = nothing
Connect.Close
%>
```
Såhär kanske.
Permalänk: https://www.webforum.nu/p/1345565
## #5 — yohpops, 2004-05-13T14:34Z
Re: Följdfråga
> **timedia skrev:**
>
> I nedanstående försöker jag visa en bild på en bokstav(a.gif, b.gif, c.gif osv) Varför får jag *Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.*
>
> ```
> <% Set RS = Server.CreateObject("ADODB.Recordset")
> Visa = "SELECT * FROM Artister ORDER BY Grupp "
>
> RS.Open Visa, Connect
> pk = ""
> Do While Not rs.EOF
> if pk <> left(RS("grupp"), 1) then
> pk = left(RS("grupp"), 1)
> response.write "| | | | |
"
> end if
> response.write "| | "&RS("Grupp")&" | "&RS("Info")&" | "&RS("Ovrigt")&" |
"
> rs.Movenext
> Loop
> RS.Close: Set rs = nothing
> Connect.close
> %>
> ```
SKulle kunna vara här left(RS("grupp"), 1) om grupp är null
Permalänk: https://www.webforum.nu/p/1345566
## #6 — timedia, 2004-05-13T14:41Z
Jättebra Yohpops! :) Bakgrundsfärgerna funkar nu, men jag förstår inte ditt senaste inlägg? Menar du att jag får fel om jag inte har nån grupp som börjar på en viss bokstav?
Permalänk: https://www.webforum.nu/p/1345571
## #7 — yohpops, 2004-05-13T14:43Z
Nej men om värde i rs("grupp") är tomt så kan man inte hämta första bokstaven i värdet.
Du borde kunna se vilken rad felet uppstår på.
Permalänk: https://www.webforum.nu/p/1345572
## #8 — timedia, 2004-05-13T14:47Z
Felet uppstår på rad 140 vilket är: RS.Open Visa, Connect
Har ett antal grupper som ligger i kolumnen 'grupp'
Permalänk: https://www.webforum.nu/p/1345575
## #9 — yohpops, 2004-05-13T14:50Z
Alltså var det inte det jag trodde.
Skapar du Connect på samma sätt i båda frågorna?
Permalänk: https://www.webforum.nu/p/1345576
## #10 — timedia, 2004-05-13T14:51Z
Ja, det är 2 olika sidor - och kan inte riktigt se att det skulle krocka?
Permalänk: https://www.webforum.nu/p/1345577
## #11 — yohpops, 2004-05-13T14:53Z
De krockar nog inte men de verkar som att den ena funkar och den andra inte.
Visa koden som skapar dem.
Permalänk: https://www.webforum.nu/p/1345579
## #12 — timedia, 2004-05-13T14:56Z
Denna funkar:
```
<% Set RS = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * from Foretag WHERE Konferans <>'' ORDER BY Stad "
pk = ""
cnt = 0
RS.Open Visa, Connect
Do While Not rs.EOF
if pk <> rs("stad") then
pk = rs("stad")
cnt=0
response.write "| | " & pk & " | | | |
"
end if
if cnt = 0 then
response.write "| | "&RS("Fnamn")&"
"&RS("Gata")&"
"&RS("Tel")&"
| "&RS("Spec")&" | "&RS("Arr")&" | "&RS("Ovrigt")&" |
| Öppettider: |
"
else
response.write "| | "&RS("Fnamn")&"
"&RS("Gata")&"
"&RS("Tel")&"
| "&RS("Spec")&" | "&RS("Arr")&" | "&RS("Ovrigt")&" |
| Öppettider: |
"
end if
cnt = cnt +1
rs.Movenext
Loop
RS.Close: Set rs = nothing
Connect.Close
%>
```
Denna funkar INTE:
```
<%
Set RS = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM Artister ORDER BY Grupp "
RS.Open Visa, Connect
pk = ""
Do While Not rs.EOF
if pk <> left(RS("grupp"), 1) then
pk = left(RS("grupp"), 1)
response.write "| | | | |
"
end if
response.write "| | "&RS("Grupp")&" | "&RS("Info")&" | "&RS("Ovrigt")&" |
"
rs.Movenext
Loop
RS.Close: Set rs = nothing
Connect.close
%>
```
Båda använder denna connect:
```
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("..\sys\mindb.mdb") %>
```
Permalänk: https://www.webforum.nu/p/1345583
## #13 — yohpops, 2004-05-13T15:22Z
Prova att sätta en cursor också.
RS.Open Visa, Connect, Cursor
Permalänk: https://www.webforum.nu/p/1345591
## #14 — timedia, 2004-05-13T16:29Z
Ingen skillnad på felmeddelandet när jag försöker med olika cursors..
Permalänk: https://www.webforum.nu/p/1345639
## #15 — yohpops, 2004-05-13T16:41Z
Det borde inte vara den raden. Prova att ta bort valda delar i koden för att se om det kan fungera.
Ex. kan du ta bort allt inom loopen utom rs.movenext så ser du om det är något annat som är fel.
Permalänk: https://www.webforum.nu/p/1345654
## #16 — timedia, 2004-05-13T16:59Z
Jag borde skjutas! :x
Connection hade försvunnit nånstans på vägen....
Nu funkar det!
Stort tack till Yohpops!
Permalänk: https://www.webforum.nu/p/1345675
---
Tråden på webben: https://www.webforum.nu/amne/asp/103440-svårt-att-ändra-bakgrundsfärger-i-scriptet