Ændre tekstfarve
Inde på min side( www.friserverplads.dk/zer0byl/thomas/index.asp/ )
Har jeg et Poll system når man kommer ind er der hvor man stemmer normal link farve det skal ændres til hvid!
Der hvor spørgsmålene er (Når man har stemt)
Er teksten sort og det kan man ikke se fordi bagrunden er sort.!
Det skal ændres til hvid
jeg har denne her kode:
<% response.buffer = true %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title></head>
<body bgcolor="#000000">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="500" id="AutoNumber1" height="545">
<tr>
<td width="100%" height="103"><img border="0" src="../Logo.jpg" width="749" height="103"></td>
</tr>
<tr>
<td width="100%" bgcolor="#808080" height="12">
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<a href="../index.asp"><font color="#FFFFFF">
<applet code="fphover.class" codebase="../." width="80" height="20">
<param name="textcolor" value="#FFFFFF">
<param name="color" value="#808080">
<param name="hovercolor" value="#FF0000">
<param name="text" value="Nyheder">
<param name="url" valuetype="ref" value="index.asp">
<param name="effect" value="glow">
</applet><applet code="fphover.class" codebase="../." width="83" height="20">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
<param name="color" value="#808080">
<param name="hovercolor" value="#FF0000">
<param name="text" value="Information">
<param name="url" valuetype="ref" value="info.asp">
</applet></font></a></font><FONT
face="Verdana, Arial, Helvetica, sans-serif" size=2
link="#FFFFFF" color="#FFFFFF"> </font> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<a href="../index.asp"><font color="#FFFFFF">
<applet code="fphover.class" codebase="../." width="50" height="20">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
<param name="color" value="#808080">
<param name="hovercolor" value="#FF0000">
<param name="text" value="Spil">
<param name="url" valuetype="ref" value="Spil.asp">
</applet><applet code="fphover.class" codebase="../." width="60" height="20">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
<param name="color" value="#808080">
<param name="hovercolor" value="#FF0000">
<param name="text" value="Links">
<param name="url" valuetype="ref" value="Links.asp">
</applet><applet code="fphover.class" codebase="../." width="100" height="20">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
<param name="color" value="#808080">
<param name="hovercolor" value="#FF0000">
<param name="text" value="Counter-Strike">
<param name="url" valuetype="ref" value="CS.asp">
</applet><applet code="fphover.class" codebase="../." width="80" height="20">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
<param name="color" value="#808080">
<param name="hovercolor" value="#FF0000">
<param name="text" value="Tagwall">
<param name="url" valuetype="ref" value="Tagwall.asp">
</applet></font></a></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#000000" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" height="426">
<p align="left"> </p>
<p align="center"><b><font color="#FFFFFF" face="Verdana" size="4">
</font></b></p>
<table width="101%" border="0" height="359">
<tr>
<td height="27"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Nyheder</font></td>
<td height="27"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Afstemning</font></td>
</tr>
<tr>
<td> </td>
<td>
<p> <%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("poll.mdb")
sql = "SELECT TOP 1 * FROM polls ORDER BY id desc"
set res = myconn.execute(sql)
ja = res("1")
nej = res("2")
ialt = ja + nej
curid = res("id")
spm1 = res("q1")
spm2 = res("q2")
if ja = "0" AND nej = "0" then
japro = "0"
nejpro = "0"
else
japro = ja / ialt * 100
nejpro = nej / ialt * 100
end if
lid = request.querystring("id")
if request.cookies(" & curid & ")("voted") = "true" then
linkja = "<td colspan=""2"" width=""100%""><p style=""margin:2""><font size=""1"">" & res("q1") & "</font></p></td>"
linknej = "<td colspan=""2"" width=""100%""><p style=""margin:2""><font size=""1"">" & res("q2") & "</font></p></td>"
harstemt = "<br>Tak for din " & request.cookies(" & curid & ")("vote") & "-stemme."
else
linkja = "<td><p style=""margin:2""><font size=""1""><a href=""?mode=update&id="&curid&"&vote=1""><u>" & res("q1") & "</u></a></font></p></td>"
linknej = "<td><p style=""margin:2""><font size=""1""><a href=""?mode=update&id="&curid&"&vote=2""><u>" & res("q2") & "</u></a></font></p></td>"
harstemt = ""
end if
strmode = request.querystring("mode")
vote = request.querystring("vote")
curid = request.querystring("id")
select case strmode
case "update"
if vote = "1" then
stemmer = ja + 1
curid = request.querystring("id")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("poll.mdb")
SQLstmt = "UPDATE polls SET 1='" & stemmer & "' WHERE id=" & request.querystring("id") & ""
Conn.Execute (SQLstmt)
response.cookies(" & curid & ")("voted") = "true"
response.cookies(" & curid & ")("vote") = "1"
response.cookies(" & curid & ").expires = date+1
response.redirect("?mode=")
else
stemmer = nej + 1
curid = request.querystring("id")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("poll.mdb")
SQLstm = "UPDATE polls SET 2='" & stemmer & "' WHERE id=" & request.querystring("id") & ""
Conn.Execute (SQLstm)
response.cookies(" & curid & ")("voted") = "true"
response.cookies(" & curid & ")("vote") = "2"
response.cookies(" & curid & ").expires = date+1
Response.redirect("?mode=")
end if
conn.Close
Set conn = nothing
Set SQLstmt = nothing
case "arkiv"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("poll.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
sql = "SELECT * FROM polls ORDER BY id desc"
set rs = myconn.execute(sql)
%>
<table border="0" width="125" cellspacing="0">
<%
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
ja = rs("1")
nej = rs("2")
ialt = ja + nej
lid = rs("id")
if ja = "0" AND nej = "0" then
japro = "0"
nejpro = "0"
else
japro = ja / ialt * 100
nejpro = nej / ialt * 100
end if
%>
<tr><td width="100%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><b>Dato: <%=rs("dato")%></b></font></td></tr>
<tr><td width="100%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">><%=spm%></font></td></tr>
<tr><td width="100%"><table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><%=rs("q1")%></font></td></tr>
<tr><td><table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td width="<%=Round(japro, 0)%>" bgcolor="#FF9900"><img border="0" src="../tom.gif" width="<%=Round(japro, 0)%>" height="12"></td>
<td width="<%=Round(nejpro, 0)%>" bgcolor="#E5E5E5"><img border="0" src="../tom.gif" width="<%=Round(nejpro, 0)%>" height="12"></td></tr></table></td>
<td width="15" bgcolor="#E5E5E5"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"> <%=Round(japro, 0)%>%</font></td></tr></table></td></tr>
<tr><td width="100%"><table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><%=rs("q2")%></font></td></tr>
<tr><td><table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td width="<%=nejpro%>%" bgcolor="#FF9900"><img border="0" src="../tom.gif" width="<%=nejpro%>%" height="12"></td>
<td width="<%=japro%>%" bgcolor="#E5E5E5"><img border="0" src="../tom.gif" width="<%=japro%>%" height="12"></td></tr></table></td>
<td width="15" bgcolor="#E5E5E5"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"> <%=Round(nejpro, 0)%>%</font></td></tr></table></td></tr>
<tr><td width="100%"><p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><%=ialt%> har stemt!</font><img border="0" src="../tom.gif" width="5" height="2"></td></tr>
<tr><td width="100%"><img border="0" src="../tom.gif" width="5" height="5"></td></tr>
<%
rs.MoveNext
Loop
End If
%>
<tr><td width="100%" align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><a href="../poll.asp">Tilbage</a></font></td></tr>
</table>
<%
case "add"
if session("password") = "test" then
Session.LCID = 1030
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("poll.mdb")
Set rs = Conn.Execute("INSERT INTO Polls (1,2,dato,q1,q2) VALUES ('0','0','" & date() & "','" & request.form("q1") & "','" & request.form("q2") & "')")
Conn.Close
Set Conn = Nothing
response.redirect("poll.asp")
else
response.redirect("poll.asp?mode=login")
end if
Case "login"
if request.form("password") = "test" then
session("password") = "test"
response.redirect("poll.asp?mode=admin")
else
%>
<form action="../poll.asp?mode=login" method="post">
<table><tr><td><input type="password" name="password"><br><input type="submit" value="login"></td></tr></table>
</form>
<%
end if
case "logout"
session.abandon
response.redirect("poll.asp?mode=login")
Case "admin"
if session("password") = "test" then
%>
<form action="../poll.asp?mode=add" method="post">
<table><tr><td>Svar 1</td><td><input type="text" name="q1"></td></tr>
<tr><td>Svar 2</td><td><input type="text" name="q2"></td></tr>
<tr><td> </td><td><input type="Submit" value="Opret"></td></tr>
</table>
</form>
<%
else
response.redirect("poll.asp?mode=login")
end if
case else
%>
<table border="0" width="125" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr> <%=linkja%> </tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="<%=Round(japro, 0)%>" bgcolor="#FF0000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><img border="0" src="../tom.gif" width="<%=Round(japro, 0)%>" height="12"></font></td>
<td width="<%=Round(nejpro, 0)%>" bgcolor="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><img border="0" src="../tom.gif" width="<%=Round(nejpro, 0)%>" height="12"></font></td>
</tr>
</table>
</td>
<td width="15" bgcolor="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"> <%=Round(japro, 0)%>%</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr> <%=linknej%> </tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="<%=Round(nejpro, 0)%>" bgcolor="#FF0000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><img border="0" src="../tom.gif" width="<%=Round(nejpro, 0)%>" height="12"></font></td>
<td width="<%=Round(japro, 0)%>" bgcolor="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><img border="0" src="../tom.gif" width="<%=Round(japro, 0)%>" height="12"></font></td>
</tr>
</table>
</td>
<td width="15" bgcolor="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"> <%=Round(nejpro, 0)%>%</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><%=ialt%>
har stemt!</font>
</td>
</tr>
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF"></font>
</td>
</tr>
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF"></font>
</td>
</tr>
</table>
<% end select %></p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
</td>
</tr>
</table>
<p align="center"><b><font color="#FFFFFF" face="Verdana" size="4">
</font></b></p>
<p align="center"><font color="#FFFFFF" face="Verdana"><font size="2"><br>
</font>
</font></p>
<p align="center">
</p>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
