Översätta lite javascript till asp?

Har lite javascript som jag tänkte översätta till asp.

<table border="0" bordercolor="#000000" cellpadding="0" cellspacing="1">
<tbody>
<tr>
<script language="JavaScript">
c = new Array();								
c[1] = "FF";				
c[2] = "CC";				
c[3] = "99";				
c[4] = "66";				
c[5] = "33";				
c[6] = "00";				
d = 0;								
for (i=1;i <=6;i++)
{					
if (i >1)
{					
document.write( "</tr>\n<tr>\n");					
}					
for (m=1;m <=6;m++)
{								
for (n=1;n <=6;n++)
{								
d++;							
colour = c[i] + c[m] + c[n];			 
document.write("<td bgcolor=\"#"+colour+"\" width=7 class=\"text\"><a href=\"#\" onClick=\"changeColor('"+colour+"')\"><img src=\"images/pixel.gif\" width=7 height=7 name=\"a"+d+"\" border=0></td>\n");
}					
}				
}	
</script>        
</tr>        
</tbody>       
</table>

Det är någon slags färgsnurra. Idéer?

Snabb omskrivning:

<table border="0" bordercolor="#000000" cellpadding="0" cellspacing="1">
<tbody>
<tr>
<%
c = Array("FF", "CC", "99", "66", "33", "00")
d = 0								

for i = 1 to 6
	if i > 1 then
		Response.write "</tr>" & vbCrLf & "<tr>" & vbCrLf
	end if
	for m = 1 to 6
		for n = 1 to 6
			d = d + 1
			colour = c(i) & c(m) & c(n)
			Response.Write "<td bgcolor=""#" & colour & """ width=7 class=""text""><a href=""#"" onClick=""changeColor('" & colour & "');""><img src=""images/pixel.gif"" width=7 height=7 name=""a" & d & """ border=0></td>" & vbCrLf
		next
	next
next
%>
</script>        
</tr>        
</tbody>       
</table>

red: nu specificerade du ju iofs inte vad du ville ha det i för språk, så jag antog att det var VBScript du ville ha det i. Det hade inte varit helt svårt att "översätta" till JScript, om man nu tycker det skulle vara sköj. ;)

mvh

Snabbare får man leta efter, tack @nders!
VbScript var det ja förståss.

Jag har inte testat koden, så du får gärna rapportera om det funkar enligt önskemål.

mvh,

Liten omskrivning: ;)

<script language=VBScript>
c = Array("FF", "CC", "99", "66", "33", "00")
d = 0
For i = 1 to 6
	If i > 1 Then
		Response.Write("</tr><tr>")
                End If
	For m = 1 to 6
		For n = 1 to 6
			d = d + 1
			colour = c(i) & c(m) & c(n)
			Response.Write("<td bgcolor='#" & colour & "' width=7 class='text'><a href='#' onClick='changeColor('" & colour & "')'><img src='images/pixel.gif' width=7 height=7 name='a" & d & "' border=0></td>")
		Next
	Next
Next
</script>

Javascriptet verkar ju dock vara bra mycket snabbare :)
Kanske svårt att jämföra visserligen.

<table border="0" bordercolor="#000000" cellpadding="0" cellspacing="1">
<tbody>
<tr>
<%
c = Array("FF", "CC", "99", "66", "33", "00")
d = 0								

for i = 0 to 5
	if i > 0 then
		Response.write "</tr>" & vbCrLf & "<tr>" & vbCrLf
	end if
	for m = 0 to 5
		for n = 0 to 5
			d = d + 1
			colour = c(i) & c(m) & c(n)
			Response.Write "<td bgcolor=""#" & colour & """ width=7 class=""text""><a href=""#"" onClick=""changeColor('" & colour & "');""><img src=""images/pixel.gif"" width=7 height=7 name=""a" & d & """ border=0></td>" & vbCrLf
		next
	next
next
%>
</tr>        
</tbody>       
</table>

(Jag ändrade alla for till: "for bjaj=0 to 5")

Ja eftersom att javascript körs på klientsidan och asp körs på servern och sedan skickas till klienten så är det ju lite svårt att jämföra.
Har man dock en supersnabb sever och en supersnabb lina så kan man ju komma lite närmare, men det kommer nog aldrig upp i samma hastighet.

/ Mikul