Autorespondedor Con ASP Este es un autorespondedor con asp pero yo quiero que cuando alguien se suscriba a mi pagina web le llegue esto automaticamente despues de suscribirse, pero mi problema es que no se como enviarle un archivo adjunto
que es lo que deseo, porque en el archivo quiero que tambien este el logo de la pagina. si me pueden ayudar se los agradesere, bueno este script esta perfecto solo para cadenas si lo quieren usar. bueno me despido, rogandoles por su ayuda
<%
nombre = request.form("nombre")
email = request.form("email")
if email = "" OR nombre = "" then
Response.write "hay errores en la pagina web"
Response.write "del para atras"
else if InStr(email, "@") = 0 OR InStr(email, ".") = 0 OR Len(email) < 5 then
Response.Write "<BR> <BR>Hay errores en el formulario o faltan datos."
Response.Write "<BR>Presionar Atras y completarlo correctamente"
else
response.Write("pajuo")
dim con
con = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("general.mdb")
set conn = server.createobject("ADODB.connection")
conn.open(con)
dim sql
sql = "insert into prueba (nombre, email, documento) values ('" & nombre&"', '" & email &"', '" & documento &"')"
set RS = conn.execute(sql)
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = "Mazary.com"
Mail.To = email
Mail.Subject = "Bienvenido"
strMsg = nombre
strMsg = strMsg & "" & vbCrLf
strMsg = strMsg & " Hola Ante todo mis mas cordiales saludos." & vbCrLf
strMsg = strMsg &"Me dirijo a usted con la finalidad de ofrecerles mis servicios ya que poseo el perfil de trabajo que ustedes colocaron el la pagina web de computrabajo." & vbCrLf
strMsg = strMsg & "" & vbCrLf
strMsg = strMsg &"Ya he trabajado con programacion en asp, tambien conexiones a Databases MySQL y en estos momentos ya puedo decir que poseo cierto dominio de PHP." & vbCrLf
strMsg = strMsg &"Espero que visiten este link que es mi curriculum:" & vbCrLf
strMsg = strMsg & "http://www.computrabajo.com.ve/cvs/anledry." & vbCrLf
strMsg = strMsg &"sin mas nada que agragar espero una positiva y pronta respuesta" & vbCrLf
strMsg = strMsg &"atte. Anledry Cobos" & vbCrLf
Mail.Body = strMsg
Mail.Send
Set Mail= nothing
%>
<%
conn.close
end if
end if
%>
