Decimalt till hexadecimalt...

hex
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfcthex.asp

då är det bara att se till att man skaffar ett javascript som inte tillåter ett värde större än 255 då

eller så kan man ju använda:

IF Request.Form("varde") > 255 Then
Response.Write "du får inte ange ett större decimalt värde än 255.

Har gjort den nu: http://chemical-x.dns2go.com/useful/rgb2hex.asp

Koden ser ut så här:

<html>

<head>

<title>[cHeMiCaL-X]'s superb rgb to hex converter</title>
</head>

<body>
<%
If Request.QueryString("red") > 255then
  Response.write "You cannot enter a value greater then 255!"
  End IF
  If Request.QueryString("red") > 255then
  Response.write "You cannot enter a value greater then 255!"
  End IF
  If Request.QueryString("red") > 255then
  Response.write "You cannot enter a value greater then 255!"

Else
End If

Dim redvalue, greenvalue, bluevalue
Dim red, green, blue
Dim hexcode

redvalue = Request.QueryString("red")
greenvalue = Request.QueryString("green")
bluevalue = Request.QueryString("blue")

red = Hex(cInt(redvalue))   ' Returns the hex for the red value.
green = Hex(cInt(greenvalue))   ' Returns the hex for the green value.
blue = Hex(cInt(bluevalue))   ' Returns the hex for the blue value.
hexcode = red + green + blue
%>

<form method="Get" action="rgb2hex.asp">
 
  Red: 
  <input type="text" name="red" size="20"><br>
  Green:
  <input type="text" name="green" size="20"><br>
  Blue:
  <input type="text" name="blue" size="20"><br>
  <br>
  <input type="submit" value="Convert!"><input type="reset" value="Reset"></p>
</form>

<% If Request.QueryString("red") = "" AND Request.QueryString("green") = "" AND Request.QueryString("blue") = "" Then
Response.Write "Enter your RGB Values"
Else
Response.Write hexcode   
End IF
%>

</body>

</html>

Skulle vilja ha lite tips på kod som kan förbättra scriptet.

If Request.QueryString("red") > 255 then
Response.write "You cannot enter a value greater then 255!"
End IF
If Request.QueryString("green") > 255 then
Response.write "You cannot enter a value greater then 255!"
End IF
If Request.QueryString("blue") > 255 then
Response.write "You cannot enter a value greater then 255!"

Jag tänkte att man kanske kunde göra så här: Om man skriver in ett värde som är större än 255 så på ett eller variabler så ska den inte skriva ut någon hex kod eller något decimalt tal. utan bara säga att du har skrivit in ett värde som är högre än 255 på färgen: färg.

och att den bara tar dom 3 första siffrorna.. vill inte ha komplett kod utan bara ha kod på hur man tar ut dom 3 första siffrorna
annars lär man sig inget.

parse error near så på ett eller variabler Vad menar du?

3 första siffrorna

cint(left(variabel,3))

Jo precis så.

Skalade ner koden lite grann och nu ser den ut så här:

<head>

<title>[cHeMiCaL-X]'s superb rgb to hex converter</title>
</head>

<body>
<%

Dim redvalue, greenvalue, bluevalue
Dim red, green, blue
Dim hexcode
If Request.QueryString("red") = "" Then
redvalue = 0
else
redvalue = Request.QueryString("red")
End IF

If Request.QueryString("green") = "" Then
greenvalue = 0
else
greenvalue = Request.QueryString("green")
End IF

If Request.QueryString("blue") = "" Then
bluevalue = 0
else
bluevalue = Request.QueryString("blue")
End If

red = Hex(cInt(left(redvalue,3))) ' returns the hex for the red value
green = Hex(cInt(left(greenvalue,3))) ' returns the hex for the red value
blue = Hex(cInt(left(bluevalue,3))) ' returns the hex for the red value
hexcode = red + green + blue
%>

<form method="Get" action="rgb2hex.asp">
 
  Red: 
  <input type="text" name="red" size="20"><br>
  Green:
  <input type="text" name="green" size="20"><br>
  Blue:
  <input type="text" name="blue" size="20"><br>
  <br>
  <input type="submit" value="Convert!"><input type="reset" value="Reset"></p>
</form>

<% If Request.QueryString("red") = "" AND Request.QueryString("green") = "" AND Request.QueryString("blue") = "" Then
Response.Write "<font face='verdana' size='1'><b>Enter your RGB Values</b></font>"
Else
Response.Write "<font face='verdana' size='1'> Theese RGB values (" & cInt(left(redvalue,3)) & " & " & cInt(left(greenvalue,3)) & " & " & cInt(left(bluevalue,3)) & ") makes the hexcode: " &  hexcode & " wich results in this color:</font><br><br><br><br>"
Response.Write " <table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='200' height='200' id='AutoNumber1'>"
Response.Write "<tr>"
Response.Write "<td width='200' bgcolor='#" & hexcode & "' height='200'>&nbsp;</td>"
Response.Write "</tr></table>"

End IF
%>

</body>

</html>