---
title: "Min funktion vägrar att funka :("
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9832-min-funktion-vägrar-att-funka"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ricki"
published: "2001-06-01T20:46:00.000Z"
updated: "2001-06-02T09:54:00.000Z"
replies: 5
views: 283
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/9832-min-funktion-vägrar-att-funka"
---

# Min funktion vägrar att funka :(

## #1 — Ricki, 2001-06-01T20:46Z

Tjena,
Vad är det för fel på detta?

```
		Function ForumCode(input)

			input = CStr(Replace(input,"<","<"))
			input = CStr(Replace(input,">",">"))
			input = CStr(Replace(input,":)","<img src=""grafik/smily1.gif"">"))
			input = CStr(Replace(input,":(","<img src=""grafik/smily2.gif"">"))
			
			Dim URL_Start
				URL_Start = InStr(input, "[URL]") + 5
			
			Dim URL_Stop
				URL_Stop = InStr(input, "[/URL]")
				
			Dim Langd
				Langd = URL_Stop-URL_Start
				Langd = Int(Langd)
			
				'Response.Write Langd
			
			Dim Flopp
				Flopp = Mid(input, URL_Start, Langd)
			
			input = CStr(Replace(input,"[URL]","<a href="""))
			input = CStr(Replace(input,"[/URL]",""" target=""_blank"">" & Flopp & "</a>"))
			
			
			
			input = CStr(Replace(input, vbCrLf, "<br>"))
			
			ForumCode = input

		End Function
		%>
```

Jag får fel på Mid(...)

Snälla, hjälp mig!

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

## #2 — LarsG, 2001-06-01T21:04Z

Om texten  inte finns så blir langd negativt. Du borde nog lägga in en check för det.

```
Dim URL_Start
URL_Start = InStr(input, "[URL]") + 5

if URL_Start > 5 then
Dim URL_Stop
URL_Stop = InStr(input, "[/URL]")

Dim Langd
Langd = URL_Stop-URL_Start
Langd = Int(Langd)

'Response.Write Langd

Dim Flopp
Flopp = Mid(input, URL_Start, Langd)

input = CStr(Replace(input,"[URL]","<a href="""))
input = CStr(Replace(input,"[/URL]",""" target=""_blank"">" & Flopp & "</a>"))

end if
```

Vad får du för fel?

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

## #3 — Ricki, 2001-06-01T21:08Z

Tckar, det var som du sade, men det löste sig tack var dej, tack! :)

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

## #4 — PatrikB, 2001-06-01T23:20Z

Vad händer om man "glömmer" att skriva ????

cya,
PatrikB

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

## #5 — Ricki, 2001-06-02T06:11Z

Tjenare,
Det har jag faktiskt inte tänkt på, får prova det nu!

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

## #6 — Vide, 2001-06-02T09:54Z

Jag skulle rekommendera en regular expression i detta fallet... ett gyllene tillfälle...

Glömmer du  nu så kommer sidan inte innehålla korrekt html...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9832-min-funktion-vägrar-att-funka