<%
if session("inloggad_fargaren")=false then
%>
Färgväljaren
För att logga in och börja skapa ditt alfabet
och siffror i färg måste du först vara medlem i diskussionsforumet.
Användarnamnet och lösenordet du anger där använder
du sedan för att komma in till Färgväljaren. Om du hellre
bara vill se vilka färger de andra medlemmarna har kan du välja
det i den blå menyn här till höger.
Färgväljaren
låter dig på ett relativt enkelt sätt ange vilka färger
"ditt" alfabet och siffror har.
<%
response.end
else
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 WHERE Forum_ID=" & session("user")
set rs = Conn.Execute(SQL)
'SQL2 ="SELECT user_id, username FROM phpbb_users WHERE user_id=" & session("user")
'set rs2 = Conn.Execute(SQL2)
old=rs("last_char")
if old="aa" then
clean_char1="å"
else
if old="ae" then
clean_char1="ä"
else
if old="oe" then
clean_char1="ö"
else
clean_char1=old
end if
end if
end if
%>
Färgväljaren för <%=rs("username")%> (Logga ut)
">
Klicka här för att visa dina färger på en egen sida som du kan länka till.
Adressen till den sidan är: http://synestesi.se/fargaren_member.asp?id=<%=rs("Forum_ID")%>
Du kan också ">exportera alfabetet och siffrorna till en jpg-bild eller HTML-kod så att du till exempel kan lägga in den i din signatur i forumet!
<%
dim lista
dim x
dim clean_char
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="#000000"
foregroundcol="#FFFFFF"
stilldefault="fargaren/img/stilldefault.gif"
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 ("| ") + Ucase(g) + (" | ")
x=x+1
next
%>
|
Klicka på tecknen ovan för att välja. Tecken med röd hörnmarkering är inte ändrade ännu. Om du vill att de ska vara svarta för dig, synestetiskt, var vänlig klicka på dem och välj svart igen, för statistikens skull.
Klicka eller dra med musen i nedanstående färgrutor för att ange färger.
Kom ihåg att spara färgen innan du går till nästa bokstav!
2009-02-04 22:48
<%
end if
rs.Close
'rs2.Close
Conn.close
%>
| 