---
title: "Funktion som gör länk till -->info"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/70450-funktion-som-gör-länk-till-info"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "McD"
published: "2003-03-08T12:00:27.000Z"
updated: "2003-03-08T13:47:29.000Z"
replies: 9
views: 251
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/70450-funktion-som-gör-länk-till-info"
---

# Funktion som gör länk till -->info

## #1 — McD, 2003-03-08T12:00Z

Tjena 

Är ruskigt dåligt på mycket men funktioner är jag totalt sämst på  :P 

Skulle behöva en funktion som känner av när man pastat in en länk och gör om den till ["info"](http://www.webforum.nu)

Det ska alltid stå info oavsett vad man pastar för länk...

fältet i databasen jag har heter "atex" där detta ska funka på...

Tacksam för hjälp.

\<%info(meckainfo(rs("atex")))%\>  kan väll i slutänden bli något så här va??? :q  :q

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

## #2 — Peeer, 2003-03-08T12:13Z

Som vanligt helt otestad kod!

```
Function info(strText)
Set objRegExp = New regexp 
objRegExp.Global = true 
objRegExp.IgnoreCase = true 
objRegExp.Pattern="(^|[^\w/>])\s(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)" 
strText=objRegExp.Replace(strText,"$1<a href=""http://$2""  target=""_blank"">info</a>$3")
info = strText
End function
```

\<%info(meckainfo(rs("atex")))%\>

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

## #3 — McD, 2003-03-08T12:28Z

Peeer Tack!

kan ju säga me facit i hand det där hade jag inte klara själv :P

Men tyvärr så visar den inget som finns i databasen när jag meckar in funktionen... Inget felmeddelande visas.

Tar jag bort \<%info(meckainfo(rs("atex")))%\> så visas atex igen.

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

## #4 — Peeer, 2003-03-08T12:50Z

oj.. så här ska du nog anropa den (tror jag bestämt)
\<%=info(rs("atex"))%\>

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

## #5 — McD, 2003-03-08T12:54Z

mm det blev bättre, dock så blir det inte en länk av det och inte heller info.

Men det är ju possitvit ändå nu syns texten :) urk va kass man e på detta, svårt kan inte ge dig mer information så du kan lösa problemet .....

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

## #6 — solbulle, 2003-03-08T12:58Z

Körde du:

\<%=info(rs("atex"))%\>

Eller tog du med din andra funktion också? Kanske "krockar" dom?

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

## #7 — McD, 2003-03-08T13:01Z

yepp... bra svar :P

Nej tog bara med det du pasta in nu!

Då visas bara länken (ej klickbara) och alla tabeller bara blir fel, ingen text info visas över hvuud taget :(

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

## #8 — Peeer, 2003-03-08T13:19Z

Ok, då fyller vi väl på med lite mer kod. Fungerar den här bättre?

```
Function info(strText)
Set objRegExp = New regexp 
objRegExp.Global = true 
objRegExp.IgnoreCase = true 

objRegExp.Pattern="(^|[^""])\s([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:|file://|[url]telnet://[/url]|[url]gopher://[/url])([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)" 
strText=objRegExp.Replace(strText,"$1<a href=""$2$3"">info</a>$4") 

objRegExp.Pattern="(^|[^\w/>])\s(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)" 
strText=objRegExp.Replace(strText,"$1<a href=""http://$2""  target=""_blank"">info</a>$3")
info = strText
End function
```

\<%=info(rs("atex"))%\>

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

## #9 — McD, 2003-03-08T13:22Z

Fy fagerlund Peer det där var helt underbart! Funkar strålande!!

Tack så hemskt mycket!

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

## #10 — Peeer, 2003-03-08T13:47Z

Så lite så!
(Båda patterns har jag hittat här på wF, sen var det bara att mixtra lite)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/70450-funktion-som-gör-länk-till-info