---
title: "Gör länk"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14292-gör-länk"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2002-02-08T15:59:00.000Z"
updated: "2002-02-08T16:32:00.000Z"
replies: 2
views: 216
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/14292-gör-länk"
---

# Gör länk

## #1 — Asa, 2002-02-08T15:59Z

Jag har problem med denna function:

\<%Function link(Fixa)
  str= Fixa
    middas1 = instr(Fixa,"\[link\]")
    middas2 = middas1 + 6
  Fixa = Mid(Fixa,middas2)
    middas1 = instr(Fixa, "\[/link\]")
    middas2 = middas1 - 1
  Fixa = Left(Fixa, middas2)
Url = Replace(Fixa, "http://", "")
  str = Replace(str, "\[link\]","\<a href=""")
  str = Replace(str, "\[/link\]", chr(34) & "\>\<b\>Kolla deras hemsida.\</b\>\</a\>" )
  link = trim(str)
End Function%\>

När jag ska skriva ut den och har en länk funkar allt bra men om inte inlägget innehåller nån länk blir det detta fel:

Körningsfel i Microsoft VBScript fel '800a0005' 

Ogiltigt proceduranrop eller argument.: 'Left' 

/Web/fixa.asp, rad 24

Och det är denna rad: 

Fixa = Left(Fixa, middas2)

Jag skriver ut inläggen på sidan med denna:

\<%Fixa = Link(Server.HTMLEncode(RecSet("info")))%\>
\<!--#Include file="fixa.asp"--\>
\<%Response.Write Fixa%\>

Inludefilen är själva replacegrejen och functionen.

Hoppas på hjälp - är det nåt mer som behövs för att ni ska förstå??

/Åsa Gruvsjö

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

## #2 — LarsG, 2002-02-08T16:11Z

```
<%
Function link(Fixa)
str= Fixa
middas1 = instr(Fixa,"[link]")
if  middas1 = 0 then
    link = fixa
    exit function
end if
middas2 = middas1 + 6
Fixa = Mid(Fixa,middas2)
middas1 = instr(Fixa, "[/link]")
if  middas1 = 0 then
    link = fixa
    exit function
end if
middas2 = middas1 - 1
Fixa = Left(Fixa, middas2)
Url = Replace(Fixa, "http://", "")
str = Replace(str, "[link]","<a href=""")
str = Replace(str, "[/link]", chr(34) & "><b>Kolla deras hemsida.</b></a>" )
link = trim(str)
End Function%>
```

Det finns ett färdigt skript med mer funktionalitet för detta
 <http://script.webforum.nu/wf/Forum1/HTML/000093.html>

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

## #3 — Asa, 2002-02-08T16:32Z

Tackar så mycket för det :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14292-gör-länk