%@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 _
& "