Bueno yo tengo esta pagina, su funcion principalmente deveria ser la de escrivir en un formulario los datos de un producto, seleccionar las imagenes del producto en tu disco duro y al mandar el formulario los datos los procesa la misma pagina, subiendo por un lado el archivo del formulario en el servidor y añadiendo el resto de campos de texto a la base de datos.
El caso es que lo unico que me hace es subir las imagenes al servidor, despues de hacer varias pruevas he llegado a la conclusión de que el formulario no envia los valores de los campos, solo envia los valores del campo file (del archivo). Y creo que es por esto
enctype="multipart/form-data"
Estoy muy desesperado, he hecho un monton de cosas pero nada.
Si he de aclarar algo mas sobre el codigo y lo que pretendo, no duden en decirmelo, es muy importante que pueda hacer esto.
(añadirproducto.asp)
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="freeaspupload.asp" -->
<%
Dim uploadsDirVar
uploadsDirVar = Server.mapPath("./")
Function SaveFiles
Dim Upload, ks, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
If Err.Number <> 0 then Exit function
ks = Upload.UploadedFiles.keys
if (UBound(ks) = -1) then resumen = "No es un nombre valido en el sistema."
SaveFiles = resumen
Dim oConn2, rs
Set oConn2 = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn2.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("esto no creo que importe.mdb"))
set rssql_nuevo=oconn2.execute("insert into Productos (marca,nombre,descripcion,precio,precioclientes1,p recioclientes2,nsubcategoria) values ('"& (request.form("marca")) & "','"& (request.form("nombre")) & "','"& (request.form("descripcion")) & "','"& (request.form("precio")) & "','"& (request.form("precioclientes1")) & "','"& (request.form("precioclientes2")) & "','"& (request.form("nsubcategoria")) & "')")
end function
%>
<html>
<head>
<title>Insertar Productos</title>
<link href="../Estilos/estilo1.css" rel="stylesheet" type="text/css">
</head>
<body class="body">
<table width="100%" height="100%" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#999999" bgcolor="#000000">
<tr>
<td align="center" valign="top" class="texto">
<b>Agregar Producto:</b><br>
<p>Agrege los Productos de Z-Bombilla.
<br>Desde esta pagina usted podra ingresar un nuevo producto en la base de datos de Z-Bombilla.</p>
<form name="frmSend" method="POST"
enctype="multipart/form-data" action="añadirproducto.asp">
<table width="400" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="120" class="texto2">Marca:</td>
<td><b>
<input name="marca" type="text" class="box" id="marca" size="30">
</b></td>
</tr>
<tr>
<td class="texto2">Nombre:</td>
<td><b>
<input name="nombre" type="text" class="box" id="nombre" size="30">
</b></td>
</tr>
<tr>
<td valign="top" class="texto2">Descripcion:</td>
<td><b>
<input name="descripcion" type="text" class="box" id="descripcion" size="30">
</b></td>
</tr>
<tr>
<td class="texto2">Precio (€):</td>
<td><b>
<input name="precio" type="text" class="box" id="precio" size="30">
</b></td>
</tr>
<tr>
<td class="texto2">Precio Clientes 1 (€):</td>
<td><b>
<input name="precioclientes1" type="text" class="box" id="precioclientes1" size="30">
</b></td>
</tr>
<tr>
<td class="texto2">Precio Clientes 2 (€):</td>
<td><b>
<input name="precioclientes2" type="text" class="box" id="precioclientes2" size="30">
<input name="nsubcategoria" type="hidden" id="nsubcategoria" value="<% =Request.QueryString("Id") %>">
</b></td>
</tr>
<tr>
<td class="texto2">Foto 1:</td>
<td><b>
<input name="attach1" type="file" size="17" class="box">
</b></td>
</tr>
<tr>
<td class="texto2">Foto 2:</td>
<td><b>
<input name="attach2" type="file" size="17" class="box">
</b></td>
</tr>
<tr>
<td height="5" class="texto2"> <input name="imageField" type="image" src="Imagenes/spacer.gif" width="1" height="1" border="0">
</td>
<td height="5"> <input name="imageField2" type="image" src="Imagenes/spacer.gif" width="1" height="1" border="0"></td>
</tr>
<tr>
<td class="texto2"><input name="Submit" type="submit" class="botonBuscar" value="Aceptar"></td>
<td><input name="Submit2" type="reset" class="box" value="Restablecer"></td>
</tr>
</table>
</form>
</td></tr></table>
<%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
response.write SaveFiles()
end if
%>
</body>
</html>