Hola.
Tengo una pagina donde subo una imagen al servidor y su ruta a la BD.
Lo que me pasa es que quiero recuperar l valor de la id(campo oculto) cuando entra en el case 2 y tengo dentro del formulario ENCTYPE="multipart/form-data" para subir la imagen.
Como puedo recuperar el id??? xq con lo de multipart/form-data no acepta el request.form()
Parte de mi codigo:
<body>
<p>
<%@LANGUAGE="VBSCRIPT"%>
<%response.buffer=true
Func = Request("Func")
if isempty(Func) Then
Func = 1
End if
Select Case Func
Case 1
%>
<FORM ENCTYPE="multipart/form-data" ACTION="nuevo_programa_formacion1.asp?func=2" METHOD=POST id=form1 name=form1>
<%
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={MySQL};SERVER=xxx;Port=3306;Database=xxx; Uid=xxx;Pwd=xxx;"
id=request.QueryString("id")
sqll="select * from nuevo_programa_formacion where id='"&i&"'"
set rss =con.execute(sqll)
%>
</p>
<div align="center"><strong><font size="5">CAMBIE LA IMAGEN A SU GUSTO
</font></strong><br>
</div>
<TABLE align="center">
<TR>
<TD><img src="imagenes/<%=rss("foto1")%>" alt="" name="foto1" width="150" height="150" id="foto1" /></TD>
</TR>
<TR>
<TD> <font size="2">
<INPUT NAME=File1 SIZE=30 TYPE=file>
<BR>
</font>
<input name="id" type="hidden" id="id" value="1">
<font size="2"> </font></TD>
</TR>
<TR>
<TD align=left>
<INPUT type="submit" value="Subir">
<BR>
<br>
<BR>
</TD>
</TR>
</TABLE>
<%
Case 2
ForWriting = 2
adLongVarChar = 201
lngNumberUploaded = 0
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={MySQL};SERVER=xxx;Port=3306;Database=xxx; Uid=xxx;Pwd=xxx;"
id=?????
sqll="select * from nuevo_programa_formacion where id='"&id&"'"
set rss =con.execute(sqll)
if rss("foto1")<>"" then
foto_borrar=rss("foto1")
end if
'Get binary data from form
noBytes = Request.TotalBytes
binData = Request.BinaryRead (noBytes)
'convery the binary data to a string
Set RST = CreateObject("ADODB.Recordset")
LenBinary = LenB(binData)
...
Si necesitais el codigo entero lo podeis sacar de aqui. El codigo de arriba esta algo modificado aunq es practicamente lo mismo
http://asp.astalaweb.com/C%C3%B3digo...20archivos.asp
Un saludo y gracias.