ASPUPLOAD

jossephb
19 de Diciembre del 2005
Hola a todos.. tengo un formulario un un campo "file".. y con unos campos de texto.. cuando le doy en el botón enviar estando todos los campos llenos este lo hace perfectamente.... el problem es que cuando envio el form sin el campo file lleno .... no me guarda nada......
aquí pongo el código para el que me pueda ayudar....gracias
codigo:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
dir = Server.MapPath("archivosAdj")
Upload.Save dir
session("ruta")=server.MapPath("concurso.mdb")
cadenaConex = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & session("ruta")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open cadenaConex
nombre=Upload.Form("nombre")
descripcion=Upload.Form("descripcion")
empresa=Upload.Form("empresa")

For Each File in Upload.Files
archivoAdj=Upload.form("adjunto")

query1="SELECT * FROM casos WHERE casnombre ='"&nombre&"'"
Set RS1 = Server.CreateObject("ADODB.Recordset")
RS1.Open query1, conn
if RS1.EOF and RS1.BOF then
query2="INSERT INTO casos (casnombre, casdescrip, casempresa, casarchivo) VALUES ('"&nombre&"','"&descripcion&"','"&empresa&"','archivosAdj/"&file.filename&"')"
Set RS2 = Server.CreateObject("ADODB.Recordset")
RS2.Open query2, conn
'Response.write (query2)
Response.Redirect "ingresarcasos.asp"
else
Response.Write("El caso ya habia sido registrado")
end if
next
%>

jossephb
19 de Diciembre del 2005
Relajesen todos que ya solucioné este problemita....gracias de todas formas ........