---
title: "problem med en function."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14071-problem-med-en-function"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mikul"
published: "2002-01-03T20:40:00.000Z"
updated: "2002-01-29T15:01:00.000Z"
replies: 7
views: 259
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/14071-problem-med-en-function"
---

# problem med en function.

## #1 — mikul, 2002-01-03T20:40Z

det var en kille som frågade hur man gör så som det är på wf, asså man kan skriva ex: \[k\]www.sida.com\[/k\]
blir det \<a href="sidan.com"\>www.sidan.com\</a\>
hoppas ni fattar...
då mitt hövve är rätt segt i dag kom jag fram till denna lösning:

```
<%

function link(strL,str)
	middas1 = instr(strL,"[link]")
	middas2 = middas1 + 5
	strL = Mid(strL,middas2)
	middas1 = instr(strL, "[/link]")
	middas2 = middas1 - 1
	strL = Left(strL, middas2)
	link = """>"& strL & "</a>"
	
	
	str = Replace(str, "[link]","<a href=""")
	str = Replace(str, "[/link]", link)
	link = trim(str)
end function

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("texter.mdb")
sql = "update texter Set titel = '"& request.form("titel") &"', [text] = '"&request.form("text")&"' "
db.execute sql
 
Response.write "<h3>Utfört!</h3>"
Response.write "<a href=""javascript:history.go(-1)"">Tillbaka</a><p>"

SQL = "SELECT * FROM texter" 
Set RS = db.Execute(SQL) 

Response.write "<font face=""arial"" size=""1"">"
Response.write RS("titel") &"<p>"

response.write link(RS("text")) & "<p>"
Response.write "</font>"

rs.close : set rs = Nothing
db.close : Set db = Nothing
%>
```

kunde inte komma på nåt annat sätt...
fast det funkar inte...
varför??
han får felmedelandet:

Körningsfel i Microsoft VBScript fel '800a01c2' 

Fel antal argument eller felaktig egenskapstilldelning.: 'link' 
/gammalt/andratext.asp, rad 34 

nån som har en susning???

/ Mikul

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

## #2 — mikul, 2002-01-03T20:48Z

nån som ser nåt fel i funktionen??

/ Mikul

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

## #3 — mikul, 2002-01-03T22:04Z

larsg, vide, Pace, NÅN som kan???
jag blir snart galen...(så ni vet)...

/ Mikul

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

## #4 — Brimba, 2002-01-03T22:45Z

Skulle inte detta fungera?

```
Function urlConvert(cTxt)
	Dim objRegExp
	Set objRegExp = New RegExp

	objRegExp.IgnoreCase = True
	objRegExp.Global = True

	objRegExp.Pattern = "\[url=(.*?)\](.*?)\[\/url\]"
	cStrim = objRegExp.Replace(cStrim,"<a href=""$1"" target=""_blank"">$2</a>") 

	Set objRegExp = Nothing
End Function

Om du kör exempelvis:

response.write urlConvert("denna text [ URL=http://www.mypage.com]sidan[/ URL]")

så resulterar det i

denna text <a href="http://www.mypage.com">sidan</a>
```

Det var det du ville kanske?

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

## #5 — mikul, 2002-01-03T22:49Z

jo tack så mycket....
men finns det inte nåt annat sätt att göra det på?

typ nåt som liknar mitt sätt...
för jag kan inte det där med regexp...
jag vill gärna veta vad jag pysslar med.. ;- )

finns det nåt ställe där man kan läsa om det?
helst svenska....

/ Mikul

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

## #6 — peppar, 2002-01-03T23:23Z

Så här kanske...?

```
<%
function link(strL)
str= strL
middas1 = instr(strL,"[link]")
middas2 = middas1 + 6
strL = Mid(strL,middas2)
middas1 = instr(strL, "[/link]")
middas2 = middas1 - 1
strL = Left(strL, middas2)
Url = Replace(strL, "http://", "")

str = Replace(str, "[link]","<a href=""")
str = Replace(str, "[/link]", chr(34) & ">" & Url &"</a>"  )
link1 = trim(str)
Response.Write(link1)
end function %>

<% strL="Byta länk: Så här [link]http://www.webforum.nu[/link]. Kanske funkar ???" %>
<% response.write link(strL)  %>
```

//alltid p\*

\[Redigerat av peppar den 04 jan 2002\]

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

## #7 — mikul, 2002-01-04T13:50Z

tack så mycket...
 att inte jag kunde komma på det då...
att sånna småsaker ställer till det... 
tack så mycket ännu en gång...

/ Mikul

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

## #8 — CoreX, 2002-01-29T15:01Z

Om jag tar koden längst ner så funkar det. Men... skriver man 2 olika länkar så blir det 2 olika länkar fast namnet på länken blir det samma som på den första länken man skriver!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14071-problem-med-en-function