<%if Request("oculto")="1" then
dim id_var
dim empresa_var
dim persona_var
dim email_var
dim telefono_var
dim fax_var
dim fecha_var
dim hora_var
dim descripcion_var
dim acond_var
dim cantidad_var
dim caracteristicas_var
dim tipo_var
dim mpr_var
dim proceso_var
dim residuo_var
dim tipoalm_var
dim lugaralm_var
dim direccion_var
dim rasda_var
dim cargo_var
direccion_var=Request("direccion_txt")
rasda_var=Request("rasda_txt")
cargo_var=Request("cargo_txt")
empresa_var=Request("empresa_txt")
persona_var=Request("persona_txt")
email_var=Request("email_txt")
telefono_var=Request("telefono_txt")
fax_var=Request("fax_txt")
fecha_var = date
hora_var = time
tipo_var=1
mpr_var=0
sql="select max(id) as mayor from recicla_afiliado"
registros.Open sql,conexion,1
id_var=registros("mayor")+1
If id_var="" then
id_var=1
End If
registros.close
if request("R4")="V1" then
tipo_var=1
else
tipo_var=2
end if
if request("R1")="Sólido" then
descripcion_var=1
end if
if request("R1")="Líquido" then
descripcion_var=3
end if
if request("R2")="Granel" then
acond_var=1
end if
if request("R2")="Bolsas" then
acond_var=2
end if
if request("R2")="Tambores" then
acond_var=3
end if
if request("R3")="Kg" then
if Request("mensual_txt")<>"" then
cantidad_var=cantidad_var + Request("mensual_txt") + " Kg Mensual"
end if
if Request("anual_txt")<>"" then
cantidad_var=cantidad_var + Request("anual_txt") + " Kg Anual"
end if
end if
if request("R3")="Ton" then
if Request("mensual_txt")<>"" then
cantidad_var=cantidad_var + Request("mensual_txt") + " Ton Mensual"
end if
if Request("anual_txt")<>"" then
cantidad_var=cantidad_var + Request("anual_txt") + " Ton Anual"
end if
end if
caracteristicas_var=Request("caracteristicas_txt")
proceso_var=Request("proceso_txt")
residuo_var=Request("residuo_txt")
tipoalm_var=Request("tipoalm_txt")
lugaralm_var=Request("lugaralm_txt")
sql="select * from recicla_afiliado"
registros.Open sql,conexion,1
registros.AddNew
registros("id")=id_var
registros("empresa")=empresa_var
registros("persona")=persona_var
registros("email")=email_var
registros("telefono")=telefono_var
registros("fax")=fax_var
registros("fecha")=fecha_var
registros("hora")=hora_var
registros("material")=descripcion_var
registros("acond")=acond_var
registros("cantidad")=cantidad_var
registros("caracteristicas")=caracteristicas_var
registros("tipo")=tipo_var
registros("mpr")=mpr_var
registros("activo")=0
registros("nombre")=residuo_var
registros("proceso")=proceso_var
registros("tipoalm")=tipoalm_var
registros("lugaralm")=lugaralm_var
registros("direccion")=direccion_var
registros("rasda")=rasda_var
registros("cargo")=cargo_var
registros.Update
registros.Close
conexion.Close
dim Mailer
dim correo
dim suscriptor
Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")
Mailer.ContentType = "text/html"
Mailer.CharSet = 2
Mailer.RemoteHost = "mail.ciec.org.ve"
Mailer.FromName = Request.Form("persona_txt") & ", " & Request.Form("empresa_txt")
Mailer.FromAddress= "info@ciec.org.ve"
Mailer.Subject = "Nueva Oferta/Demanda en la bolsa de residuos RECICLA"
dim hoy,anio
dim mes,anno,estedia,dia,diasemana
dim misemana,mimes
diasemana=weekday(now)
dia=day(now)
mes=month(now)
anno=year(now)
select case diasemana
case 1 misemana="Domingo"
case 2 misemana="Lunes"
case 3 misemana="Martes"
case 4 misemana="Miercoles"
case 5 misemana="Jueves"
case 6 misemana="Viernes"
case 7 misemana="Sabado"
end select
select case mes
case 1 mimes="enero"
case 2 mimes="febrero"
case 3 mimes="marzo"
case 4 mimes="abril"
case 5 mimes="mayo"
case 6 mimes="junio"
case 7 mimes="julio"
case 8 mimes="agosto"
case 9 mimes="septiembre"
case 10 mimes="octubre"
case 11 mimes="noviembre"
case 12 mimes="diciembre"
end select
anio=Cstr(anno)
estedia = misemana +", "+Cstr(dia)+" de "+ mimes +" de "+Cstr(anno)
Mailer.BodyText = " | "&estedia&" | | Cámara de Industriales del Estado Carabobo | | Bolsa de Residuos RECICLA | | | | ¡Nuevo registro en RECICLA! | | | Saludos, sus datos serán revisados de acuerdo al material indicado y se le informará oportunamente.
Sus datos:
Empresa: "& empresa_var &"
Persona contacto: "& persona_var &"
email: "& email_var &"
Teléfono: "& telefono_var &"
MPR: "& residuo_var &"
Características: "& caracteristicas_var&" | | | 
| | |
| Para mas información visite:www.ciec.org.ve/recicla | | | | Todos nuestros mensajes están 100% libre de Virus ya que no contienen ningún dato adjunto. En caso de recibir un mensaje que Usted crea que provenga de nosotros con un dato adjunto, elimínelo inmediatamente.Bajo el decreto S.1618 titulo 3ro. Aprobado por el 105 congreso base de las normativas internacionales sobre SPAM, este E-mail no podrá ser considerado SPAM mientras incluya una forma de ser removido. CIEC posee una rígida política contra el email basura y el SPAM. Por favor, si usted no quiere recibir más esta información, por favor comuníquese con nosotros: info@ciec.org.ve y le daremos de baja inmediatamente de nuestra base de datos | | |
|
| Diseño y desarrollo: Ingeniería Web - IW | | |
|