---
title: "Problem med mid"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/129042-problem-med-mid"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Opelomega"
published: "2005-05-29T09:47:33.000Z"
updated: "2005-05-29T09:50:23.000Z"
replies: 1
views: 211
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/129042-problem-med-mid"
---

# Problem med mid

## #1 — Opelomega, 2005-05-29T09:47Z

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

%>
```

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

## #2 — @nders, 2005-05-29T09:50Z

*imgNameLen* har inget värde. Du ger ju inte den variabeln något värde förrän två rader ner.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/129042-problem-med-mid