Foros del Web » Programando para Internet » ASP Clásico »

problemas con asp ASPUPLOAD...

Estas en el tema de problemas con asp ASPUPLOAD... en el foro de ASP Clásico en Foros del Web. wenas de nuevo a todos, tengo un problemilla con ASPUPLOAD y es que me obliga a subir una imagen... me explico, tengo un formulario con ...
  #1 (permalink)  
Antiguo 24/08/2004, 13:19
Avatar de ken-obi  
Fecha de Ingreso: julio-2004
Ubicación: Alicante
Mensajes: 314
Antigüedad: 19 años, 10 meses
Puntos: 6
problemas con asp ASPUPLOAD...

wenas de nuevo a todos,
tengo un problemilla con ASPUPLOAD y es que me obliga a subir una imagen...
me explico, tengo un formulario con varios campos y 1 de tipo FILE con lo cual subo las imagenes....hasta aqui todo correcto pero cuando relleno todos los campos MENOS el tipo FILE me da un "PU....O" error que no se resolver,

EL ERROR
Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto

/up_noticias/upl.asp, línea 50

EL CODIGO
Código:
Set Upload = Server.CreateObject("Persits.Upload")
' Capture files
Upload.Save(Server.MapPath("cgi-bin/images"))
'Upload.SaveVirtual "cgi-bin"

' Obtain file object
Set File1 = Upload.Files("fo1")
Set File2 = Upload.Files("fo2")
Set File3 = Upload.Files("arc")

tit = Upload.Form("tit")
artic = Upload.Form("artic")
tam = Upload.Form("tam")
tam2 = Upload.Form("tam2")
tipo = Upload.Form("tipo")
targ = Upload.Form("targ")
link = Upload.Form("link")
cont = Upload.Form("cont")
tex=replace(upload.form("tex"),chr(10),"<br>")


If File2 Is Nothing Then
Set File2 = Upload.Files("fo1")
End If
If File3 Is Nothing Then
Set File3 = Upload.Files("fo1")
End If
  ' Build ODBC connection string
  Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../noticias.mdb")
' Connect = "Provider=SQLOLEDB;Server=SRV;Database=mydb;UID=sa;PWD=xxx"
   ' Use ADO Recordset object
   Set rs = Server.CreateObject("adodb.recordset")

   ' Reopen recordset to insert file
   rs.Open "not", Connect, 2, 3

   rs.AddNew
   
   rs("fo1") = File1.FileName
   rs("fo2") = File2.FileName
   rs("arc") = File3.FileName
   rs("tit") = tit
   rs("artic") = artic
   rs("tex") = tex
   rs("tam") = tam
   rs("tam2") = tam2
   rs("tipo") = tipo
   rs("targ") = targ
   rs("link") = link
   rs("cont") = cont
   rs("fecha")=now()
   rs.Update

   Response.write "<META HTTP-EQUIV='Refresh' CONTENT='2;URL=noticias_main.asp?url=1'>"
  Response.Write "<p>&nbsp;</p><table width='301' border='0' align='center' cellpadding='0' cellspacing='0' class='bordenegro'><tr><td align='center' valign='middle'><p>&nbsp;</p><b>:: Datos Guardados ::</b><p>&nbsp;</p></tr></td></table>"
Gracias de antemano.
__________________
Un mundo sin fin... !!! viva los moros y cristianos de ELDA !!!

Última edición por ken-obi; 24/08/2004 a las 14:24
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:57.