<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=mysql69.synestesi.se; uid=syneste_se@s3253; pwd=ne6vrqwytxo6e66b; database=synestesi_se; option=3; port=3306;" SQL ="SELECT * FROM synestesi_fargaren" set rs = Conn.Execute(SQL) 'SQL2 ="SELECT user_id, username FROM phpbb_users WHERE user_id=" & session("user") 'set rs2 = Conn.Execute(SQL2) %>

Andra medlemmarnas färger

Här visas alla färglagda teckenuppsättningar som hittills är gjorda av medlemmar på Synestesi.se. När vissa rutor är tomma betyder det att medlemmen inte har angett någon färg för den bokstaven. När rutorna har grå bakgrund beror det på att den valda färgen på tecknet är så ljus att utan grå bakgrund hade man nästan inte sett den.

<% dim lista dim x dim clean_char do while not rs.eof %> <%=rs("username")%>

<% x=0 lista=Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","å","ä","ö","0","1","2","3","4","5","6","7","8","9") for each g in lista if x=13 then response.Write("") x=0 end if if g="å" then clean_char="aa" else if g="ä" then clean_char="ae" else if g="ö" then clean_char="oe" else clean_char=g end if end if end if if rs(clean_char + "_col")="0" then alfacol="#FFFFFF" foregroundcol="#FFFFFF" 'stilldefault="fargaren/img/stilldefault.gif" stilldefault="" else stilldefault="" alfacol=rs(clean_char + "_col") alfaredpart=CInt("&H" & Mid(alfacol,2,2)) alfagreenpart=CInt("&H" & Mid(alfacol,4,2)) alfabluepart=CInt("&H" & Mid(alfacol,6,2)) Y=(0.299*alfaredpart)+(0.587*alfagreenpart)+(0.114*alfabluepart) if Y> 226 then foregroundcol="#808080" else foregroundcol="#FFFFFF" end if end if response.write ("") x=x+1 next %>

") + Ucase(g) + ("

<% rs.MoveNext Loop %>

2006-10-23 18:04

Mer...

< Tillbaka till Färgväljaren

<% rs.Close Conn.close %>