Hej alla!

Jag skulle behöva hjälp med följande:

Hur går jag tillväga om jag vill från en Access databas som innehåller en mailadress kunna, när den visas på en sida, få den att skrivas ut som en länk.

Är det på samma sätt som man ersätter <br> såhär

head = replace(head,VBCrlf,"<br>")

Mycket tacksam för hjälp och gärna koden som gör detta möjligt.

Tack på förhand!

---------
Marcus

<code>
<%=namnfråndatabasen%>
</code>

Tack för det svaret, men det är inte riktigt så jag har tänkt mig...

Jag menar att om jag i ett fält i en access databas har text som någonstans innehåller en mailadress så vill jag ju att när den läses ut till sidan omvandlas till en länk.

Ex. Om jag har en text i en databas som ser ut såhär:

"
Om du klickar på den här mailadressen, mail@mail.com kan du maila oss.
"

Det jag då menar är att när "mail@mail.com" skrivs ut från databasen omvandlas taggarna som heter <a> till riktig kod som då blir en hyperlänk.

Snälla någon, förstår ni hur jag menar?

Ska man ersätta något eller om det är någon som vet, finns det något annat sätt att göra detta på?

Tack på förhand

----------------------
Marcus

<code>
function LinkURLs(ByRef asContent)
Dim loRegExp ' Regular Expression Object (Requires vbScript 5.0 and above)

' if no content was received, Exit the function
if asContent = "" Then Exit function

' remove any html strings already in text
asContent = StripHTML(asContent)

' Create Regular Expression object
Set loRegExp = New RegExp

' Keep finding links after the first one.
loRegExp.Global = True

' Ignore upper/lower Case
loRegExp.IgnoreCase = True

' Look For URLs
loRegExp.Pattern = "((mailto\:|(news|(ht|f)tp(s?))\://){1}\S+)\b"

' Link URLs
LinkURLs = loRegExp.Replace(asContent, "$1")

' Look For email addresses
loRegExp.Pattern = "(\S+@\S+.\.\S\S\S?)"

' Link email addresses
LinkURLs = loRegExp.Replace(LinkURLs, "$1")

' Release regular expression object
Set oRegExp = Nothing

End function

</code>