La imagen no sube al servidor

[armandoweb]

Amigos:

Debo subir una imagen al servidor a una carpeta determinada e insertar un registro en una base de datos al mismo tiempo. Es una noticia con una imagen.

El código que lo debe realizar es el que está más abajo, pero no solo que no sube la imágen sino que tampoco inserta el registro. Ingreso todos los datos en el formulario, luego pasa a esta página y luego termino en OK.asp.

Que error puedo estar cometiendo en el codigo???


<%
Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576
Upload.SaveVirtual "../articulos/images/" 'carpeta donde se guardaran las fotos

Set File = Upload.Files("file")
If Not File Is Nothing Then
con = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\cybernetsc.mdb")
Set rs = Server.CreateObject("adodb.recordset")

SQL = "SELECT * FROM articulos"
rs.Open SQL, con, 2 ,3

rs.AddNew
rs("fecha") = Upload.Form("fecha")
rs("titulo") = Upload.Form("titulo")
rs("copete") = Upload.Form("copete")
rs("noticia") = Upload.Form("noticia")
rs("imagen") = File.FileName ' Aqui hace referencia la foto
rs.Update

rs.Close
con.Close
set rs=nothing
set con=nothing
Response.Redirect "ok.asp"
Else
Response.Redirect("ok.asp")
End If
%>

Desde ya gracias y espero su respuesta.

ARIEL