<% If request("sub") = "y" then Dim Usuario, PassWord, Nombre, Apellido, Puesto, Agencia, c01, Telefono, Fax, Direccion, Ciudad, CP, Estado, Email, rsUsuario Usuario = Trim(Request.Form("Usuario")) Password = Replace(Trim(Request.Form("password")), "'", "''") Nombre = Trim(Request.Form("Nombre")) Apellido = Trim(Request.Form("Apellido")) Puesto = Trim(Request.Form("Puesto")) Agencia = Trim(Request.Form("Agencia")) c01 = Trim(Request.Form("c01")) Telefono = Trim(Request.Form("Telefono")) Fax = Trim(Request.Form("Fax")) Direccion = Trim(Request.Form("Direccion")) Ciudad = Trim(Request.Form("Ciudad")) CP = Trim(Request.Form("CP")) Estado = Trim(Request.Form("Estado")) Email = Trim(Request.Form("Email")) 'Checa que no haya ya una página con ese nombre Set rsUsuarios = Server.CreateObject("ADODB.Recordset") rsUsuarios.ActiveConnection = MM_connCMS_STRING rsUsuarios.CursorType = 3 rsUsuarios.CursorLocation = 2 rsUsuarios.LockType = 3 rsUsuarios.Source = "Select Usuario From Usuarios WHERE Usuario = '"&Usuario&"'" rsUsuarios.Open() '<-----------GUARDA EN BASE DE DATOS---------------------------------> 'Si no la hay la da de alta en BD If rsUsuarios.EOF Then RS.Source = "Select * From Usuarios" RS.Open() 'RS.Open "Usuarios" With RS .AddNew .Fields("Usuario") = Usuario .Fields("Password") = Password .Fields("Nombre") = Nombre .Fields("Apellido") = Apellido .Fields("Puesto") = Puesto .Fields("Agencia") = Agencia .Fields("c01") = c01 .Fields("Telefono") = Telefono .Fields("Fax") = Fax .Fields("Direccion") = Direccion .Fields("Ciudad") = Ciudad .Fields("CP") = CP .Fields("Estado") = Estado .Fields("Email") = Email .Update End With RS.close() Set RS = Nothing Session("allow") = True Session("error") = "" Session("nombre") = Nombre Session("Usuario") = Usuario Response.Redirect "Inicio.asp" Else Session("repetido") = True Session("Usuario") = "" %>

Ese nombre de usuario ya esta siendo usado, favor de elegir otro

<% PrintForm() rsUsuarios.close() Set rsUsuarios = Nothing End If Else PrintForm() End If Sub PrintForm() %>

REGISTRO EFFIE MÉXICO 2010

Detalles de la cuenta

Usuario: * (no usar acentos, ñ, &, espacios ó caracteres especiales)
Password:*
Confirmación de Password: *

Detalles del Contacto

	Nombre	Apellido
Contacto para la campaña:*
Puesto:
Nombre de la Agencia:
Nombre de Empresa anunciante:
Teléfono:
Fax:
Dirección:
Ciudad:
CP:
Estado:
Email:*

<% End Sub%>