---
title: "vad för fel?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/63425-vad-för-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jwradhe"
published: "2002-12-30T14:54:55.000Z"
updated: "2002-12-30T22:45:29.000Z"
replies: 7
views: 162
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/63425-vad-för-fel"
---

# vad för fel?

## #1 — jwradhe, 2002-12-30T14:54Z

```
<%Function FixaLankar(s)
On error resume next
Set objRE = new RegExp 
objRE.IgnoreCase = True : objRE.Global = True 
objRE.Pattern = "(http:\/\/|www\.)(\w|\&|\:|\;|\.|\/|\?|\~|\=|-)+"
Set m = objRE.Execute(s) 
For Each o In m 
If Right(o.Value, 1)="." Or Right(o.Value, 1)="!" Or Right(o.Value, 1)="?" Or Right(o.Value, 1)="," Then 
If Left(o.Value, 3) = "www" Then s = Replace(s, o.Value, "<A HREF=""http://" & Left(o.Value, Len(o.Value)-1) & """ target=""_blank"">" & Left(o.Value, Len(o.Value)-1) & "</A>" & Right(o.Value, 1)) Else s = Replace(s, o.Value, "<A HREF=""" & Left(o.Value, Len(o.Value)-1) & """>" & Left(o.Value, Len(o.Value)-1) & "</A>" & Right(o.Value, 1)) 
Else 
If Left(o.Value, 3) = "www" Then s = Replace(s, o.Value, "<A HREF=""http://" & o.Value & """ target=""_blank"">" & o.Value & "</A>") Else s = Replace(s, o.Value, "<A HREF=""" & o.Value & """ target=""_blank"">" & o.Value & "</A>") 
End If 
Next 
Set objRE = Nothing 

strText = RecSet("inlagg")
strText = Server.HTMLEncode(strText)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "&lt;"
strText = objRegExp.Replace(strText,"<font color=""#ff0000"">&lt;")
objRegExp.Pattern = "&gt;"
strText = objRegExp.Replace(strText,"&gt;</font>")

	' Tillåten HTML kod
s    = Replace(s,"[f]","<b>")
s    = Replace(s,"[/f]","</b>")
s    = Replace(s,"[k]","<i>")
s    = Replace(s,"[/k]","</i>")
s    = Replace(s,"[KOD]","<font color=#FF0000>")
s    = Replace(s,"
```

","\</font\>")
s    = Replace(s,"&lt;%","&lt;%")
s    = Replace(s,"%&gt;","%&gt;")
s    = Replace(s, vbCrLf, "\<br\>") 
s    = Replace(s,"","")

FixaLankar = s 

End Function%\>

Permalänk: https://www.webforum.nu/p/63425

## #2 — LarsG, 2002-12-30T14:57Z

> Vad för fel?

 

Hur skall vi kunna veta det. Berätta mer.

Permalänk: https://www.webforum.nu/p/896246

## #3 — jwradhe, 2002-12-30T15:01Z

det händer inte. eller jo länk saken funkar som den ska.

men nr jag skriver 
\<%
adasd
%\>

så blir det bara vit.

alltså det hnder inget.

Permalänk: https://www.webforum.nu/p/896249

## #4 — Viktor, 2002-12-30T15:07Z

Kör du sidan genom IIS? Vad skriver du inte för adress i din browser när du tittar på sidan?
Om du inte kör den genom IIS så bryr den sig inte om att det är ASP, den hoppar över all ASP kod.

/Viktor

Permalänk: https://www.webforum.nu/p/896254

## #5 — jwradhe, 2002-12-30T15:11Z

jag har den på ett webbhotell....

Permalänk: https://www.webforum.nu/p/896258

## #6 — solbulle, 2002-12-30T15:20Z

> **jwradhe skrev:**
>
> ...\<%
> adasd
> %\>...

?

Vad hade du tänkt ska hända?  :l

Permalänk: https://www.webforum.nu/p/896263

## #7 — jwradhe, 2002-12-30T22:43Z

den ska skriva 
\<%
adsdas
%\>

i röd färg då

Permalänk: https://www.webforum.nu/p/899533

## #8 — jwradhe, 2002-12-30T22:45Z

\+ att jag vill att \<% ska synas.    skriver man det nu hnder inget.

jag vill att om man skriver 
\<%
asp
%\> 

så ska den visa 

\<%
asp
%\>

i röd färg.

detta skal jag använda till ett kurs script.

Permalänk: https://www.webforum.nu/p/899535

---

Tråden på webben: https://www.webforum.nu/amne/asp/63425-vad-för-fel