lägga till text i variabel

16 svar · 343 visningar · startad av i 28 jan. 2002

iMedlem sedan jan. 200231 inlägg

Frågan28 jan. 2002 16:53#1

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

PatrikBMedlem sedan mars 20002 836 inlägg

28 jan. 2002 16:56#2

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

borde funka ...

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

LarsGMedlem sedan dec. 200012 464 inlägg

28 jan. 2002 16:56#3

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

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

iMedlem sedan jan. 200231 inlägg

28 jan. 2002 20:32#4

underbart!

iMedlem sedan jan. 200231 inlägg

28 jan. 2002 20:43#5

...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? :)

RinaldoMedlem sedan mars 20014 214 inlägg

28 jan. 2002 20:46#6

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

------------------
MVH

iMedlem sedan jan. 200231 inlägg

28 jan. 2002 21:16#7

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

iMedlem sedan jan. 200231 inlägg

28 jan. 2002 21:17#8

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

iMedlem sedan jan. 200231 inlägg

28 jan. 2002 21:19#9

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

iMedlem sedan jan. 200231 inlägg

28 jan. 2002 21:21#10

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

iMedlem sedan jan. 200231 inlägg

28 jan. 2002 21:23#11

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

@ndersMedlem sedan juni 200032 967 inlägg

28 jan. 2002 21:27#12

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,

iMedlem sedan jan. 200231 inlägg

29 jan. 2002 15:07#13

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

Erik JuhlinMedlem sedan maj 200010 687 inlägg

29 jan. 2002 15:10#14

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

------------------
/Erik
www.juhlin.nu /sk8files/ /mp3d/

[Redigerat av Erik Juhlin den 29 jan 2002]

iMedlem sedan jan. 200231 inlägg

29 jan. 2002 15:33#15

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

Erik JuhlinMedlem sedan maj 200010 687 inlägg

29 jan. 2002 15:38#16

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

------------------
/Erik
www.juhlin.nu /sk8files/ /mp3d/

iMedlem sedan jan. 200231 inlägg

29 jan. 2002 17:12#17

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