Problema con '

[Jonatatan]

Salu2 a to2, tengo un pequeno problema estoy realizando un update y resulta que la variable que contiene el dato a actualizar posee un apostrofe ' y por esta razon al momento de ejecutar la setencia me da error, claro porque al momento de realizar la sentencia toma el apostrofe de la variable como si estuviera cerrando el texto q estoy actualizando.

Espero haberme explicado bien, alguien sabe como lo puedo solucionar??

Código:

cla=Request.QueryString("id")
actu=Request.QueryString("dati")
Set db = Server.CreateObject("ADODB.Connection")
db.open DSNDB_NAME,SQLSERVER_USER,SQLSERVER_PASSWORD
noup10="update elencopubblico set elencopubblico.ufficio='"&actu&"' where elencopubblico.progr="&cla
set upno10=db.Execute(noup10)

[Jonatatan]

Encontre esta rutina en los FAQ's
para limpiar el texto pero todavia me sigue dando error.
Esto fue lo que hice:

Código:

cla=Request.QueryString("id")
actu=Request.QueryString("dati")

Set db = Server.CreateObject("ADODB.Connection")
db.open DSNDB_NAME,SQLSERVER_USER,SQLSERVER_PASSWORD

Function RyL(elemento)
    If Request.QueryString(elemento).Count > 0 Then RyL = Request.QueryString(elemento)
    If Request.Form(elemento).Count > 0 Then RyL = Request.Form(elemento)
    RyL = Replace(RyL, "'", "''")
End Function

noup10="update elencopubblico set elencopubblico.ufficio='"&RyL("actu")&"' where elencopubblico.progr="&cla
set upno10=db.Execute(noup10)

Puede que no este analizando bien la funcion,
no entiendo es porque hago un querystring y un request.form dentro de la funcion? si yo ya recogi el valor que quiero insertar, no deberia colocar alli el nombre de la variable o simplemente la variable elemento?? si alguien me ayuda a entenderla mejor se lo agradeceria.

[Jonatatan]

Ok solucionado aqui sta la solucion,gracias d to2 mo2, bye

Código:

cla=Request.QueryString("id")
actu=Request.QueryString("dati")

Set db = Server.CreateObject("ADODB.Connection")
db.open DSNDB_NAME,SQLSERVER_USER,SQLSERVER_PASSWORD

Function RyL(elemento)
    RyL = elemento
    RyL = Replace(RyL, "'", "''")
End Function

noup10="update elencopubblico set elencopubblico.ufficio='"&RyL(actu)&"' where elencopubblico.progr="&cla
set upno10=db.Execute(noup10)

[AlZuwaga]

El problema en la function de ahí arriba es que pone & gt; (sin el espacio) en lugar de poner >