Palette i ASP vha Tables
Jeg har problemmer at få højresiden til at fade rigtig mod Hvid... se efter 'hjælp med denne ligning<%
Dim Coolness, Tal
Tal = 150
FOR Coolness = 0 to Tal step 1
%>
<%
Dim intRed, intGreen, intBlue, strColor
if (coolness <= int(Tal/6)) then 'TAL<50
intRed = int((coolness / int(Tal/6)) * 255)
intGreen = 255
intBlue = 0
elseif (coolness > int(Tal/6)) and (coolness <= int(Tal/3)) then '50<Tal<100
intRed = 255
intGreen = int(((int(Tal/3) - coolness) / int(Tal/6)) * 255)
intBlue = 0
elseif (coolness > int(Tal/3)) and (coolness <= int(Tal/2)) then '100<Tal<150
intRed = 255
intGreen = 0
intBlue = int(255*((coolness - int(Tal/3))/(int(Tal/2)-int(Tal/3))))
elseif (coolness > int(Tal/2)) and (coolness <= int(Tal/1.5)) then '150<Tal<200
intRed = 255 - int(255*((coolness - int(Tal/2))/(int(Tal/1.5)-int(Tal/2))))
intGreen = 0
intBlue = 255
elseif (coolness > int(Tal/1.5)) and (coolness <= int(Tal/1.2)) then '200<Tal<250
intRed = 0
intGreen = int(255*((coolness - int(Tal/1.5))/(int(Tal/1.2)-int(Tal/1.5))))
intBlue = 255
else '250<Tal<300
intRed = 0
intGreen = 255
intBlue = 255 - int(255*((coolness - int(Tal/1.2))/(int(Tal)-int(Tal/1.2))))
end if
%>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<%
Dim Nuance, Tal2, Tal3, Gubbi
Tal2 = 150
For Nuance = 0 to Tal2 step 1
Tal3 = int(Tal2 / 2)
Gubbi = Nuance - (Tal2/2)
if (Nuance < Tal2/2) then
intRedNuance = int(Nuance/Tal2 * intRed *2)
intGreenNuance = int(Nuance/Tal2 * intGreen *2)
intBlueNuance = int(Nuance/Tal2 * intBlue *2)
elseif (Nuance > Tal2/2) then
intRedNuance = int((Nuance - Tal3)/Tal2 * (intRed)) 'Hjælp med denne ligning
intGreenNuance = int((Nuance - Tal3)/Tal2 * (intGreen)) 'hjælp med denne ligning
intBlueNuance = int((Nuance - Tal3)/Tal2 * (intBlue)) 'hjælp med denn ligning
end if
strColor = "rgb(" & intRedNuance & "," & intGreenNuance & "," & intBlueNuance & ")"
Response.Write("<td><table style='background-color:" & strColor & "' border=""0"" cellpadding=""0"" cellspacing=""0"" width=""2"" height=""2""><tr><td align=""center""></td></tr></table></td>")
Next
%>
</tr>
</table>
<%
Next
%>
