[ASP] Probleem met invoegen URL

[Emerge]

Kan iemand mij misschien vertellen waarom dit niet werkt:

code:

<%
DIM iBericht1

set iBericht1= Request("iBericht")

LocatieURL = Instr(iBericht1, "[url]")
LocatieEndURL = Instr(iBericht1, "[/url]")
If LocatieURL<>0 AND LocatieEndURL<>0 Then
  Url = Mid(iBericht1,LocatieURL+5,LocatieEndURL-LocatieURL+5)
End If

iBericht1=Replace(iBericht1,"[url]<%=Url%>[/url]","<a href=<%=Url%>><font color=#000000><%=Url%></font></a>")
%>

Het oproepen van iBericht1 gebeurt door een ingevuld form. Ik gebruik meerdere character-escapes
voor het vervangen van smilies, dus dat werkt wel. Hierboven staat een stukje wat de link tussen
de "[url="http://" en de ""]" en de "[/url]" zou moeten plukken, en die dan in een echte link zou moeten plakken.
Maar iedere keer als ik deze pagina oproep krijg ik een interne server-error. Iemand een idee?

[Verwijderd]

iBericht1=Replace(iBericht1,"[url="http://[b]<%[/b]=Url%>"]<%=Url%>[/url]","<a href=<%=Url%>><font color=#000000><%=Url%></font></a>")

je bent al in <% bezig

[Emerge]

Helaas, deze optie geeft hetzelfde resultaat.
Het is dus mijn bedoeling om de www.dinges.com te vervangen door
<A HREF=www.dinges.com>www.dinges.com</A>.
Ik had al een aantal topics daarover gelezen. Maar ik snap er weinig/niets van.

[Verwijderd]

voila

code:

<%
DIM iBericht1
iBericht1 = "12345[url]123[/url]"

LocatieURL = Instr(iBericht1, "[url]")
LocatieEndURL = Instr(iBericht1, "[/url]")
If LocatieURL<>0 AND LocatieEndURL<>0 Then
  Url = Mid(iBericht1,LocatieURL+5,LocatieEndURL-LocatieURL-5)
End If
iBericht1=Replace(iBericht1,"[url]"&Url&"[/url]","<a href="&Url&"><font color=#000000>"&Url&"</font></a>")
%>

[Emerge]

Hmm, hij geeft iig al geen foutmelding meer.
Da's al iets. Nu voegt ie 't bericht toe aan de DB, maar
als ie 'm uitleest zie je staan:

code:

[url]www.dinges.com[/url]

Hij plaatst 't dus in z'n geheel in de DB, zonder er een link van te maken.

[Verwijderd]

post eens wat meer code.

[Verwijderd]

Ik heb het een beetje uitgesplitst zodat je ziet wat er gebeurt:

code:

DIM iBericht1
set iBericht1= Request("iBericht")

LocatieURL = Instr(iBericht1, "[url]")
LocatieEndURL = Instr(iBericht1, "[/url]")
If LocatieURL<>0 AND LocatieEndURL<>0 Then
  Url = Mid(iBericht1,LocatieURL+5,LocatieEndURL-LocatieURL-5)
' Daar heb ik -5 van gemaakt...
End If
response.write "iBericht: " & iBericht1 & "<br>"
response.write "Url: "& Url & "<br>"
Dim oudURL, nieuwURL
oudURL = "[url]" & Url & "[/url]"
nieuwURL = "<a href='http://"& Url & "'><font color=#000000>" & Url & "</font></a>"
response.write "oudURL: " & oudURL & "<br>"
response.write "nieuwURL: "&nieuwURL & "<br>"
iBericht1=Replace(iBericht1,oudURL,nieuwURL)
response.write "iBericht: " & iBericht1 & "<br>"

nu is het wel zo dat mensen die een url met http invoeren een foute url krijgen. maar dat is een ander probleem

[disjfa]

uhm... ik zou ff naar regexp kijken... is t maar 2 regeltjes

code:

    dim reg 
    set reg = new regexp

    Reg.Pattern = "(\\[url\])((.|\n)*?)(\\[\/url\])"
    text = Reg.Replace(text, "<a href='$2' target='_blank'>$2</a>")

is verder voor alles te gebruiken

maar dit zier er toch makkelijker uit dan die van jou

[Verwijderd]

gelijk heb je

[Emerge]

Thánks! Die laatste optie werkt perfect!

[disjfa]

Op donderdag 23 mei 2002 13:57 schreef Emerge het volgende:
Thánks! Die laatste optie werkt perfect!

[Verwijderd]

hmmm, geen credits voor mij

[disjfa]

Op donderdag 23 mei 2002 14:02 schreef basbasbas het volgende:
hmmm, geen credits voor mij

zo zou ik t in t begin ook hebben gedaan hoor... maar wat dan als je meer dan 1 url in je text hebt... dan moet je nog 2 variabelen erbij hebben en een do until loop erbij..

en bji die van mij heb je vbscript 5.5 minimaal nodig

[Verwijderd]

ja, dat klopt. Dat dacht ik ook gelijk met die meerdere url's. Maar het is gewoon dat ik opzie tegen het me aanleren van regexp's. Oftwel, ik begrijp er geen hout van..

[disjfa]

Op donderdag 23 mei 2002 15:53 schreef basbasbas het volgende:
ja, dat klopt. Dat dacht ik ook gelijk met die meerdere url's. Maar het is gewoon dat ik opzie tegen het me aanleren van regexp's. Oftwel, ik begrijp er geen hout van..

als je dat een keer leert..... dan hoef je verder weinig andere dingen te kunnen

het punt is idd het leren

[Verwijderd]

Ok, ik volg je advies op...

Weet je nog een leuke regexp academy voor me? Kan ik trouwens van Perl uitgaan? (gezien de escapes en zo die ik normaal niet echt in asp tegenkom)

Of moet ik eerst zoeken voordat ik vraag?