Replace ascii cahracters in asp

hey guys,

im looking for a character map replace if there is one,
so i dont have to do the whole thing myself...

strTemp = Replace(strText,"'","'")
strTemp = Replace(strTemp,"&","&")
strTemp = Replace(strTemp,"”",""")
strTemp = Replace(strTemp,"“",""")
strTemp = Replace(strTemp,"’","'")
strTemp = Replace(strTemp,"‘","'")
strTemp = Replace(strTemp, "–", "–")
strTemp = Replace(strTemp, "—", "—")
strTemp = Replace(strTemp, "¯", "¯")
strTemp = Replace(strTemp, "²", "²")
strTemp = Replace(strTemp, "³", "³")
strTemp = Replace(strTemp, "À", "À")
strTemp = Replace(strTemp, "Á", "Á")
strTemp = Replace(strTemp, "Â", "Â")
strTemp = Replace(strTemp, "Ä", "Ä")
strTemp = Replace(strTemp, "Ç", "Ç")
strTemp = Replace(strTemp, "È", "È")
strTemp = Replace(strTemp, "É", "É")
strTemp = Replace(strTemp, "Ê", "Ê")
strTemp = Replace(strTemp, "Ë", "Ë")
strTemp = Replace(strTemp, "Ì", "Ì")
strTemp = Replace(strTemp, "Í", "Í")
strTemp = Replace(strTemp, "Î", "Î")
strTemp = Replace(strTemp, "Ï", "Ï")
strTemp = Replace(strTemp, "Ò", "Ò")
strTemp = Replace(strTemp, "Ó", "Ó")
strTemp = Replace(strTemp, "Ô", "Ô")
strTemp = Replace(strTemp, "Ù", "Ù")
strTemp = Replace(strTemp, "Ú", "Ú")
strTemp = Replace(strTemp, "Û", "Û")
strTemp = Replace(strTemp, "Ü", "Ü")
strTemp = Replace(strTemp, "ß", "ß")
strTemp = Replace(strTemp, "à", "à")
strTemp = Replace(strTemp, "á", "á")
strTemp = Replace(strTemp, "â", "â")
strTemp = Replace(strTemp, "ã", "ã")
strTemp = Replace(strTemp, "ä", "ä")
strTemp = Replace(strTemp, "ç", "ç")
strTemp = Replace(strTemp, "è", "è")
strTemp = Replace(strTemp, "é", "é")
strTemp = Replace(strTemp, "ê", "ê")
strTemp = Replace(strTemp, "ë", "ë")
strTemp = Replace(strTemp, "î", "î")
strTemp = Replace(strTemp, "ï", "ï")
strTemp = Replace(strTemp, "ñ", "ñ")
strTemp = Replace(strTemp, "ò", "ò")
strTemp = Replace(strTemp, "ó", "ó")
strTemp = Replace(strTemp, "ô", "ô")
strTemp = Replace(strTemp, "õ", "õ")
strTemp = Replace(strTemp, "ö", "ö")
strTemp = Replace(strTemp, "ù", "ù")
strTemp = Replace(strTemp, "ú", "ú")
strTemp = Replace(strTemp, "û", "û")
strTemp = Replace(strTemp, "ü", "ü")
strTemp = Replace(strTemp, "?", "!")
strTemp = Replace(strTemp, "#", "")
strTemp = Replace(strTemp, "©", "c")
strTemp = Replace(strTemp, "ø", "o")
strTemp = Replace(strTemp, "«", "<")
strTemp = Replace(strTemp, "¥", "y")

strTemp = Replace(strTemp, "€", "e")
strTemp = Replace(strTemp, "®", "r")
strTemp = Replace(strTemp, "ª", "a")
strTemp = Replace(strTemp, "½", "1/2")
strTemp = Replace(strTemp, "™", "tm")

and so on...

thanks in advance

baleric