Hej
Har problem med mid på den markerade raden längre ned och får felmeddelandet: Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'Mid'
Vilket jag tycker verkar konstigt efter mid är väl rätt?
Tacksam för hjälp
%
Function make_link(txt)
' Initiering i början
txt = Replace(server.HTMLEncode(txt),vbCrlf,"<br>")
sPos = inStr(lCase(txt),"http://") ' Hämtar positionen för första länken
' Fyll denna array med tecken som avslutar en länk << HÄR KAN DU ÄNDRA OM DU VILL >>
stoppa = Array(";",","," ","!","<",">")
Do While sPos <> 0 AND sPos < len(txt)
' Initiering av grejer i lopen
startLink = sPos ' Länkens startpos
tmpChar = "" ' Nollställ
tmpLink = "" ' Nollställ
stop_it = "FALSE"
' Plocka ut namnet på länken
Do Until sPos > len(txt)+1 OR stop_it = "TRUE"
tmpLink = tmpLink & tmpChar
tmpChar = Mid(txt,sPos,1)
endLink = sPos - 1
sPos = sPos + 1
For X = 0 To Ubound(stoppa) ' Kollar om tmpChar är ogiltig
If tmpChar = stoppa(X) Then stop_it = "TRUE"
Next
Loop
vanster = Left(txt,startLink-1) ' Texten till vänster om länken
hoger = Right(txt,len(txt)-endLink) ' Texten till höger om länken
' Sätt ihop den nya texten, med länk!
txt = vanster & "<a href='" & tmpLink & "' target = '_blank'>"_
& tmpLink & "</a>" & hoger
' Leta fram nästa länk
jumpTo = endLink + 33 + len(tmpLink)
sPos = inStr(jumpTo,lCase(txt),"http://")
Loop
' Tillåten HTML kod
txt = Replace(txt,"[c]","<font color='red'>")
txt = Replace(txt,"[/c]","</font>")
txt = Replace(txt,"[b]","<b>")
txt = Replace(txt,"[/b]","</b>")
txt = Replace(txt,"[i]","<i>")
txt = Replace(txt,"[/i]","</i>")
imgStart = instr(1, txt, "[bild]")
[B]imgName = mid(txt, imgStart, imgNameLen)[/B]
imgEnd = instr(1, txt, "[/bild]")
imgNameLen = imgEnd - imgStart
txt = Replace(txt, imgName, "")
imgName = trim(imgName)
txt = Replace(txt, "[bild]", "<img src='rättSökväg/" & imgName & "'>")
txt = Replace(txt, "[/bild]", "")
make_link = txt
End Function
%>