Problema apostrofo - form

[kemin]

salve, premetto che vorrei eliminare il problema dell'apostrofo. mi potete dire dove devo infilare il replace in questo codice?

<%
on error resume next
dim strQuerya
strQuerya="INSERT INTO table("
dim strValoria
strValoria=" VALUES("
dim strSqla
strSqla=""

for each item in request.form
if item<>"Submita" then

strQuerya= strQuerya & item & ","
strValoria= strValoria & "'"&server.HTMLEncode(request.form(item))&"',"
end if

next
strQuerya=mid(strQuerya,1,len(strQuerya)-1) &")"
strValoria=mid(strValoria,1,len(strValoria)-1) &")"

set rs =server.createObject("ADODB.Recordset")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/db.mdb")
strSql= strQuerya & strValoria
rs.open strSql,strConn
set rs=nothing
%>

dopo questo codice c'è il form.

[Mems]

for each item in request.form

if item<>"Submita" then
temp = request.form(item)
if inStr(temp,"'") > 0 then temp = replace(temp,"'","''")
strQuerya= strQuerya & item & ","
strValoria= strValoria & "'"&server.HTMLEncode(temp)&"',"
end if

next