problema con apici in select

[Luca1317]

ho un problema con i soliti apici che credevo avessi ormai superato da tempo vista la mia esperienza in asp...ma i mostri tornano

in pratica quando Valorecliente ha un apice all'interno la riga sql=... mi da errore

<% 		  
		  Valorecliente=rec("cliente")
		 
		 		  %>
                          <select name="cliente" size="1" id="cliente">
                            <option value="<% =(Valorecliente) %>">
                              <% =(Valorecliente)%>
                              </option>
                            <%
'Scrivo la mia query sql
sql = "SELECT * FROM rubrica where cognome<>'" & Valorecliente & "'"

'E creo il recordset
Set Reccliente = Server.CreateObject ("ADODB.Recordset")
Reccliente.Open sql, Conn, 3, 3
do while not Reccliente.eof 

valore=Reccliente("cognome")
nome=Reccliente("cognome") 

nome = Replace(nome ," ","%20")

response.write("<option value=" & nome &">" & valore &"</option>") 
Reccliente.movenext 
loop %>