<%@Language="VBScript" LCID="5130"%> <% Nombre = Request.form("nombre") Apellido1 = request.form("apellido1") Apellido2 = request.form("apellido2") Direccion = request.form("direccion") Email = request.form("email") Telefonos = request.form ("telefonos") 'SubDomino = request.form ("subdominio") 'Cuentas = request.form ("cuentas") 'PassWord = request.form ("cuentas") 'IP = request.form ("ip") 'Fecha = request.form ("fecha") Site = "/"&left(Nombre,1)&Apellido1&"/" NCompleto = Nombre &" "& Apellido1 &" "& Apellido2 fldr = Server.Mappath(site) Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FolderExists(fldr)) Then response.redirect("paso1.asp?error=Nombre ya existe") Else Set f = fso.CreateFolder(fldr) fso.copyfolder server.mappath("/archivos_comunes/machote/"),fldr Set a = fso.CreateTextFile(fldr&"/abogado.txt", True) a.writeline(nombre) a.writeline(apellido1) a.writeline(apellido2) a.writeline(direccion) a.writeline(Replace(telefonos, chr(10), "
",1,-1,0)) a.writeline(email) a.writeline("/archivos_comunes/machote/imagenes/foto.gif") a.Close Procesado = True End If %> <% ' ..:: CRÉDITOS ::.. ' Código programado e implementado por Roberto Montero para TecnoMercadeo. ' Prohibida su reproducción total o parcial sin previa autorizazción escrita. ' Medidas legales pueden y serán tomadas a quienes plagien o roben este código. ' Todos los derechos Reservados ' ..:: DETALLE ::.. ' Procesador de mensajes vía internet para ' Empresa: Biocientífica S.A. de R.L. ' Se autoriza el uso de esta página para la versión programada por Roberto Montero ' si se rediseñare este sitio por: ' a) otra empresa que no sea TecnoMercadeo Latinoamericano ' b) otro diseñador que no sea Roberto Montero Ortiz ' se suspende el período de validez del acuerdo de uso de esta página ' la publicación de esta página en un servidor web implica la lectura y aceptación de ' estos términos. ' ..:: Especificaciones ::.. ' Este código procesa formularios HTML (ASP, PHP, etc...) por medio del componente ' CDO para Windows 2000 Server If Procesado Then Dim iMsg Set iMsg = CreateObject("CDO.Message") Dim iConfMsg Set iConfMsg = CreateObject("CDO.Message") Dim iBp Dim Flds Dim iConf Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds(cdoSendUsingMethod) = cdoSendUsingPort Flds(cdoSMTPServer) = "mail.tecnomercadeo.com" Flds(cdoSMTPServerPort) = 25 Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds.Update 'Declarar las variables Dim objCDOMail 'The CDO object 'Ordenar y dar forma. asunto = "CRLegal : : : "& NCompleto &" desea crear "& site &"." mensaje = "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "CRLegal.Net | Información de Registro"& vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "
" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "
" & vbCrLf _ & "
" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "
 xxx USUARIO xxx
" & vbCrLf _ & "
" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "
" & vbCrLf _ & " " & NCompleto & ".(PARA "& Lcase(Site) &")." & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "
" & vbCrLf _ & "
 " & vbCrLf _ & "
 
" & vbCrLf _ & "
  Datos de " & NCompleto &"

" & vbCrLf _ & "Dirección: " & Direccion & ".
" & vbCrLf _ & "Teléfono: " & Telefonos & ".
" & vbCrLf _ & "E-Mail: " & Email & ".
" & vbCrLf _ & "
" & vbCrLf _ & "Presentado por xxx Usuario" & Solicitante & " xxx.

" & vbCrLf _ & "Para responder a este pedido, sírvase enviar un mensaje a : " & vbCrLf _ & ""& NCompleto &".
" & vbCrLf _ & "
" & vbCrLf _ & "
" & vbCrLf _ & "
 xxx
Para consultas sobre este sistema de registro automático póngase en contacto con TecnoMercadeo. (506) 248-0739. / (506) 361-7032 ::
" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf 'Response.Write(Mensaje) 'Crear el objeto Correo CDO 2000 Dim Destinatarios(4) Destinatarios(1) = "rmontero@tecnomercadeo.com" Destinatarios(2) = "gperalta@tecnomercadeo.com" Destinatarios(3) = "info@tecnomercadeo.com" Destinatarios(4) = "staff@tecnomercadeo.com" With iMsg Set .Configuration = iConf .To = "rmontero@tecnomercadeo.com" .From = Nombre&" "&Apellido1&"<"&Email&">" .Sender = "mailer@tecnomercadeo.com" .Subject = Asunto .HTMLBody = Mensaje .Send End With 'Enviar advertencias resumidas With iConfMsg Set .Configuration = iConf .To = "betto@checkea.com" .From = "nuevo@crlegal.net" .Sender = "mailer@tecnomercadeo.com" .Subject = "Crear" .TextBody = "Site: ("& Site & ")" .Send End With %> <% Set l = fso.CreateTextFile(Server.Mappath("/log/"&left(Nombre,1)&Apellido1&".htm"), True) l.write(Mensaje) l.close response.redirect(site) End If %>