<%@LANGUAGE="VBSCRIPT"%> [an error occurred while processing this directive] <% ' *** Restrict Access To Page: Grant or deny access to this page If (Session("login") = "") Then Response.Redirect("login.asp") %> <% 'Retorna de acuerdo a la evaluacion de la expresion Function IIT(Expresion, TrueValue, FalseValue) If Eval(Expresion) Then IIT = TrueValue Else IIT = FalseValue End If End Function %> <% Dim insertok insertok = false If (Request.Form("submit") <> "") Then Set rsUpdateUser = Server.CreateObject("ADODB.Recordset") rsUpdateUser.ActiveConnection = MM_cnnGSETEL_STRING rsUpdateUser.CursorType = 1 'adOpenKeyset rsUpdateUser.CursorLocation = 2 'adUseServer rsUpdateUser.LockType = 3 'adLockOptimistic rsUpdateUser.Source = "dUsuarios" rsUpdateUser.Filter = "idusuario = " & Session("idusuario") rsUpdateUser.Open() rsUpdateUser("nombre") = Request.Form("nombre") rsUpdateUser("primerapell") = Request.Form("primerapell") rsUpdateUser("segundoapell") = Request.Form("segundoapell") rsUpdateUser("correousuario") = Request.Form("correousuario") rsUpdateUser.Update rsUpdateUser.Close 'Actualizo los datos en la tabla dClientes rsUpdateUser.Source = "dClientes" rsUpdateUser.Filter = "idcliente = " & Session("idusuario") rsUpdateUser.Open If rsUpdateUser.EOF Then 'Si no hay datos inserto un registro nuevo rsUpdateUser.AddNew() rsUpdateUser("idcliente") = Session("idusuario") End If rsUpdateUser("idtipopersona") = Request.Form("idtipopersona") 'If (Request.Form("idtipopersona")=2) Then rsUpdateUser("empresa")= Request.Form("empresa") rsUpdateUser("giroempresa")= Request.Form("giroempresa") rsUpdateUser("rfc")= Request.Form("rfc") 'Datos de facturacion rsUpdateUser("calle")= Request.Form("calle") rsUpdateUser("noexterno")= Request.Form("noexterno") rsUpdateUser("nointerno")= Request.Form("nointerno") rsUpdateUser("entre")= Request.Form("entre") rsUpdateUser("yentre")= Request.Form("yentre") rsUpdateUser("colonia")= Request.Form("colonia") rsUpdateUser("cp")= Request.Form("cp") rsUpdateUser("delegacion")= Request.Form("delegacion") rsUpdateUser("estado")= Request.Form("estado") rsUpdateUser("telefonos")= Request.Form("telefonos") rsUpdateUser("fax")= Request.Form("fax") rsUpdateUser("correo")= Request.Form("correo") rsUpdateUser("web")= Request.Form("web") rsUpdateUser("observacion")= Request.Form("observacion") direnviomisma = (Request.Form("direnviomisma") <> "") rsUpdateUser("direnviomisma")= IIT(direnviomisma,-1,0) 'Datos de envio diferentes rsUpdateUser("calleenvio")= Request.Form("calleenvio") rsUpdateUser("noexternoenvio")= Request.Form("noexternoenvio") rsUpdateUser("nointernoenvio")= Request.Form("nointernoenvio") rsUpdateUser("entreenvio")= Request.Form("entreenvio") rsUpdateUser("yentreenvio")= Request.Form("yentreenvio") rsUpdateUser("coloniaenvio")= Request.Form("coloniaenvio") rsUpdateUser("cpenvio")= Request.Form("cpenvio") rsUpdateUser("delegacionenvio")= Request.Form("delegacionenvio") rsUpdateUser("estadoenvio")= Request.Form("estadoenvio") rsUpdateUser("telefonosenvio")= Request.Form("telefonosenvio") rsUpdateUser("faxenvio")= Request.Form("faxenvio") rsUpdateUser("correoenvio")= Request.Form("correoenvio") rsUpdateUser("webenvio")= Request.Form("webenvio") rsUpdateUser("observacionenvio")= Request.Form("observacionenvio") rsUpdateUser.Update rsUpdateUser.Close 'Response.Redirect("clientpage.asp") insertok =true End If '(Request.Form("submit") <> "") %> <% Dim rsUser Dim rsUser_numRows Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.ActiveConnection = MM_cnnGSETEL_STRING rsUser.Source = "SELECT dUsuarios.idusuario, dUsuarios.nombre, dUsuarios.primerapell, dUsuarios.segundoapell, dUsuarios.correousuario, dUsuarios.login, dUsuarios.password, dUsuarios.idtipousuario, dClientes.idtipopersona, dClientes.descuento, dClientes.rfc, dClientes.empresa, dClientes.giroempresa, dClientes.calle, dClientes.noexterno, dClientes.nointerno, dClientes.entre, dClientes.yentre, dClientes.colonia, dClientes.cp, dClientes.delegacion, dClientes.estado, dClientes.telefonos, dClientes.fax, dClientes.correo, dClientes.web, dClientes.observacion, dClientes.calleenvio, dClientes.noexternoenvio, dClientes.nointernoenvio, dClientes.entreenvio, dClientes.yentreenvio, dClientes.coloniaenvio, dClientes.cpenvio, dClientes.delegacionenvio, dClientes.estadoenvio, dClientes.telefonosenvio, dClientes.faxenvio, dClientes.correoenvio, dClientes.webenvio, dClientes.observacionenvio, dClientes.direnviomisma FROM dUsuarios LEFT JOIN dClientes ON dUsuarios.idusuario = dClientes.idcliente WHERE ((dUsuarios.idusuario=" & Session("idusuario") & "));" rsUser.CursorType = 0 rsUser.CursorLocation = 2 rsUser.LockType = 1 rsUser.Open() rsUser_numRows = 0 %> <% Dim rsTiposPersona Dim rsTiposPersona_numRows Set rsTiposPersona = Server.CreateObject("ADODB.Recordset") rsTiposPersona.ActiveConnection = MM_cnnGSETEL_STRING rsTiposPersona.Source = "SELECT idtipopersona, tipopersona FROM nTiposPersona ORDER BY tipopersona ASC" rsTiposPersona.CursorType = 0 rsTiposPersona.CursorLocation = 2 rsTiposPersona.LockType = 1 rsTiposPersona.Open() rsTiposPersona_numRows = 0 %> GSETEL- Grupo de Servicios Telemáticos
<%if (Session("login")="") then %> Registrése
Identifíquese
 <%else%> Terminar sesión
