Problema al subir imagen con ASP

[Adler]

Hola

... no te imprime nada

Prueba ahora

'response.Write "archivo=" & noticia & "<br>"
if extension<>"jpg" then
response.Write "no puede subir archivos que no sean jpg"
else

o.FileInputName = "txtFile"
o.FileFullPath = Server.MapPath(".") & "\archivo\" & sFile
o.save
end if

Set oconn = Server.CreateObject("ADODB.Connection")
oconn= "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("productos.mdb")

Sql = "insert into noticias(" & _
"encabezado" & _
",resumen" & _
",cuerpo" & _
",fecha" & _
",fotografia" & _
") values(" & _
"'" & o.ValueOf("encabezado") & "'" & _
",'" & o.ValueOf("resumen") & "'" & _
",'" & o.ValueOf("cuerpo") & "'" & _
",'" & o.ValueOf("fecha") & "'" & _
",'" & sFile & "'" & _
")"
oconn.execute(sql)
response.Write(sql)
oconn.Close
set oconn = nothing
end if

Suerte