<%
Set BD = Server.CreateObject("ADODB.Connection")
BD.Open "iconoinformatica.com.plantemos"
Set BaseDatos = Server.CreateObject("ADODB.Recordset")
Set BaseDatos1 = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM contador WHERE id_contador=1"
BaseDatos.Open sql, BD
Plantados = BaseDatos("Plantados")
Comprometidos = BaseDatos("comprometidos")
BaseDatos.close
p1 = left(Plantados,1)
p2 = mid(Plantados,2,1)
p3 = mid(Plantados,3,1)
p4 = mid(Plantados,4,1)
p5 = mid(Plantados,5,1)
p6 = mid(Plantados,6,1)
p7 = mid(Plantados,7,1)
p8 = mid(Plantados,8,1)
c1 = left(Comprometidos,1)
c2 = mid(Comprometidos,2,1)
c3 = mid(Comprometidos,3,1)
c4 = mid(Comprometidos,4,1)
c5 = mid(Comprometidos,5,1)
c6 = mid(Comprometidos,6,1)
c7 = mid(Comprometidos,7,1)
c8 = mid(Comprometidos,8,1)
%>
<%
operacion = request("operacion")
if operacion="" then
operacion="LISTADO"
end if
if operacion="ENVIAR" then
nombre = request("txtnombre")
cargo = request("txtcargo")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.sauco.es"
Mail.Username = "faw438c"
Mail.Password = "Info07"
Mail.AddAddress "info@mundobrain.com"
Mail.From = "info@sauco.es"
Mail.FromName ="COLABORACION INSITUCIONAL PLANTEMOS PARA EL PLANETA"
Mail.Subject = "WEB PLANTEMOS PARA EL PLANETA"
Mail.Body = "Contacto:"&request("contacto")&" Institucion:"&request("institucion")&" Mail:"&request("mail")&" Telefono: "&request("telefono")&" Como nos ha conocido: "&request("como")&" Comentarios: "&request("comentarios")&" "
Mail.IsHTML = True
'On error Resume Next
Mail.Send
If Err<>0 then
Response.write "Ha ocurrido un error: "&Err.Description
End if
end if
%>
Plantemos para el Planeta: Campaña de los mil millones de árboles.