Opciones de usuario
<%end if%>
Ir a InicioDesarrolloServiciosEquipamientoCapacitación  
Usted esta aquí >> Área de usuarios / Modificar datos de usuario <%if (Session("login")<>"") then%>
Usuario: <%=Session("login")%> <%end if%>

opciones de usuario
:: Modificar datos
:: Cambiar contraseña

<%If (insertok = false) Then%>

Modificar datos del usuario
Nombre:
" maxlength="25">
Primer apellido:
" maxlength="25">
Segundo apellido:
" maxlength="25">
Correo eléctronico:
" maxlength="25">
Tipo de persona:
Empresa:
">
Giro de la empresa:
">
RFC:
">

name="direnviomisma" type="checkbox" id="direnviomisma" value="checkbox" onClick="EnableAddress()"> La dirección de facturación es la misma que la de envío

  Dirección de Facturación
Calle: ">
Número externo: ">
Número interno: ">
Entre: ">
Y: ">
Colonia: ">
Código postal: ">
Delegación: ">
Estado: ">
Teléfonos: ">
FAX: ">
Correo: ">
Web: ">
Observación:

Dirección de Envío
">
">
">
">
">
">
">
">
">
">
">
">
">



<% Else %> Sus datos fueron insertados en el sistema. <% End If %>
    Copyright © 2004. Todos los derechos reservados. Gsetel    
<% rsTiposPersona.Close() Set rsTiposPersona = Nothing %>