<% bTransparent = False If (Len("") = 3) Then hexRed = Left("",1) hexRed = hexRed & hexRed hexGreen = Mid("",2,1) hexGreen = hexGreen & hexGreen hexBlue = Right("",1) hexBlue = hexBlue & hexBlue ElseIf (Len("") = 6) Then hexRed = Left("",2) hexGreen = Mid("",3,2) hexBlue = Right("",2) Else hexRed = "FF" hexGreen = "FF" hexBlue = "FF" bTransparent = True End If lngRed = CLng("&H" & hexRed) lngGreen = CLng("&H" & hexGreen) lngBlue = CLng("&H" & hexBlue) cssOpacity = Hex(100 * 2.55) cssOpacity = CStr(cssOpacity) If (Len(cssOpacity) < 2) Then cssOpacity = "0" & cssOpacity End If If (bTransparent = False) Then strBackground = "background:rgba(" & lngRed & ", " & lngGreen & ", " & lngBlue & ", " & 100 / 100 & "); filter:progid:DXImageTransform.Microsoft.gradient(startColorstr=#" & cssOpacity & hexRed & hexGreen & hexBlue & ", endColorstr=#" & cssOpacity & hexRed & hexGreen & hexBlue & "); -ms-filter:'progid:DXImageTransform.Microsoft.gradient(startColorstr=#" & cssOpacity & hexRed & hexGreen & hexBlue & ", endColorstr=#" & cssOpacity & hexRed & hexGreen & hexBlue & ")'; " Else strBackground = "background:rgba(" & lngRed & ", " & lngGreen & ", " & lngBlue & ", 0); filter:progid:DXImageTransform.Microsoft.gradient(startColorstr=#00" & hexRed & hexGreen & hexBlue & ", endColorstr=#00" & hexRed & hexGreen & hexBlue & "); -ms-filter:'progid:DXImageTransform.Microsoft.gradient(startColorstr=#00" & hexRed & hexGreen & hexBlue & ", endColorstr=#00" & hexRed & hexGreen & hexBlue & ")'; " End If %>
PAN D52                                                        LEDOS III                                                          PASO II
= False If (Len("") = 3) Then hexRed = Left("",1) hexRed = hexRed & hexRed hexGreen = Mid("",2,1) hexGreen = hexGreen & hexGreen hexBlue = Right("",1) hexBlue = hexBlue & hexBlue ElseIf (Len("") = 6) Then hexRed = Left("",2) hexGreen = Mid("",3,2) hexBlue = Right("",2) Else hexRed = "FF" hexGreen = "FF" hexBlue = "FF" bTransparent = True End If lngRed = CLng("&H" & hexRed) lngGreen = CLng("&H" & hexGreen) lngBlue = CLng("&H" & hexBlue) cssOpacity = Hex(100 * 2.55) cssOpacity = CStr(cssOpacity) If (Len(cssOpacity) < 2) Then cssOpacity = "0" & cssOpacity End If If (bTransparent = False) Then strBackground = "background:rgba(" & lngRed & ", " & lngGreen & ", " & lngBlue & ", " & 100 / 100 & "); filter:progid:DXImageTransform.Microsoft.gradient(startColorstr=#" & cssOpacity & hexRed & hexGreen & hexBlue & ", endColorstr=#" & cssOpacity & hexRed & hexGreen & hexBlue & "); -ms-filter:'progid:DXImageTransform.Microsoft.gradient(startColorstr=#" & cssOpacity & hexRed & hexGreen & hexBlue & ", endColorstr=#" & cssOpacity & hexRed & hexGreen & hexBlue & ")'; " Else strBackground = "background:rgba(" & lngRed & ", " & lngGreen & ", " & lngBlue & ", 0); filter:progid:DXImageTransform.Microsoft.gradient(startColorstr=#00" & hexRed & hexGreen & hexBlue & ", endColorstr=#00" & hexRed & hexGreen & hexBlue & "); -ms-filter:'progid:DXImageTransform.Microsoft.gradient(startColorstr=#00" & hexRed & hexGreen & hexBlue & ", endColorstr=#00" & hexRed & hexGreen & hexBlue & ")'; " End If %>
PAN D52                                                        LEDOS III                                                          PASO II