GSETEL- Grupo de Servicios Telemáticos

<%@LANGUAGE="VBSCRIPT"%> [an error occurred while processing this directive] <% Dim insertok insertok = false If (Request.Form("submit") <> "") Then Dim rsCheckNewUser Dim userexist userexist = false login = LCase(Replace(Request.Form("login"), "'", "''")) Set rsCheckNewUser = Server.CreateObject("ADODB.Recordset") rsCheckNewUser.ActiveConnection = MM_cnnGSETEL_STRING rsCheckNewUser.Source = "SELECT login FROM dUsuarios WHERE login = '" + login + "'" rsCheckNewUser.CursorType = 0 rsCheckNewUser.CursorLocation = 2 rsCheckNewUser.LockType = 1 rsCheckNewUser.Open() If (Not rsCheckNewUser.EOF) Then userexist = true Else Set rsAddClient = Server.CreateObject("ADODB.Recordset") rsAddClient.ActiveConnection = MM_cnnGSETEL_STRING rsAddClient.CursorType = 1 'adOpenKeyset rsAddClient.CursorLocation = 2 'adUseServer rsAddClient.LockType = 3 'adLockOptimistic rsAddClient.Source = "dUsuarios" rsAddClient.Filter = "idusuario = -1" rsAddClient.Open() rsAddClient.AddNew() rsAddClient("nombre") = login rsAddClient("primerapell") = Request.Form("primerapell") rsAddClient("segundoapell") = Request.Form("segundoapell") rsAddClient("login") = login rsAddClient("password") = Request.Form("password") rsAddClient("correousuario") = Request.Form("correousuario") rsAddClient("idtipousuario") = 1 'Cliente rsAddClient.Update() 'idcliente = rsAddClient("idusuario") rsAddClient.Close insertok = true End If rsCheckNewUser.Close() Set rsCheckNewUser = Nothing End If '(Request.Form("submit") <> "") %> <% Dim rsCheckNewUser__MMColParam rsCheckNewUser__MMColParam = "1" If (Request.Form("login") <> "") Then rsCheckNewUser__MMColParam = Request.Form("login") End If %> GSETEL- Grupo de Servicios Telemáticos

<%if (Session("login")="") then %> Registrése
Identifíquese
<%else%> Opciones de usuari o
Terminar sesión <%end if%>

Le recordamos que registrarse es GRATIS, no le compromete a nada y, a cambio, conseguirá más ventajas y opciones en la Web. Como usuario registrado, tendrá acceso a las siguientes opciones:

Realizar cotizaciones en línea
Obtener descuentos
Consultas en línea

A continuación, cumplimente los datos solicitados luego lo invitamos a que entre con su usuario y contraseña para que pueda completar el resto de los datos y pueda disfrutar de ofertas y atenciones especiales por nuestra parte.

Gracias
GSETEL.COM

Información usuario
<%If (insertok = false) Then%> <%If (userexist = true) Then%> Ya existe en nuestro sistema un usuario con el login: <%=Request.Form("login")%>, por favor seleccione otro. <%End If%>

Usuario:
Contraseña:
Confirmar contraseña:
Correo electrónico:	" maxlength="25">

<% Else %> Usted se ha registrado satisfactoriamente en gsetel.com.

<% End If %>

Conócenos I Contáctos