link cliccabile su campo memo

[maxx02]

Salve a tutti, ecco il prb,

perchè se inserisco un link tipo www.nomesito.it su un campo memo quando vado a vedere la pagina appare come testo normale?

ci vuole qualche scritp particolare perchè questo appaia come link cliccabile?

[Mems]

Perchè tu lo scrivi sulla pagina come testo normale.

' supponiamo che la variabile testo contenga il testo preso dal campo memo...
testo = trim(rs("campoMemo"))
if inStr(testo," ") > 0 then
  elTesto = split(test)
  for each item in elTesto
    if left(item,4) = "www." then
    response.write "" & item & " "
    elseIf left(item,7) = "http://" then
    response.write "" & item & " "
    else
    response.write item & " "
    end if
  next
else
    if left(testo,4) = "www." then
    response.write "" & testo & " "
    elseIf left(testo,7) = "http://" then
    response.write "" & testo & " "
    else
    response.write testo & " "
    end if
end if

[maxx02]

questa è la riga che mostra il testo con campo memo, il codice come va inserito che ormai sto impazzendo?
il rs nn è filtrato.

<% CI_Preserve((rs.Fields.Item("Messaggio").Value)) %>

[Mems]

' supponiamo che la variabile testo contenga il testo preso dal campo memo...
testo = CI_Preserve((rs.Fields.Item("Messaggio").Value)) 
if inStr(testo," ") > 0 then
  elTesto = split(test)
  for each item in elTesto
    if left(item,4) = "www." then
    response.write "" & item & " "
    elseIf left(item,7) = "http://" then
    response.write "" & item & " "
    else
    response.write item & " "
    end if
  next
else
    if left(testo,4) = "www." then
    response.write "" & testo & " "
    elseIf left(testo,7) = "http://" then
    response.write "" & testo & " "
    else
    response.write testo & " "
    end if
end if

[maxx02]

Mille grazie.

[maxx02]

Perchè se il testo nn contiene nessun link nn mostra nulla?

[Mems]

Originariamente inviato da maxx02
Perchè se il testo nn contiene nessun link nn mostra nulla?

Potresti aprire un po gli occhi e vedere che c'è un errore (mio) nella riga in cui faccio lo split. Ho messo test invece di testo.
Copiare e incollare e bello, ma almeno che si guardi ciò che si copia e incolla...

testo = CI_Preserve((rs.Fields.Item("Messaggio").Value)) 
if inStr(testo," ") > 0 then
  elTesto = split(testo)
  for each item in elTesto
    if left(item,4) = "www." then
    response.write "" & item & " "
    elseIf left(item,7) = "http://" then
    response.write "" & item & " "
    else
    response.write item & " "
    end if
  next
else
    if left(testo,4) = "www." then
    response.write "" & testo & " "
    elseIf left(testo,7) = "http://" then
    response.write "" & testo & " "
    else
    response.write testo & " "
    end if
end if

[maxx02]

(intanto ancora grazie per la pazienza)

mi hai anticipato, cmq dopo un po che sbirciavo dentro questo codice e cercare di capirlo invano l'avevo visto, adesso volevo aggiungere al collegamento che crea l'apertura su una pagina a parte.
Ho provato ad inserire questo target="_blank" in diverse parti dopo http:// però mi da sempre errore.

[Mems]

testo = CI_Preserve((rs.Fields.Item("Messaggio").Value)) 
if inStr(testo," ") > 0 then
  elTesto = split(testo)
  for each item in elTesto
    if left(item,4) = "www." then
    response.write "" & item & " "
    elseIf left(item,7) = "http://" then
    response.write "" & item & " "
    else
    response.write item & " "
    end if
  next
else
    if left(testo,4) = "www." then
    response.write "" & testo & " "
    elseIf left(testo,7) = "http://" then
    response.write "" & testo & " "
    else
    response.write testo & " "
    end if
end if

[maxx02]

grazie per l'illuminazione, anche se inizialmente nn andava per mancanza di qualche doppio apice che ho inserito prima del target.