Error en cuadros de texto

[Cuezaltzin]

Hola de nuevo.

Todavia tengo el mismo problema ya probe las dos respuestas y me marca el siguiente error:

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0414)
No se puede utilizar paréntesis al llamar a Sub

En esta linea me marca el error:

Replace(Marca,"'","''")

Aqui les agrego mi codigo para que me ayuden.Mil Gracias


<!--#include file="Loader.asp"-->

<%
Response.Buffer = True

' load object
Dim load
Set load = new Loader

' calling initialize method
load.initialize

' File binary data
Dim fileData
fileData = load.getFileData("file")
' File name
Dim fileName
fileName = LCase(load.getFileName("file"))


' Value of text input field "Producto"

Dim ProductoInput
ProductoInput = load.getValue("Producto")

Replace(Marca,"'","''")

Dim MarcaInput
MarcaInput = load.getValue("Marca")

Dim ModeloInput
ModeloInput = load.getValue("Modelo")

Dim PrecioInput
PrecioInput = load.getValue("Precio")

Dim Valor1Input
Valor1Input = load.getValue("Valor1")

Dim Valor2Input
Valor2Input = load.getValue("Valor2")

Dim Valor3Input
Valor3Input = load.getValue("Valor3")

Dim Valor4Input
Valor4Input = load.getValue("Valor4")

Dim Valor5Input
Valor5Input = load.getValue("Valor5")

Dim Valor6Input
Valor6Input = load.getValue("Valor6")

Dim CaracteristicasInput
CaracteristicasInput = load.getValue("Caracteristicas")

' Path where file will be uploaded
Dim pathToFile
pathToFile = Server.mapPath("..\..\IA") & "\" & fileName
' Uploading file data
Dim fileUploaded
fileUploaded = load.saveToFile ("file", pathToFile)

' destroying load object
Set load = Nothing
%>

<%
Dim BDD
Dim TABLA
Dim SQL

Set BDD = Server.CreateObject("ADODB.Connection")
Set TABLA = Server.CreateObject("ADODB.Recordset")

BDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=" + Server.MapPath ("../../Productos.mdb"))

SQL = "Insert into Productos (Producto,Marca,Modelo,Precio,Valor1,Valor2,Valor3 ,Valor4,Valor5,Valor6,Caracteristicas,IMG) values ('"&ProductoInput&"','"&MarcaInput&"','"&ModeloInp ut&"','"&PrecioInput&"','"&Valor1Input&"','"&Valor 2Input&"','"&Valor3Input&"','"&Valor4Input&"','"&V alor5Input&"','"&Valor6Input&"','"&Caracteristicas Input&"','"&fileName&"')"


BDD.Execute SQL


%>