Hola a todos, el servidor con el que trabajo tiene preintalado el componente AspUpload, y quiero valerme de ellos para subir imágenes a las bases de datos y como no se, me fui a la página de
http://www.aspupload.com y me bajé algunos códigos para subir imagenes al servidor y me funcionó perfectamente. Pero como dije antes, ahora quiero subir mis imagenes a una base datos.
Al procesar este cóndigo, me da el error:
================================================== ======
Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'
Se requiere un objeto: 'SQL'
/proyectoimagenes/upload_f.asp, línea 53
-----------------------------------------------------------------
esto es lo que hay en la linea 53:
SQL = SQL & Replace(Upload_f.Form("DESCR"), "'", "''") & "', "
================================================== ======
upload_f.asp
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
' Capture files (esta es la ruta mi servidor)
count = Upload.Save ("d:\xvrt\midominio\html\proyectoimagenes")
' Obtain file object
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
Connect = "miservidor.myimagen.mdb"
SQL = "INSERT INTO MYIMAGES(image_blob, filename, description, filesize) VALUES('"&image&"','"&filename&"','"&descripcion&" ',"&1048576&")"
SQL = SQL & File.Filename & "', '"
SQL = SQL & Replace(Upload_f.Form("DESCR"), "'", "''") & "', " SQL = SQL & File.Size & ")"
File.ToDatabase Connect, SQL
Response.Write "File saved."
Else
Response.Write "File not selected."
End If
%>
Gracias de antemano por la ayuda.
