Url adresser til link

Samme system som her på siden

Prøv at se på den her side:
http://www.netcoders.dk/sourcecode.asp?submode=showparent&parent_id=858

Det skulle du kunne finde det du søger

Jens

<%
Function LinkTekst(Tekst)
LinkTekst = \"\"
A_Start = 1

if InStr(Tekst, \"http://\") then
  do until A_Start >= len(Tekst)
  LinkChr = InStr(A_Start, Tekst, \"http://\")
  NextSpace = InStr(LinkChr, Tekst, \" \")

  if NextSpace = 0 then NextSpace = Len(Tekst) + 1

  URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

  LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
  LinkTekst = LinkTekst & \"<A Href=\" & Chr(34) & URL & Chr(34) & \" target=blank>\" & URL & \"</A>\"

  if Int(LinkChr) = Int(InStrRev(Tekst, \"http://\")) then
    LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
    A_Start = Len(Tekst)
  else
    A_Start = NextSpace
  end if
  loop
else
  LinkTekst = Tekst
end if
End Function
%>

og vises med:

<%=LinkTekst(Replace(rs(\"db-felt\")&\"\", vbCrLf, \"<BR>\"))%>

<meyer>Kan ikke få det til at fungerer. Mit udtræk af db (post = info_om) sker med denne kommando:

<%=info_om%>

Det skal nok være:

<%=LinkTekst(Replace(rs(\"info_om\")&\"\", vbCrLf, \"<BR>\"))%>
 
Meyer

Jeg fjernede \"info_om = rs(\"info_om \")\" herfra:

    <%
  \'DO WHILE NOT rs.EOF

    farve1 = rs(\"farve1\")
    navn = rs(\"navn\")
    kategori = rs(\"kategori\")
    info_om = rs(\"info_om \")

    %>

Og så virkede det. Mange tak for hjælpen ;-)

var så lidt :-)

Hvorfor laver den efter et urllink, (når man har et linieskift) første ord på næste linie til et link ?

Det er fordi du skal skrive sådan her:
<%=LinkTekst(Replace(rs(\"info_om\")&\"\", vbCrLf, \" <BR> \"))%>

Altså sætte 2 mellemrum om <BR>

*snøft* ingen point til mig

Mange tak for rådet