Ok estoy en ello pero me da un error.
Tipo de error:
ADODB.Field (0x800A0C93)
La operación no está permitida en este contexto.
/retralec/prueba/xelupload.asp, línea 206
Me sube el archivo a la carpeta peto no veo nada en la base de datos..
Que puede ser?
Pongo el código:
Código HTML:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Retralec -- Vicálvaro</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
function enviar() {
vcontra=document.form1.contra.value
vusu=document.form1.usuario.value
if (vcontra=="1111" && vusu=="retralec") {
window.open ("privado.asp")
} else if (vcontra!="1111" && vusu!="retralec"){
alert ("ERROR. Los datos no son correctos")
}
}
</script>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<link href="estilos.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.Estilo4 {color: #999999}
.Estilo5 {color: #035F3E}
.Estilo6 {
color: #006332;
font-weight: bold;
}
.Estilo7 {color: #FFFFFF}
.Estilo7 {color: #FFFFFF; font-weight: bold; }
.Estilo8 {color: #006332}
-->
</style>
<script language="JavaScript">
<!--
<!--
// mmLoadMenus()
<!--#include file="xelupload.asp"-->
<%
Dim oConn, rs, SQL
Dim objUpload, objFich, strNombre, strEdad, strComentario , strFotonoticia
Dim maxtam, strNombreFichero
'nuestro tamaño máximo
maxtam = 15 * 1024
set objUpload = new xelUpload
objUpload.Upload()
'recuperamos los campos usuario y edad
strNombre = objUpload.Form("titulo2")
strEdad = objUpload.Form("autor")
strComentario = objUpload.Form("comentario")
strFotonoticia = objUpload.Form("fotonoticia")
'si no ha subido ningún fichero, le avisamos
if objUpload.Ficheros.Count = 0 then
Response.Write("¡No has subido ningún fichero!")
else
'accedemos al fichero por su nombre en el formulario
set objFich = objUpload.Ficheros("fotonoticia")
if objFich.Tamano <= maxtam and objFich.TipoContenido = "image/gif" then
'Es el fichero correcto, vamos a guardarlo en todas partes. :-)
'Primero, en nuestro directorio actual con el nombre que tiene
objFich.Guardar Server.MapPath("archivos")
'Ahora, en el directorio upload, con la fecha de hoy como nombre
strNombreFichero = Day(Date) & Month(Date) & Year(Date)
objFich.GuardarComo strNombreFichero, Server.MapPath("upload")
'Ahora nos conectamos a una base de datos
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
'Nos conectamos con ODBC sin DSN, suponiendo que la base
'de datos está en este mismo directorio
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" _
& "DBQ=" & Server.MapPath("archivos.mdb")
SQL = "SELECT * FROM NOTICIAS"
'Abrimos el Recordset: el 0 es el cursor adForwardOnly
' y el 2 es el cerrojo adLockPessimistic
rs.Open SQL, oConn, 0, 2
'Añadimos un nuevo registro
rs.AddNew
rs.Fields("titularnoticia") = strNombre
rs.Fields("fecha") = strEdad
rs.Fields("fotonoticia") = objFich.Nombre
'Llamamos a GuardarBD pasandole el campo correspondiente!!!
objFich.GuardarBD rs.Fields("fotonoticia")
'Guardamos el nuevo registro
rs.Update
'y limpiamos todo que vienen los padres
rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
'¡Todo correcto!
Response.Write "Se ha añadido el nuevo usuario <b>" & strNombre & "</b>, " _
& "con el fichero " & objFich.Nombre & " de tamaño " & objFich.Tamano & "."
'Limpiamos nuestro xelUpload y el fichero
set oFich = nothing
set objUpload = nothing
else
'No era un fichero válido
Response.Write("No es un fichero aceptable. ")
Response.Write("Tiene que ser un fichero GIF de menos de 15k.")
end if
end if
%>
Las colummnas de la BD las he llamado de la siguiene manera:
fecha
titularnoticia
fotonoticia
desarrollo
Gracias
