Please me pueden ayudar con Upload???

Yessy · #1 (**permalink**) 03/09/2004, 11:14

llego a esta pagina con ciertos parametros, los recupero y guardo en hidden, el punto es q los guardo en un mismo formulario para luego recuperarlo en una nueva pagina y cuando quiero recuperarlo en la pag envio.asp no puedo recuperar nada y no entiendo porq no puedo hacer el upload de un archivo.

<%@ Language=VBScript %>
<%

if IsEmpty(Request.Form("archivo")) then

cat=Request.QueryString("cat")
direc=Request.QueryString("direc")
cor=Request.QueryString("cor")
titulo=Request.QueryString("titulo")
persona=Request.QueryString("persona")
empresa=Request.QueryString("empresa")
dom=Request.QueryString("dom")
dist=Request.QueryString("dist")
prov=Request.QueryString("prov")
cod=Request.QueryString("cod")
tel=Request.QueryString("tel")
fax=Request.QueryString("fax")
como1=Request.QueryString("como1")
comen=Request.QueryString("comen")

'Response.Write(cod)
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link href="style.css" type="text/css" rel="stylesheet">
<script language="javascript">

</script>
<title></title>
</head>
<body vLink="black" aLink="black" link="black" bottomMargin="0" leftMargin="0" topMargin="0" rightMargin="0">

<p>
<table cellSpacing="1" cellPadding="1" width="375" align="center" border="0">
<TBODY>

<tr>
<td bgColor="#d6e3ef" height="30">
<p align="right"><A href="javascript:cerrar();"><font color="coral"><IMG height=9 src="image/cerrar.gif" width=10 border=0> cerrar</font><a></p></A></td></tr>
<tr>
<td vAlign="top" align="right" bgColor="#527173">
<table style="WIDTH: 355px" cellSpacing="1" cellPadding="1" width="355" align="center" border="0">
<TBODY>

<tr>
<td style="HEIGHT: 40px" height="40">
<table style="WIDTH: 331px" cellSpacing="1" cellPadding="1" width="331" align="right" border="0" id="Tabla" runat="server"><TBODY>

<tr>
<td style="HEIGHT: 4px" vAlign="center" height="4" colSpan="2"> </td></tr>
<tr><form id="Form1" method="post" ENCTYPE="multipart/form-data" >
<td vAlign="center" height="30" colSpan="2">
<input name="archivo" id="archivo" style="BORDER-RIGHT: black 1px inset; BORDER-TOP: black 1px inset; FONT-SIZE: 8pt; BORDER-LEFT: black 1px inset; WIDTH: 99%; BORDER-BOTTOM: black 1px inset; FONT-FAMILY: arial; HEIGHT: 18px" type="file" size="45" >

</td></tr>
<tr>
<td colSpan="2" style="HEIGHT: 5px" height="5"></td></tr>
<tr>
<td align="left" width="50%"><A href="javascript:enviar();"><IMG id=IMG1 style="LEFT: 117px; TOP: 1px" height=18 src="image/bot_enviar.gif" width=127 border=1></a></td> <td align="middle" width="50%"></td></tr>
<tr>
<td style="WIDTH: 50%; HEIGHT: 8px" align="middle" width="50%" height="8">

<input id="cat" name="cat" type="hidden" value="<%=cat%>">
<input id="direc" name="direc" type="hidden" value="<%=direc%>">
<input id="titulo" name="titulo" type="hidden" value="<%=titulo%>">
<input id="cor" name="cor" type="hidden" value="<%=cor%>">
<input id="persona" name="persona" type="hidden" value="<%=persona%>">
<input id="empresa" name="empresa" type="hidden" value="<%=empresa%>">
<input id="dom" name="dom" type="hidden" value="<%=dom%>">
<input id="dist" name="dist" type="hidden" value="<%=dist%>">
<input id="prov" name="prov" type="hidden" value="<%=prov%>">
<input id="cod" name="cod" type="hidden" value="<%=cod%>">
<input id="tel" name="tel" type="hidden" value="<%=tel%>">
<input id="fax" name="fax" type="hidden" value="<%=fax%>">
<input id="como1" name="como1" type="hidden" value="<%=como1%>">
<input id="comen" name="comen" type="hidden" value="<%=comen%>">
</form></td>
<td style="WIDTH: 50%; HEIGHT: 8px" align="middle" width="50%" height="8">
</td></tr></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></P>

</body>
</html>

el codigo para el upload del archivo es el siguiente, avisenmme si esta mal, please es urgente!!!....

<%

archivo = Request.Form("archivo")

'env1= Request.QueryString("env")
cat1=Request.Form ("cat")
direc1=Request.Form("direc")
cor1=Request.Form("cor")
titulo1=Request.Form("titulo")
persona1=Request.Form("persona")
empresa1=Request.Form("empresa")
dom1=Request.Form("dom")
dist1=Request.Form("dist")
prov1=Request.Form("prov")
cod1=Request.Form("cod")
tel1=Request.Form("tel")
fax1=Request.Form("fax")
como11=Request.Form("como1")
comen1=Request.Form("comen")
'Response.Write(cod1)

'Response.Write(Request.Form())
'Response.Write("<br>")
'Response.Write(Request.QueryString())

'end if
if archivo<>"" then
Dim Upload
Set Upload = Server.CreateObject("SoftArtisans.FileUp")
Upload.Path = Server.MapPath("../banner")

if Not Upload.Form("archivo").IsEmpty Then
Upload.Form("archivo").Save
end if
%>

archivo es lo q recupero del imput type=file....
please ayudenme!!!!