Gøre links klikbare (hos b-one)
Jeg har et lille script, der tager en tekst som brugeren indtaster i en form, hvorefter scriptet løber teksten igennem for at lave eventuelle links (inkl. email adresser) 'klikbare'.Scriptet virker på min egen IIS/PWS, men når jeg tester det hos min udbyder (b-one, som anvender Chili!ASP), så får jeg følgende fejlmeddelelse:
Microsoft VBScript compilation error '800a03ea'
Syntax error
/test/test.asp, line 9
Set Rx = New RegExp
---------^
Her er scriptet:
<html>
<head>
</head>
<body>
<%
If request.querystring("action") = "vis" Then
strinput = request.form("tekst")
Set Rx = New RegExp
Rx.Global = True
Rx.IgnoreCase = True
Rx.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)"
strOutput = Rx.Replace(strInput, " <a href=""mailto:$1"">$1</a> ")
Rx.Pattern = "(http|https|news|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
strOutput = Rx.Replace(strOutput, " <a href=""$1$2"">$1$2</a> ")
Rx.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)"
strOutput = Rx.Replace(strOutput, " <a href=""http://$2"">$2</a> ")
Set Rx = Nothing
Response.write stroutput
Else
%>
<form action="test.asp?action=vis" method=post>
<TEXTAREA cols=105 rows=8 name=tekst></TEXTAREA>
<input type="submit" value="Udfør" name="submit"> </p>
</form>
<%
End If
%>
</body>
</html>
