passaggio dati form a sql

[giobatt22]

ho un problema nel restituire a una pagine il valore cognome.
mi spiego lo script appena sotto mi riempie una "tendina" con i valori di cognome presi da un db di access e fin qui ci siamo tutto funziona
ora quando clicco sul tasto cerca del form fino a che il cognome è intero es. pippo la pagina dei risultati mi funziona , ma quando il cognome è ad es. di pippo lui mi restituisce come valore solo "di" e quindi la pagina dei risultati mi va in errore.
Vi posto dopo il primo script lo script che mi va in errore


PRIMO SCRIPT

<%
' Inizializzazione oggetti
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/iscritti.mdb")
SQL = "SELECT * FROM iscritti where tipo ='iscritto' order by cognome asc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, Conn, 1, 3
%>

do while not rs.EOF
Response.Write ("<OPTION ")
Response.Write ("value=" & rs("cognome") & ">")
Response.Write (rs("cognome"))
Response.Write ("</OPTION>")
rs.MoveNext 'va al successivo
loop 'ritorna sopra
%>
<input type="submit" value="RICERCA" name="RICERCA"></td>
<%
Conn.close
Set Conn = nothing
%>


SCRIPT RISULTATI

<%

cog=Request.Form("cog")
'cognome = request.querystring ("cognome")
response.write cog
%>
SQL="SELECT * FROM iscritti WHERE cognome = 'cog' "
'' SQL="SELECT * FROM iscritti WHERE id ="& id
%>
<%
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF
%>

[Mems]

<%
' Inizializzazione oggetti
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/iscritti.mdb")
SQL = "SELECT * FROM iscritti where tipo ='iscritto' order by cognome asc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, Conn, 1, 3
%>

do while not rs.EOF
Response.Write ("<OPTION ")
Response.Write ("value=""" & rs("cognome") & """>")
Response.Write (rs("cognome"))
Response.Write ("</OPTION>")
rs.MoveNext 'va al successivo
loop 'ritorna sopra
%>
<input type="submit" value="RICERCA" name="RICERCA"></td>
<%
Conn.close
Set Conn = nothing
%>


SCRIPT RISULTATI

<%

cog=Request.Form("cog")
'cognome = request.querystring ("cognome")
response.write cog
%>
SQL="SELECT * FROM iscritti WHERE cognome = '" & cog & '"
'' SQL="SELECT * FROM iscritti WHERE id ="& id
%>
<%
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF
%>

[giobatt22]

SQL="SELECT * FROM iscritti WHERE cognome = '" & cog & '"

[Mems]

SQL="SELECT * FROM iscritti WHERE cognome = '" & cog & "'"

[giobatt22]

con i cognomi interi funziona es pippo
con i cognomi separati es di pippo funziona
ma con i cognomi che hanno apostrofo es. D'achille non va

[Mems]

cog = replace(cog,"'","''")
SQL="SELECT * FROM iscritti WHERE cognome = '" & cog & "'"

[giobatt22]

TI RINGRAZIO PER LE CORREZIONI E PER AVERMI RISOLTO UN PROBLEMA