<%@ Language=VBScript %> <% Option Explicit dim conexion, registros dim sql set conexion = Server.CreateObject ("ADODB.connection") %><% conexion.CursorLocation = 3 conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") registros.CursorLocation = 2 registros.CursorType = 2 registros.LockType = 3 if Request("oculto")<>"1" then session("clavecontacto")=request("clave") end if %> Procesamiento de Solicitudes
Estoy interesado en este material, quiero contactar a la empresa que publicó este aviso
Nombre de mi empresa    
Dirección     

Teléfono  

 

Fax  

 

Correo electrónico  

 
Nº de RASDA     

Nombre del contacto  

 
Cargo     
<%if Request("oculto")="1" then sql="select * from recicla_afiliado where id='"&session("clavecontacto")&"'" registros.Open sql,conexion,1 dim suempresa, sutelefono, suemail, sumaterial, sudescripcion, sucaracteristica suempresa=registros("empresa") sutelefono=registros("telefono") suemail=registros("email") sumaterial=registros("grupo") if registros("material")="1" then sudescripcion="En estado sólido" end if if registros("material")="2" then sudescripcion="En forma de lodo" end if if registros("material")="3" then sudescripcion="En estado líquido" end if sucaracteristica=registros("caracteristicas") dim Mailer dim correo dim suscriptor dim intro, miempresa, mitelefono, miemail, micontacto, info intro = "Estimados amigos de RECICLA, quiero contactar a la empresa que publicó el siguiente aviso:" info = "Mis datos son:" miempresa = request("empresa_txt") mitelefono = request("telefono_txt") miemail = request("email_txt") micontacto = request("persona_txt") registros.close dim id_var, direccion_var, fax_var, rasda_var, cargo_var direccion_var=request("direccion_txt") fax_var=request("fax_txt") rasda_var=request("rasda_txt") cargo_var=request("cargo_txt") sql="select max(id) as mayor from recicla_contactos" registros.Open sql,conexion,1 id_var=registros("mayor")+1 If id_var="" then id_var=1 End If registros.close sql="select * from recicla_contactos" registros.Open sql,conexion,1 registros.AddNew registros("id")=id_var registros("empresa")=miempresa registros("direccion")=direccion_var registros("telefono")=mitelefono registros("fax")=fax_var registros("email")=miemail registros("rasda")=rasda_var registros("persona")=micontacto registros("cargo")=cargo_var registros("contacto")=suempresa registros("material")=sumaterial registros("caracteristicas")=sucaracteristica registros("descripcion")=sudescripcion registros.Update registros.Close Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail") Mailer.CharSet = 2 Mailer.RemoteHost = "mail.ciec.org.ve" Mailer.FromName = request("empresa_txt") Mailer.FromAddress= "info@ciec.org.ve" Mailer.Subject = "Mensaje de afiliado a RECICLA" Mailer.BodyText = intro & chr(13) & chr(13) & "Material: " & sumaterial & chr(13) & "Descripción: " & sudescripcion & chr(13) & "Características: " & sucaracteristica & chr(13) & "Publicado por: " & suempresa & chr(13) & "Teléfono: " & sutelefono & chr(13) & "correo-e: " & suemail & chr(13) & chr(13) & info & chr(13) & "Mi empresa: " & miempresa & chr(13) & "Mi teléfono: " & mitelefono & chr(13) & "Mi correo-e: " & miemail & chr(13) & "Mi nombre es: " & micontacto Mailer.AddRecipient "Administrador de RECICLA", "recicla@ciec.org.ve" Mailer.AddBCC "Administrador de RECICLA", "cgsgesint@cantv.net" Mailer.AddBCC "Administrador de RECICLA", "ejm2@daimlerchrysler.com" Mailer.AddBCC "RECICLA", "info@ciec.org.ve" if not(Mailer.SendMail) then Response.Write Mailer.Response end if%> <% end if%>