Farve en linie

<%
strLinje = "*denne linie skal være blå"
  If Left(strLinje,1) = "*" Then
    Response.Write("<td bgcolor=""blue"">" & strLinje & "</td>")
  Else
    Response.Write("<td>" & strLinje & "</td>")
End If
%>

//>Rune

Så kan du jo så fjerne det tegn igen når du udskriver den... Det gør du sådan her:

<%
strLinje = "*denne linie skal være blå"
  If Left(strLinje,1) = "*" Then
  lngLength = Len(strLinje) -1
  strLinje = Right(strLinje,lngLength)
    Response.Write("<td bgcolor=""blue"">" & strLinje & "</td>")
  Else
    Response.Write("<td>" & strLinje & "</td>")
End If
%>

//>Rune

hej medions

jeg kan ikke få det til at funke rigtig, her er mit script:

SQL = "Select * From script Where id = "&idet&""
set rs = Connect.Execute (SQL)

temp = rs("indhold")

temp2 = Replace(temp, ">", "&gt;")

temp3 = Replace(temp2, "<", "&lt;")

temp4 = Replace(temp3, "&gt;", "<font color='#0033FF'>&gt;</font>")

temp5 = Replace(temp4, "&lt;", "<font color='#0033FF'>&lt;</font>")

temp6 = Replace(temp5, "%", "<font color='#FF0000'>%</font>")


StrScript = Replace(temp6,chr(13),"<br>")

'response.write StrScript


strLinje = StrScript

    If Left(strLinje,1) = "'" Then
    Response.Write("BLÅ - " & strLinje & " - BLÅ")
    Else
    Response.Write("<td>" & strLinje & "</td>")
    End If
%>


Teksten den skriver ud er :

<%
dim u_file,g_file

' Get the address of the reffering page
u_file = request.servervariables("http_referer")

' If there is no referring page then redirect to My.Yahoo.com
if u_file = "" then
response.redirect "http://my.yahoo.com"
response.end
end if

' If there is a referring page then check where it cam from

' Split the referring url by /
' a typical address will split like this
' g_file(0)=http:
' g_file(1)=
' g_file(2)=www.codeave.com or codeave.com
' g_file(3)=Any further subdirectories off the root directory in the request
g_file=split(u_file,"/")

' Compare the host name to the host of the referring page
if (trim(g_file(2) <> request.servervariables("http_host"))) then
response.write g_file(2)
response.redirect "http://www.yahoo.com"
response.end
else %>


Men den går altid i Else sætningen
Response.Write("<td>" & strLinje & "</td>")

det er som om den ikke kan se hvor linien ender.

kunne man lave et eller andet med at fra første ' og til næste chr(13)
skal linien være blå ???

det virker nu:

<%
response.buffer = true
set connect = server.createobject("ADODB.Connection")
Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("script.mdb")

idet ="1"

SQL = "Select * From script Where id = "&idet&""
set rs = Connect.Execute (SQL)

temp = rs("indhold")

temp = Replace(temp, ">", "&gt;")

temp = Replace(temp, "<", "&lt;")

temp = Replace(temp, "&gt;", "<font color=#0033FF>&gt;</font>")

temp = Replace(temp, "&lt;", "<font color=#0033FF>&lt;</font>")

temp = Replace(temp, "%", "<font color=#FF0000>%</font>")


temp = Replace(temp,chr(13),"<br>")

temp = Replace(temp,"'","<font color='red'>'")

StrScript = Replace(temp,"<br>","</font><br>")

response.write StrScript
%>


Håber at det er ok vi deler point, jeg brugte ikke din løsning men vil gerne give dig point for at prøve at hjælpe mig.

Fair nok ;o)
Thx 4 Poinz

//>Rune