Buenas alguien me podría echar una mano?? el tema es que no me graba en base de datois el archivo que subo ... si que hace el upload pero no consigo que se grabe en la BBDD.
Gracias de antemano: expongo el codigo de recogida y la que gestiona el proceso:
GestInicio.asp
<form name="form1" method="post" action="SubeFoto.asp?Master=IdMaster" enctype="multipart/form-data">
<table width="500">
<tr>
<td width="50%" class="negrita"><font face="Verdana" size="2">
<label><strong>Ref Master:</strong> </label></font></td>
<td width="50%"><font size="1" face="Verdana">
<input name="RefMaster" size="30" class="Agencia" onblur="style.backgroundColor='WHITE';
style.color='006699'" onfocus="style.backgroundColor='e7ede4';
style.color='black'" readonly="yes" value="<%=rs.Fields("RefMaster").Value%>">
</td>
</tr>
<tr>
<td width="30%" class="negrita"><font face="Verdana" size="2">
<label><strong>Foto Encabezado :</strong> </label></font></td>
<td width="70%"><font size="1" face="Verdana">
<input type="file" size="30" name="Foto1"> <%=rs.Fields("Foto1").Value%><br><br>
<div align="right">
<input type="submit" value="Subir Fotografia" class="plano"></div></td>
</tr></form>
Recogemos los datos en:
SubeFoto.asp:
<%Server.ScriptTimeout = 86400 %>
<%Response.Buffer=true%>
<!--#include file="xelupload.asp"-->
<%
Dim up, fich
set up = new xelUpload
up.Upload()
%>
<!--#include file="admin.asp"-->
<!--#include file="Funciones.asp"-->
<%'Recogida de Datos de GestInicio.asp
NombreFichero = up.Form("foto1")
%>
<%
cambio=false
For each fich in up.Ficheros.Items
NombreFichero=fich.Nombre
if NombreFichero<>"" then
'Para guardarlo
' Con el nombre de fichero original:
fich.Guardar Server.MapPath("Fotografias\")
' Con otro nombre:
'fich.GuardarComo NombreFichero,Server.MapPath("Fotografias\")
cambio=true
else
cambio=false
end if
Next
'Limpiamos objeto
set up = nothing
%>
<%
AbreConexion
'Cogemos los Valores del FORM
'Asignamos las Nuevas Sessions
Session("RefMaster")=RefMaster
Session("Foto1")=NombreFichero
'Generamos la Cadena SQL
TxtSql = "UPDATE Master Set "
TxtSql = TxtSql & " Foto1 = '" & NombreFichero & "'"
TxtSql = TxtSql & " Where RefMaster='" & RefMaster & "'"
'response.write TxtSql
'response.end
Cn.Execute TxtSql
'Cerramos la Conexion
CierraConexion
%>
