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)