Link fra db

Vinder script på www.netkoders.dk af link laer:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1

Runner ups:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=860&tech_id=1


To sekunder så finder jeg lige det som jeg bruger..

Her er den function jeg bruger..:


Function LinkString2(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp

objRegExpHTTP1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}[\w\S]*)"

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True

strOutput = objRegExpHTTP1.Replace(strInput, " <a href='$1$2' target='_blank'>$1$2</a> ")
strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank'>$2</a> ")

objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])('>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(' target=)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(</a>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2$1")

Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing

LinkString2 = strOutput
End Function



Og den kaldes sådan her:

response.write linkString2 rs("kolonne_med_beskeden")

En søgning i ASP kategorien åp klikbart link:
http://www.eksperten.dk/find.phtml?words=klikbart+link&catid=3

Jeg er blank... ;o)

Kan jeg sætte noget af det ind når jeg bare normalt laver en forbindelse osv..???

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("opslag_art.mdb")

'nyheden afhængig af ID i urlen
strSQL ="Select * From nyheder Where ARTID = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

Response.Write rs("Overskrift") & "<BR>" & "<BR>"
Response.Write "Denne artikel blev oprettet:" & "<BR>"
'Skriv nyhed
Response.Write rs("Dato") %>
<% Response.Write rs("Nyhed") %>

linkene kan jo ligge i den der hedder "Nyhed"??

function:

Function LinkString2(strInput)
...
...
end function

Ligger du bare helt ned i bunden af din kode
</html>
<% 'Functioen ligges her %>

Og når du vil havde udskrevet en kolonne fra databasen hvor link skal laves om til klikbart link:

<% Response.Write linkString2 (rs("Nyhed")) %>

Får denne fejl...

Microsoft VBScript compilation error '800a03ea'

Syntax error

/test_agm/opslag/artikel.asp, line 115

Set objRegExpHTTP1 = New RegExp
---------------------^

Er det din egen server? eller et web-hotel for det betyder at ASP kompileren ikke kenderRegExp som først er kommet med i Version 5.

Eller så prøv lige at vise koden her..

Tror vi kører version 4.!!!

Så vil jeg anbefale at prøve dette script som var vinder på netcoders.dk:

http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1

Det er lavet uden brug af regExp. Det medfølger en default.asp fil hvor der er angivet hvilke links den kan laves om i en streng. Samt du kan se hvordan man kalder funtionen

Du includre filen dino_patti.asp hvor function finden i
%>
<!-- #include file = "dino_patti.asp" -->
<%

Og kalder den sådan her:
Response.write autoHighlight( rs("nyhed") )

Det virker .... JIHHHAAA....
Det er fanedme' ikke mærkeligt du ligger nr. 1 ... tak for hjælpen..

;)  selv tak

Ved du om jeg også kan linke til et sted på hard disken J:\fsjfns??
el. skal det ligge på serveren?

Hvis du køre på localhost mener jeg lokale links på HD virker hvis du bruger en browser på samme maskine. Hvis det ligger på en web-server skal det ligge på serveren.