kan ikke få tekst til at blive rød
Hej jeg har denne kode hvor jeg har nogle fejl beskeder med i linket.men når den så henter fejlbeskeden så er den kun sort og ikke rød.
Dette er mine link:
cmsdefault.asp?cmspage=login&error=Desværrer denne konto er blevet lukket, du har mulighed for at kontakte en administrator, klik i linket kontakt.")
Dette er det sted hvor fejlen vises og farves rød:
Response.Write("<font color='#FF3300'>"&Request.Querystring("error")&"</font><br>")
Hvad er fejlen !?
Min kode er:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="include/easytags.asp"-->
<html>
<%
Dim cmspage
cmspage = Request.QueryString("cmspage")
Response.Buffer = True
Session.LCID = 1030
If Session("clubstatus") = "inaktiv" Then
Response.Redirect("cmsdefault.asp?cmspage=login&error=Desværrer denne konto er inaktiv, du har ikke klikket på aktiverings linket i den mail som er blevet sendt til dig.")
ElseIf Session("clubstatus") = "lukket" Then
Response.Redirect("cmsdefault.asp?cmspage=login&error=Desværrer denne konto er blevet lukket, du har mulighed for at kontakte en administrator, klik i linket kontakt.")
Else
%>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>
<meta http-equiv='content-language' content='dan' />
<link rel='stylesheet' type='text/css' href='include/style.css' title='style' />
<title>BillundFodbold CMS Ver. 0.1.15</title>
</head>
<body>
<div class='Main_Frame'>
<table width='750px' border='0px' cellpadding='0px' cellspacing='0px'>
<tr>
<td><img src='images/banner.gif' width='750px' height='239px' alt='banner'></td>
</tr>
<tr>
<td>
<div class='Menu_Frame'><br style="font-size: 5px">
<img src='images/home.gif' width='160px' height='30px' alt='home'><%=Space(7)%>
<img src='images/cmslogin.gif' width='160px' height='30px' alt='home'><%=Space(7)%>
<img src='images/info.gif' width='160px' height='30px' alt='home'><%=Space(7)%>
<img src='images/contack.gif' width='160px' height='30px' alt='home'>
</div>
</td>
</tr>
<tr>
<td>
<%
If cmspage = "" Then
writeEmptyPage()
ElseIf cmspage = "login" Then
writeLoginPage()
End If
%>
</td>
</tr>
</table>
</div>
</body>
</html>
<%
Sub writeEmptyPage()
Response.Write("test")
End Sub
Sub writeLoginPage()
If Request.Querystring("error") = "" Then
Response.Write("")
Else
Response.Write("<font color='#FF3300'>"&Request.Querystring("error")&"</font><br>")
End If
Response.Write("login")
End Sub
%>
<%End If%>
