---
title: "lägga till text i variabel"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14076-lägga-till-text-i-variabel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "i"
published: "2002-01-28T16:53:00.000Z"
updated: "2002-01-29T17:12:00.000Z"
replies: 16
views: 375
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/14076-lägga-till-text-i-variabel"
---

# lägga till text i variabel

## #1 — i, 2002-01-28T16:53Z

Hej!

Sitter och pular lite med ett script där man lägger till en URL till en databas via ett formulär. Nu skulle jag vilja fixa så att om man glömmer skriva "http://" i textboxen så lägger scriptet till det. Om man inte glömt det så gör scriptet inget åt det.

Jag vet att jag skulle kunna sätta "http://" som value i textboxen men jag vill helst undvika detta... 

Finns det någon som har en lösning till detta problem?

mvh,
i

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

## #2 — PatrikB, 2002-01-28T16:56Z

```
strVariabel = Request.Form("hemsida")
If LCase(Left(strVariabel,7)) <> "http://" then strVariabel = "http://" & strVariabel
```

borde funka ...

cya,
PatrikB

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

## #3 — LarsG, 2002-01-28T16:56Z

```
URL = request.form("url")
if lcase(left(url,7)) <> "http://" then
   url = "htttp://" & url
end if
```

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

## #4 — i, 2002-01-28T20:32Z

underbart!

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

## #5 — i, 2002-01-28T20:43Z

...men alldeles för kort ;)
Jag får det nämligen inte att funka :o

Så här ser koden ut:

```
%
Session.LCID = 1053
Dim strVariabel

strVariabel = Request.Form("hemsida")
If LCase(Left(strVariabel,7)) <> "http://" then strVariabel = "http://" & strVariabel
End If

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("guestbook/db/db1.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

%>

<%
Addera = "SELECT * FROM Guestbook"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

		RecSet("gNamn") = Request.Form("namn")
		RecSet("gEpost") = Request.Form("epost")
		RecSet("gHemsida") = strVariabel
		RecSet("gDatum") = Request.Form("datum")
		RecSet("gAmne") = Request.Form("amne")
		RecSet("gMeddelande") = Request.Form("meddelande")

RecSet.Update
	RecSet.Close

Connect.Close
	Set RecSet = nothing
	Set Connect = nothing

Response.Redirect "gbook.asp"
%>
```

vad är felet? :)

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

## #6 — Rinaldo, 2002-01-28T20:46Z

Vad funkar inte? Att sätta in det i databasen eller att lägga till http/låta det va?

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

## #7 — i, 2002-01-28T21:16Z

Lägga till http:// funkar inte... det blir fortfarande bara [www.blabla.com](http://www.blabla.com)

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

## #8 — i, 2002-01-28T21:17Z

Lägga till http:// funkar inte... det blir fortfarande bara [www.blabla.com](http://www.blabla.com)

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

## #9 — i, 2002-01-28T21:19Z

Lägga till http:// funkar inte... det blir fortfarande bara [www.blabla.com](http://www.blabla.com)

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

## #10 — i, 2002-01-28T21:21Z

Lägga till http:// funkar inte... det blir fortfarande bara [www.blabla.com](http://www.blabla.com)

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

## #11 — i, 2002-01-28T21:23Z

oj... lägga till fyra svar var inte direkt meningen :r

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

## #12 — @nders, 2002-01-28T21:27Z

Vad har du för if-sats som hör ihop med den end if du har högt uppe i den kod du postade?

Kan det vara så att vi aldrig kommer in i den if-satsen?

Mvh,

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

## #13 — i, 2002-01-29T15:07Z

hmm... vilken if-sats menar du? är det den här (PatrikBs):

```
If LCase(Left(strVariabel,7)) <> "http://" then strVariabel = "http://" & strVariabel
End If
```

mvh,
i

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

## #14 — Erik Juhlin, 2002-01-29T15:10Z

PatrikBs kod är korrekt. Det är du som lagt till End If vilket är fel.

Skulle det funka så kanske det beror på nån läskig On Error Resume Next...

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

## #15 — i, 2002-01-29T15:33Z

ok... så jag ska lägga end if i slutet av all kod, efter att jag lagt till informationen i databasen?

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

## #16 — Erik Juhlin, 2002-01-29T15:38Z

Var är den påbörjande If:en?
Du visar ju bara en viss del av koden...

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

## #17 — i, 2002-01-29T17:12Z

det där är alla kod... men jag tror jag fick det att fungera nu! tack för all hjälp! :D

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14076-lägga-till-text-i-variabel