förlåt men glömde skriva det ser ut så här idag...
<%=Free(FixLink(rs("forklaring")))%>
<%if Free(FixLink(rs("forklaring"))) = 'n/a') Then
Response.Write "Anledningen till att det inte finns någon förklaring till detta bla bla bla"
end if%>
Syntax error
/paike/paikebans/default.asp, line 231, column 37
if Free(FixLink(rs("forklaring"))) = 'n/a') Then
Nä har även testat med...
<%If Rs("forklaring") = "n/a" then %>
<i>Om det inte finns någon förklaring till din ban
beror detta på att du är bannad av HLGuard / Scirpt
på servern eller att du bannades innan detta system infördes.</i>
<%Else%>
<%=Free(FixLink(rs("forklaring")))%>
<%End if%>
Funkar inte heller
Microsoft VBScript runtime (0x800A005E)
Invalid use of Null: 'Replace'
/paike/default/functions.inc, line 206
jag har skrivit in i databasen på hur många ställen som helst "n/a"
och när det står "n/a" vill jag det ska komma fram mer text...
<i>Om det inte finns någon förklaring till din ban
beror detta på att du är bannad av HLGuard / Scirpt
på servern eller att du bannades innan detta system infördes.</i>
fattar mig inte på detta kör jag med <%=Free(FixLink(rs("forklaring")))%>
så får jag ut från databasen "n/a" genom att det är inskriviet i fältet forklaring alltså helt rätt...
är forklaring i databasen "Du är bannad för att du inte kan betedig!" så kommer det fram...
Function FixLink(strText)
'strText = Server.HTMLEncode(strText)
strText = Replace(strText,VbCrLf,VbCrLf&" <br> ")
HyperArray = Split(strText)
For Each ord in HyperArray
if Len(ord) > 7 then
ord2 = ord
if Lcase(left(ord,7)) = "http://" then
strText2=strText2 & "<a href='"&ord&"' target=""_blank"">"&FixLen2(ord2,70)&"</a> "
elseif InStr(ord,"@")>1 then
strText2=strText2 & "<a href='mailto:"&ord&"'>"&FixLen2(ord2,70)&"</a> "
elseif Lcase(left(ord,4)) = "www." then
strText2=strText2 & "<a href='http://"&ord&"' target=""_blank"">"&FixLen2(ord2,70)&"</a> "
else
strText2=strText2&ord&" "
end if
else
strText2=strText2&ord&" "
end if
next
FixLink = strText2
End Function
Det är ju det du gör i funktionen, och det är därför du får ett felmeddelande. Lägg denna rad överst i funktionen så slipper du felmeddelandet i alla fall:
Jo sant då funka det ... MEN då skriver det inte ut förklaringen om det finns någon...
Detta funkar men förklaringen skrivs aldrig ut efter att jag laggt in din strText i min funktion..
<%If Rs("forklaring") = "n/a" then %>
<i>Om det inte finns någon förklaring till din ban
beror detta på att du är bannad av HLGuard / Scirpt
på servern eller att du bannades innan detta system infördes.</i>
<%Else%>
<%=Free(FixLink(rs("forklaring")))%>
<%End if%>
Här är hela coden till mitt stycke.. Den funka klockrent...
men inte när jag försöker med det översta...
<% sForklaring = "" & Rs("forklaring")
If sForklaring = "n/a" then %>
<i>Om det inte finns någon förklaring till din ban
beror detta på att du är bannad av HLGuard / Scirpt
på servern eller att du bannades innan detta system infördes.</i>
<%
Else
Response.write Free(FixLink(sForklaring))
End if
%>