Hola Zerg, de nuevo por aqui.
Resulta que los *** de mi servidor tienen solo el componene dundas. Asi que sigo peleando para hacer mi formulario. Ahora logro subir archivos al servidor, pero no tengo idea sobre como enlazarlos para que me los manden por correo.
Envío correos con este codigo:
<%
Dim MyMail
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = "
[email protected]"
MyMail.To = "
[email protected];
[email protected]"
MyMail.Cc = "
[email protected];
[email protected]"
MyMail.Bcc = "
[email protected];
[email protected]"
MyMail.Subject = "sending email via CDONTS NewMail"
MyMail.BodyFormat = 1
MyMail.MailFormat = 0
MyMail.Importance = 2
MyMail.Body = "Sending email with CDONTS NewMail" &_
"objects is easy! Try it!"
MyMail.Attachfile "c:\path\smiley.gif", "smilefile.gif", 1
MyMail.Send , "
[email protected]", "new subject"
Set MyMail = Nothing
%>
Y subo archivos con esto:
Formulario HTML
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ejemplo</title>
</head>
<body>
<form action="DundasUpload.asp" method="post" name="formulario" EncType="Multipart/Form-Data">
<input type='Text' name='CampoTexto'>
<input type='File' name='CampoFile' >
<input type='submit' name='grabar' value='Grabar Modificacion'>
</form>
</body>
</html>
Codigo ASP
<%@Language=VBScript%>
<%
' ** Directorio Donde se Guardan las Imagenes Subidas **
PATH = "../archivos"
Set objUpload = Server.CreateObject("Dundas.Upload.2")
ObjUpload.UseUniqueNames = false
ObjUpload.MaxFileSize = 300000
ObjUpload.MaxUploadSize = 300000
ObjUpload.MaxFileCount = 2
ObjUpload.UseVirtualDir = true
ObjUpload.Save(PATH)
texto = objUpload.form("CampoTexto")
imagen = objUpload.Files("CampoFile").OriginalPath
response.write(texto)
response.write(imagen)
Set objUpload = Nothing
%>
PERO LA PREGUNTA DEL MILLÓN ES COMO HAGO PARA METER MI FLAMANTE ARCHIVO SUBIDO AL SERVIDOR PARA QUE SE ENVÍE POR MAIL?
COMO LE ASIGNO LA RUTA AL PATH DEL SERVIDOR USANDO ALGUNA MAGIA DESCONOCIDA POR MÍ?
Si tienes una idea te lo agradecería.-