Gör länk

2 svar · 200 visningar · startad av Asa 8 feb. 2002

AsaMedlem sedan dec. 20011 860 inlägg

Frågan8 feb. 2002 15:59#1

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")))%>

<%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ö

LarsGMedlem sedan dec. 200012 464 inlägg

8 feb. 2002 16:11#2

<%
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

------------------
essentitia preter non sans multiplicandum

AsaMedlem sedan dec. 20011 860 inlägg

8 feb. 2002 16:32#3

Tackar så mycket för det :)