Ver Mensaje Individual
  #3 (permalink)  
Antiguo 17/04/2002, 15:55
Avatar de oSo
oSo
 
Fecha de Ingreso: julio-2001
Mensajes: 468
Antigüedad: 23 años, 9 meses
Puntos: 1
Re: Auxilio! Cómo pongo un Vínculo??

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

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

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