BgColor

9 svar · 288 visningar · startad av Ivar 24 mars 2003

IvarMedlem sedan aug. 2002218 inlägg

Frågan24 mars 2003 22:02#1

[Hej!
Kan någon se felet i den här koden?

Dim color1
color1= "#FFCC00"
if senaste("markerad") = "Ja" then
Response.Write "<tr bgcolor="&color1&">"
End If
if NOT LCase(senaste("fileName")) = "" then
Response.Write "<tr bgcolor=""" & color & """><td width='4%'><img src=""bilder/" & senaste("fileName") & """ height='12' width='12' >"
else
Response.Write "<tr bgcolor=""" & color & """><td width='4%'>"
end if
response.write "<td width='26%'><a href=""detail.asp?item=" & senaste("id") & """>" & senaste("item") & "</a>"
response.write "<td width='24%'> "
Response.write eval(senaste("category"))
response.write "<td width='22%' >" & senaste("datecreated") & ""
response.write "<td width='13%'>" & senaste("stad") & ""
response.write "<td width='11%'>" & senaste("price") & " Kr </td></tr> "
senaste.MoveNext
Loop
End If
MVH/ Ivar]

PeeerMedlem sedan mars 20025 907 inlägg

24 mars 2003 22:08#2

Vad är det som inte funkar? Felmeddelande?

Jesper TMedlem sedan nov. 20017 144 inlägg

24 mars 2003 22:12#3

Ett fel är att den inte har [ kod]- taggar och att du inte har beskrivit felet närmare. Ex. med en felkod.
Kan gissa att ca 2% av webforums medlemmar är villig att titta igenom denna kod utan felbeskrivnig.
Men visst, det finns dem som orkar. ;)
Beskriv felet så skall det nog ordna sig.

LarsGMedlem sedan dec. 200012 464 inlägg

24 mars 2003 22:17#4

Lägg inte Dim inuti en loop.

IvarMedlem sedan aug. 2002218 inlägg

24 mars 2003 22:20#5

Hej!
Ingen fel meddelande, men det borde visa gul bakgrund på <tr>en.

LarsGMedlem sedan dec. 200012 464 inlägg

24 mars 2003 22:22#6

Skall det vara color eller color1? Du använder båda.

IvarMedlem sedan aug. 2002218 inlägg

24 mars 2003 22:27#7

[
Hej!
Om jag tar bort 'Dim bgcolor1
bgcolor1= "#FFCC00"
Det blir samma sak
Response.Write "<tr bgcolor="&color&">"
/]

Jesper TMedlem sedan nov. 20017 144 inlägg

24 mars 2003 22:34#8

Nu tycker jag att begreppen blandas ihop lite.
Nu har du tre olika variabler: color, color1, bgcolor
Är samtliga till samma sak? I sådana fall får du bestämma dig för ett namn.
Kod-taggarna skrivs(utan _ ): [_kod] Kod kommer här [_/kod]

IvarMedlem sedan aug. 2002218 inlägg

25 mars 2003 19:25#9

Hej!
Här är lösningen i så fall någon behöver.
MVH / Ivo

Dim sCode, sColor
sCode = "dmvlmv[bg=#FFFF99]sdvsd"

Dim objRegExp, m
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True
objRegExp.Pattern = "\[bg\=[^\]]*\]"
Set m = objRegExp.Execute(sCode)
Set objRegExp = Nothing
If m.Count Then
sColor = Mid(m.Item(0), 5, Len(m.Item(0)) - 5)	
End If
Set m = Nothing

if senaste("markerad") = "Ja" then
Response.Write "<td width='4%'><tr bgcolor=""" & sColor & """"
else
Response.Write "<tr bgcolor=""" & color & """><td width='4%'>"
 end if

if not Trim(senaste("fileName")) = "" then 
Response.Write "<tr bgcolor=""" & color & """><td width='4%'><img src=""bilder/" & senaste("fileName") & """ height='12' width='12' >"
else
Response.Write "<tr bgcolor=""" & color & """><td width='4%'>"
End if

response.write "<td width='26%'><font size='1'><a href=""detail.asp?item=" & senaste("id") & """>" & senaste("item") & "</a>"

response.write "<td width='24%'><font size='1'> "
Response.write eval(senaste("category"))
response.write "<td width='22%' ><font size='1'>" & senaste("datecreated") & ""
response.write "<td width='13%'><font size='1'>" & senaste("stad") & ""
response.write "<td width='11%'><font size='1' color=#FF0000></font>" & senaste("price") & " Kr </font></td></tr> "

senaste.MoveNext

solbulleMedlem sedan mars 20015 287 inlägg

25 mars 2003 21:44#10

Nu blir jag lite nyfiken... när du kör den där koden "live" vad innehåller då egentligen variabeln sCode för något? En htmlkod eller?