No me hace el replace

[deccweb]

Tengo este codigo para subir una noticia a una base de datos con una imagen. Y le he puesto un replace en los campos:
"noticia" y "mas" pero no me hace el replace. Aqui os dejo el codigo.. Creo q esta bien pero no lo entiendo... lo he probado en diferentes sitios y nada.

<%@ Language=VBScript %>
<%Option Explicit%>
<!-- #include file="newuser_upload.asp" -->
<%





' Create the FileUploader

Dim Uploader, File, Oconn, nombre
Set Uploader = New FileUploader


' This starts the upload process
Uploader.Upload()



Response.Write "<b>Se ha insertado correctamente " & Uploader.Form("copete") & "</b><br>"

' Check if any files were uploaded
If Uploader.Files.Count = 0 Then
If Uploader.Form("copete") = "" then
Response.Write "<font size=1 face=verdana><BR><BR>Hay errores en el formulario o faltan datos."
Response.Write "<font size=1 face=verdana><BR>Presionar Atras y completarlo correctamente"

Else

noticia = Uploader.Form("noticia")
noticia = Replace (noticia, "'", "''")
mas = Uploader.Form("mas")
mas = Replace (mas, "'", "''")

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("noticias.mdb")
oConn.Execute "INSERT INTO noticias (imagen,titulo,copete,noticia,categoria,mostrar,ma s,fecha) VALUES ('imagen.gif','"&Uploader.Form("titulo")&"','"&Upl oader.Form("copete")&"','"&noticia&"','"&Uploader. Form("categoria")&"','"&Uploader.Form("mostrar")&" ','"&mas&"',Date())"
oConn.Close
Set oConn = nothing
End if
Else
' Loop through the uploaded files
For Each File In Uploader.Files.Items

' Check where the user wants to save the file
If Uploader.Form("saveto") = "disk" Then

' Save the file
File.SaveToDisk "D:\Inetpub\webs\calle17com\public\noticias\actual idad\"

ElseIf Uploader.Form("saveto") = "database" Then

' Open the table you are saving the file to
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "MyUploadTable", "CONNECT STRING OR ADO.Connection", 2, 2
RS.AddNew ' create a new record

RS("filename") = File.FileName
RS("filesize") = File.FileSize
RS("contenttype") = File.ContentType

' Save the file to the database
File.SaveToDatabase RS("filedata")

' Commit the changes and close
RS.Update
RS.Close
End If

' Output the file details to the browser
Response.Write "Se ha insertado correctamente. <a href=admin.asp>Volver</a>"
Response.Write "File Uploaded: " & File.FileName & "<br>"
Response.Write "Size: " & File.FileSize & " bytes<br>"
Response.Write "Type: " & File.ContentType & "<br><br>"
If Uploader.Form("copete") = "" then
Response.Write "<font size=1 face=verdana><BR><BR>Hay errores en el formulario o faltan datos."
Response.Write "<font size=1 face=verdana><BR>Presionar Atras y completarlo correctamente"

Else

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("noticias.mdb")
oConn.Execute "INSERT INTO noticias (imagen,titulo,copete,noticia,categoria,mostrar,ma s,fecha) VALUES ('"&File.FileName&"','"&Uploader.Form("titulo")&"' ,'"&Uploader.Form("copete")&"','"&Uploader.Form("n oticia")&"','"&Uploader.Form("categoria")&"','"&Up loader.Form("mostrar")&"','"&Uploader.Form("mas")& "',Date())"
oConn.Close
Set oConn = nothing
End if
Next
End If

%>