Auxilio! Cómo pongo un Vínculo??

[oSo]

- Verdad que es fácil poner un vínculoooo?

- Siiiiiiiii!

- Bujujei bujujei... Pues no es ciertoo!!!

- Ahhhhhh! :(

Jeje, pues ese es mi problema amigos. Estoy haciendo un sistema para poder alimentar descentralizadamente mi portal, y en éste, hay un formulario en donde los usuarios ingresan texto, tal como lo hacemos al enviar un mensaje acá, pero es necesario que también puedan incluír vínculos dentro de su texto, tal como lo hacemos aquí <a href='ir.asp?http://Así de sencillo' target='_blank'>Así de sencillo...</a>...

Yo quisiera implemetar algo para que la gente escribiera algo así como

Código:

www.forosdelweb.com 

Y el sistema lo identificara como un vínculo...

Pero no se como hacerlo!! un simple Replace creo que no me ayudaría mucho...

Cómo lo hago?

Gracias por la ayuda!! :)

P.D. ah! algo que también quisiera saber cómo lo puedo hacer, es el &quot;Previsualizar&quot; un mensaje... cualquier ayuda será recompensada

<div align="center"><img src="http://www.negociosenguatemala.com/biz/z/jd/fdwsign.jpg" alt="oSo" border="0"></div>

[jgg]

Hola,
quizá te sirva este tip:
<a href='ir.asp?http://www.4guysfromrolla.com/webtech/tips/t110900-1.shtml' target='_blank'>http://www.4guysfromrolla.com/webtech/ti...</a>

Un saludo!!

[email protected]

[oSo]

Muchas gracias jgg! funciona de Maravilla!!

Vean este otro que encontré: busca dentro de un texto tags como {url} y {/url}, y lo convierte en un vínculo...

Dim sMessage, sURL, nURLstart, nURLend, sLink
sMessage = Request.Form(&quot;message&quot;)
If Not IsNull(sMessage) Then
Do Until nURLstart = 0
' Find {url}
nURLstart = InStr(sMessage, &quot;{url}&quot;)
' If found, search for closing {/url}
If nURLstart &gt; 0 Then
' Move to first character after closing bracket
nURLstart = nURLstart + 5
nURLend = InStr(nURLstart, sMessage, &quot;{/url}&quot;)
If nURLend &gt; 0 Then
sURL = Mid(sMessage, nURLstart, nURLend - nURLstart)
sLink = &quot;&lt;a href=&quot;&quot;&quot; &amp; sURL &amp; &quot;&quot;&quot; target=&quot;&quot;_blank&quot;&quot;&gt;&quot; _
&amp; sURL &amp; &quot;&lt;/a&gt;&quot;
sMessage = Replace(sMessage, &quot;{url}&quot; &amp; sURL &amp; &quot;{/url}&quot;, sLink)
Else
' No closing {/url} string, so clear out first {url}.
sMessage = Replace(sMessage, &quot;{url}&quot;, &quot;&quot;, , 1)
End If
End If
Loop
' Clean up any extraneous {/url}'s
sMessage = Replace(sMessage, &quot;{/url}&quot;, &quot;&quot;)
End If

Saludos!

<div align="center"><img src="http://www.negociosenguatemala.com/biz/z/jd/fdwsign.jpg" alt="oSo" border="0"></div>