<%if Request("oculto")="1" then
dim id_var
dim fecha_var
dim hora_var
dim tipo_var
dim mpr_var
dim empresa_var
dim direccion_var
dim telefono_var
dim fax_var
dim email_var
dim rasda_var
dim registro_var
dim persona_var
dim cargo_var
dim produccion_var
dim hojas_var
dim laboratorio_var
dim nrolab_var
dim nombrematerial_var
dim proceso_var
dim olor_var
dim color_var
dim ph_var
dim caracteristicas_var
dim peligrosidad_var
dim quimica_var
dim lixiviados_var
dim riesgo_var
dim tipoalmacen_var
dim lugaralmacen_var
dim cas_var
dim onu_var
dim descripcion_var
dim grupo_var
dim codigo_var
dim acond_var
dim cantidad_var
dim densidad_var
dim volumen_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")
nombrematerial_var=Request("nombrematerial_txt")
proceso_var=Request("proceso_txt")
tipoalmacen_var=Request("tipoalmacen_txt")
lugaralmacen_var=Request("lugaralmacen_txt")
cargo_var=Request("cargo_txt")
produccion_var=Request("produccion_txt")
hojas_var=Request("hojas_txt")
laboratorio_var=Request("laboratorio_txt")
nrolab_var=Request("nrolab_txt")
olor_var=Request("olor_txt")
color_var=Request("color_txt")
ph_var=Request("ph_txt")
quimica_var=Request("quimica_txt")
lixiviados_var=Request("lixiviados_txt")
if request("R4")="V1" then
riesgo_var=Request("riesgo_cmb")
else
riesgo_var=0
end if
cas_var=Request("cas_txt")
onu_var=Request("onu_txt")
fecha_var = date
hora_var = time
mpr_var=1
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("R5")="V2" then
registro_var="La empresa no es manejadora"
else
registro_var=Request("registro_txt")
end if
grupo_var=Request("grupo_cmb")
codigo_var=Request("codigo_cmb")
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
densidad_var=Request("densidad_txt")
volumen_var=Request("volumen_txt")
caracteristicas_var=Request("caracteristicas_txt")
if request("C2")="ON" then
peligrosidad_var=peligrosidad_var & " Inflamable"
end if
if request("C3")="ON" then
peligrosidad_var=peligrosidad_var & " Reactivo"
end if
if request("C4")="ON" then
peligrosidad_var=peligrosidad_var & " Corrosivo"
end if
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("grupo")=grupo_var
registros("codigo")=codigo_var
registros("acond")=acond_var
registros("cantidad")=cantidad_var
registros("densidad")=densidad_var
registros("volumen")=volumen_var
registros("caracteristicas")=caracteristicas_var
registros("peligrosidad")=peligrosidad_var
registros("tipo")=tipo_var
registros("mpr")=mpr_var
registros("activo")=0
registros("direccion")=direccion_var
registros("rasda")=rasda_var
registros("cargo")=cargo_var
registros("registro")=registro_var
registros("produccion")=produccion_var
registros("hojas")=hojas_var
registros("laboratorio")=laboratorio_var
registros("nrolab")=nrolab_var
registros("nombre")=nombrematerial_var
registros("proceso")=proceso_var
registros("olor")=olor_var
registros("color")=color_var
registros("ph")=ph_var
registros("quimica")=quimica_var
registros("lixiviados")=lixiviados_var
registros("cargo")=cargo_var
registros("tipoalm")=tipoalmacen_var
registros("lugaralm")=lugaralmacen_var
registros("cas")=cas_var
registros("onu")=onu_var
registros("riesgo")=riesgo_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 = "Valencia, "+ 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: "& nombrematerial_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 | | |
|