Text til link

tjae .. hvor får du en fejl da ?

Øhh, skulle nok lige have skrevet hvad problemet er !
Jeg bygger på et nyhedssystem, men det er irreterrende at skulle skrive <a href....</a> hver gang man skal lave et link.
Derfor ville jeg godt at den gør det automatisk.
\"LinkTest\" er downloadet fra Activeserverpages.dk, og burde virke.

Andre spørgsmål kan sendes til ICQ #95741008....

Øhmm, håber du kan fransk :-) (den kører på phidji.com)

Type d\'erreur :
Erreur de compilation Microsoft VBScript (0x800A03EE)
\')\' attendu
/default.asp, line 83, column 46

Jeg kan minus fransk men jeg kan da godt genkende problemet ;o)

Erstat din egen LinkText() funktion med flg.

Function LinkText(strInput)
    Set objRegExpHTTP1 = New RegExp
    Set objRegExpHTTP2 = New RegExp   
    Set objRegExpEMail = New RegExp

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

    objRegExpHTTP1.Global = True
    objRegExpHTTP2.Global = True
    objRegExpEMail.Global = True

    objRegExpHTTP1.IgnoreCase = True
    objRegExpHTTP2.IgnoreCase = True
    objRegExpEMail.IgnoreCase = True

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

    LinkText = strOutput
End Function

Hehe, jeg kan godt mærke jeg er newbie...

Hvad er der så galt her ?

*******************************

<%
Function LinkText(strInput)
    Set objRegExpHTTP1 = New RegExp
    Set objRegExpHTTP2 = New RegExp   
    Set objRegExpEMail = New RegExp

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

    objRegExpHTTP1.Global = True
    objRegExpHTTP2.Global = True
    objRegExpEMail.Global = True

    objRegExpHTTP1.IgnoreCase = True
    objRegExpHTTP2.IgnoreCase = True
    objRegExpEMail.IgnoreCase = True

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

    LinkText = strOutput
End Function
%>
<%
\' --------------------------------------------------------------------------------
\' Dette eksempel er skrevet af Dennis Knappe
\' Og omskrevet af Lars Hansen/Ole H. hansen  - logiweb.dk
\' ...og igen omskrevet af Rune J. Jacobsen - www15.brinkster.com/crazycounter
\' Eksemplet kan downloades fra http://www.activeserverpages.dk, og er freeware
\' --------------------------------------------------------------------------------

tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"xxxxx.mdb\") & \";UID=admin;PWD=;\"
    strSQL = \"SELECT top 20 * FROM news\"
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
        rs(\"Overskrift\") = strNavn
        rs(\"Kommentar\") = strKommentar
        rs(\"ID\") = strId
        rs(\"Dato\") =Date()   
        rs(\"Af\") = strAf
        rs(\"Email\") = strEmail

    rs.Close
    Set rs = Nothing

%>
<!-- #include file=\"include/header.inc\"-->
<DIV ID=\"overDiv\" STYLE=\"position:absolute; visibility:hide; z-index:1;\"></DIV>
<SCRIPT LANGUAGE=\"JavaScript\" SRC=\"include/overlib.js\"></SCRIPT>

<tr align=\"center\">
    <td width=\"100%\">
<%
Select Case strMode
Case \"add\"
%>
<%
Case Else
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    strSQL = \"SELECT * FROM news ORDER BY Dato DESC;\"
    myConn.Open tempConn
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        Response.Write \"<table border=0 cellpadding=3 cellspacing=0><br>\"
        Do While Not rs.EOF
        dtmDato = rs(\"Dato\")


Response.Write \"<tr bgcolor=#187FFF><td><p class=newscolor><B>\" & rs(\"Overskrift\") & \"</b> - \" & dtmDato & \" - <b>\"

if rs(\"Email\") <> \"\" then
  Response.Write \"<a href=mailto:\" & rs(\"Email\") & \">\" & rs(\"Af\") & \"</a>\"
else
  Response.Write rs(\"Af\")
end if

Response.Write \"</B></p></td></tr>\"

Response.Write \"<tr><td>\" & LinkText(\"rs(\"kommentar\")\") & \"<br>&nbsp;</td></tr>\"
            rs.MoveNext
        Loop
        Response.Write \"</table>\"
    Else
        Response.Write \"<p>Der er endnu ikke nogle nyheder i databasen endnu</p>\"
    End If
    myConn.Close
    Set myConn = Nothing
End Select
%>
</td>
  </tr>

<!-- #include file=\"include/footer.inc\"-->

*******************************

HJÆÆÆLP !

da jeg ikke har din database kan jeg ikke tjekke alt men. linje 83

Response.Write \"<tr><td>\" & LinkText(\"rs(\"kommentar\")\") & \"<br>&nbsp;</td></tr>\"

brug i stedet:

Response.Write \"<tr><td>\" & LinkText(rs(\"kommentar\")) & \"<br>&nbsp;</td></tr>\"

Jeg kan ikke få den til at virke, peng !

Hey peng, hvis du har lyst til de point, så lav et svar ! Ellers ryger de videre til tdaugaard i hans forsøg for at hjælpe !

Sorry, havde helt glemt dig :-(