Prova cosi:
codice:
<%
'Funzione per pulire una stringa e trasformarla in un URL valido
Function ConvertiTitoloInNomeScript(strTitolo)
    risultato = strTitolo
    risultato = replace(risultato, "à", "a")
    risultato = replace(risultato, "è", "e")
    risultato = replace(risultato, "é", "e")
    risultato = replace(risultato, "ì", "i")
    risultato = replace(risultato, "ò", "o")
    risultato = replace(risultato, "ù", "u")

    set re = Server.CreateObject("VBScript.RegExp")
    re.Pattern = "[^\da-z]" 'Lascio solo numeri e lettere
    re.global = true
    re.IgnoreCase = true
    risultato = re.replace(risultato,"-") 'Il resto lo sostituisco con il -

    re.Pattern = "-{2,}"
    re.global = true
    re.IgnoreCase = true
    risultato = re.replace(risultato,"-") 'Lascio un solo - se ne ce sono di più consecutivi
    set re = nothing
    
    if left(risultato,1) = "-" then
        risultato = mid(risultato,2,len(risultato)-1) 'Tolgo - se è il primo carattere
    end if
    if right(risultato,1) = "-" then
        risultato = left(risultato,len(risultato)-1) 'Tolgo - se è l'ultimo carattere
    end if
    risultato = lcase(risultato)
    ConvertiTitoloInNomeScript = risultato
end function

id1=request.querystring("id")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../mdb-database/link.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from risorse ", conn

Do while NOT RS.EOF
id1=rs("id") 
desc=ConvertiTitoloInNomeScript(rs("desc"))
%>
<a class="links" href="contenuto.asp?id=<% response.write(id1) %>&<% response.write(desc) %>">» <%
link=rs("link")
response.write(link)
%></a>


<%
RS.MoveNext
Loop
RS.Close
%>