Hola!!
Mi web funciona perfectamente en Local, la subida de archivos, el envio de correo, etc... todo perfecto!!!.
En local uso el archivo conexion.asp q es:
<!--#include file="cadenaconexion.asp"-->
<%
rutafichero = "ficheros\"
rutaraiz = "C:\Inetpub\wwwroot\FINAL\"
rutafoto= "C:\Inetpub\wwwroot\FINAL\"
rutafotosAlta="C:\Inetpub\wwwroot\FINAL\web\Fotos\ "
%>
<script language="JavaScript">
function nuevaventana1 (pagina,a,b)
{
open(pagina,"nueva1","toolbar=no,directories=no,sc rollbars=yes,menubar=no,resizable=yes,width=" + a + ",height=" +b);
}
</script>
Bien, el formulario de subida de fotos formfichero.asp, q es:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Subida de ficheros</title>
<style>
#precarga{
position:absolute;
width:100%;
height:100%;
top:0;
left:0;
bgcolor: #E4e7ee;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 11px;
background-color: #E4e7ee;
visibility: hidden;
}
</style>
<link rel="stylesheet" href="../style.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}
//-->
</script>
</head>
<body bgcolor="#E4e7ee">
<form name="formulario" action="grabafichero.asp" method="post" enctype="multipart/form-data">
<div id="precarga">
<center><h3><br>Cargando, espere por favor...</h3></center></div>
<table width="96%" border="0" cellspacing="0" cellpadding="0" bgcolor="#E4e7ee" class="normal">
<tr>
<td width="44%">Seleccione el fichero a subir:</td>
<td width="56%"><input name="fichero" type="file" class="normal"></td>
</tr>
<tr>
<td> </td>
<input type="hidden" name="idvehiculo" value="<%=request.QueryString("id")%>">
<td><input type="submit" name="submit" value="Subir Foto" onClick="MM_showHideLayers('precarga','','show')" class="normal"></td>
</tr>
</table>
</form>
</body>
</html>
el archivo grabafichero.asp al q hace referencia es:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<!--#include file="xelupload.asp"-->
<!--#include file="conexion.asp"-->
<title>Subida de ficheros</title>
<link rel="stylesheet" href="../style.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#E4e7ee">
<div align="center" class="normal">
<p class="normal">
<%
set rsFotosFichero = server.CreateObject("adodb.recordset")
rsFotosFichero.CursorType = 1
rsFotosFichero.CursorLocation= 3
rsFotosFichero.LockType =3
'para subir el fichero
Dim objUpload, objFich, strNombreFichero
Dim strNombre, strEdad
'Creamos el objeto
set objUpload = new xelUpload
'Recibimos el formulario
objUpload.Upload()
'Mostramos total de ficheros recibidos
'Y ahora mostramos los datos del fichero enviado:
'Lo sacamos a una variable por comodidad
set objFich = objUpload.Ficheros("fichero")
'Guardamos el fichero, con su nombre, en el directorio
'en el que se encuentra esta página
'response.Write(Server.MapPath("/upload"))
objFich.Guardar(Server.MapPath("/upload"))
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(rutafotosAlta & objFich.nombre)) Then
Response.write "Ya existe una foto con ese nombre. Renombrela para subirla al sevidor <br>"
subido = false
Else
fso.movefile Server.MapPath("/upload") & "\" & objFich.nombre,rutafotosAlta
subido = true
End If
set fso = nothing
'Y guardamos una copia, con nombre "subido.bin"
'objFich.GuardarComo("pa.bin", Server.MapPath("."))
if subido then
rsFotosFichero.open "fotos",conexion
rsFotosFichero.addnew
rsFotosFichero("id") =objUpload.Form("idvehiculo")
rsFotosFichero("nombre_foto") = objFich.nombre
rsFotosFichero.update
end if
set rsFotosFichero = nothing
set objFich = nothing
set objUpload = nothing
%>
<%if subido then%>
<strong>El fichero se ha grabado correctamente </strong></p>
<%else %>
<strong>El fichero NO se ha subido correctamente porque ya existe en el servidor </strong>
<%end if%>
<p class="normal"><strong>pulse <a href="javascript:cerrar();">aqui</a> para cerrar esta ventana</strong> </p>
</div>
<script language="JScript">
function cerrar()
{
window.opener.history.go(0)
self.opener.location.href = self.opener.location;
window.close();
}
</script>
</body>
</html>
