Insertar datos de usuaros desde ASP a una Tabla de usuarios en SQL

CSPCHILE · #1 (**permalink**) 11/05/2011, 09:41

Hola Amigos les solicito la ayuda de uds, en un problema del cual no puedo salir, les explico, con un amigo que sabe mas que yo en programacion, hicimos una pagina x, el tema esta en que esta pagina tiene un modulo de altas de usuarios, esos usuarios deben quedar registrados en una BDD (base de datos) en SQL 2008, los datos los tomamos en ASP (clasico con dreamweaver) y los enviamos a SQL, sin embargo creeamos un Procedimiento almacenado (SP) para que tome los datos y los inserte en la tabla respectiva llamada usuarios....

lamentablemente mi amigo, esta en periodo de examenes y no me puede ayudar y yo no tengo a quien recurrir, el tema es que hice la programacion en ASP segun lo que he aprendido... e hice el procedimiento almacenado del cual no estoy seguro que esta bien y estoy mas que seguro que algo falta....

A ver si me puden ayudar a terminar mi aplicacion, a fin de solucionar este inconveniente del cual me siento en encerrado sin poder recibir ayuda...

les mostrare lo que yo programe en ASP, despues les mostrare mi Procedimiento almacenado.

Una obserbacion, en esta alta de usuarios, donde importa el rut, no se como validar el rut, es decir que si existe en la BDD arroje mensaje de que ya existe...,

Lo otro, esta alta de usuario asigna una clave por defecto, esa clave solo se inserta en el procedimiento almacenado, no es algo que haga el usuario o se haga por programacion en ASP, asi que asumo que me insertaria la clave en el campo determinado como password.

Los campos a llenar en la tabla de usuarios son:

Rut
dv (digito verificador)
Sga (nombre de la cuenta de usuario)
Nombre
Supervisor
Plataforma
password

En fin amigos POR FAVOR AYUDENME!!!...ya que en realidad no se como salir de este entuerto.-

en fin esto es lo que tengo:

Programacion ASP:


<%
rut=request.Form("Usuarios")
dv=request.Form("DV")
nombre=request.QueryString("nombre")
sga=request.QueryString("sga")
supervisor=request.QueryString("supervisor")

if rut<>"" and Dv<>"" then
set cmd= server.CreateObject("ADODB.recordset")
cmd.activeconnection=cnn
'sql1="exec insertar '"&pro&"','"&rut3&"','"&movil&"','"&cros&"'"
sql="exec InsAltaUsuarios '"&nombre&"','"&sga&"','"&supervisor&"','"&platafo rma&"'"
cmd.source=sql
cmd.open
rut=""
Dv=""
end if

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Alta Usuarios Cross Selling</title>
</head>
<script language="javascript">

</script>
<body>

<form name="AltaUsuarios">
<table>
<tr>
<td>Rut: </td>
<td><input name="rut" type="text" id="rut" onkeypress="mis_datos()"size="8" maxlength="8" />
-
<input name="Dv" type="text" id="Dv" size="3" maxlength="1" /></td>
</tr>
<tr>
<td>Nombre + Apellidos: </td>
<td><input name="nombre" type="text" size="30" maxlength="100" /></td>
</tr>

<tr>
<td>Usuario SGA: </td>
<td><input name="Sga" type="text" id="Sga" value="Tp_" size="30" maxlength="100" /></td>
</tr>

<tr>
<td>Supervisor:</td>
<td>
<select name=supervisor>
<option value="Cta_Controlada">OSCAR RUZ
<option value="Cta_Controlada">CAROL DONOSO
<option value="Cta_Controlada">NATALIA MAULEN
<option value="Cta_Controlada">GONZALO RODRIGUEZ
<option value="Suscripcion_AV">LORENA SILVA
<option value="Suscripcion_AV">DANIEL CANIHUANTE
<option value="Suscripcion_AV">SEBASTIAN QUEZADA
<option value="Monitor_CX">MIXI ARMIJO
<option value="Prepago">CLAUDIA LEON
<option value="Prepago">ELIZABETH PEZOA
<option value="Prepago">RODRIGO ACEVEDO
<option value="Prepago">JOCELYN BENAVENTE
<option value="Pyme-C">RICHARD VEGA
<option value="Pyme-C">NATALIA ARAYA
<option value="Pyme-C">CLAUDIO ASTETE
<option value="Suscripciones">RUBEN LUNA
<option value="Suscripciones">PAULINA SOTO
<option value="Suscripciones">WILLIAMS GUERRA
</select>
</td>
</tr>
<tr>
<td>Plataforma: </td>
<td>
<select name=plataforma>
<option value="Cta_Controlada">CUENTA CONTROLADA
<option value="Suscripcion_AV">DESB. SUSCRIPCION ALTO VALOR
<option value="Monitor_CX">MONITOR CROSS SELLING
<option value="Prepago">PREPAGO INTEGRAL
<option value="Pyme">PYME-C
<option value="Suscripcion">SUSCRIPCIONES
</select>
</td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="enbiar" id="enviar" onclick="this.form.submit();" value="Enviar">

</table>
</form>

Procedimiento Almacenado (SP) en SQL:

USE [TEST_DATABASE]
GO
/****** Object: StoredProcedure [dbo].[InsAltaUsuarios] Script Date: 05/11/2011 10:49:52 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[InsAltaUsuarios](@Rut nvarchar(50),@Dv nvarchar(50),@SGA nvarchar(255),@Nombre nvarchar(255), @Supervisor nvarchar(255), @Plataforma nvarchar(255),@Password nvarchar(10))
As
insert into usuarios(RUT,DV,SGA,NOMBRE,SUPERVISOR,PLATAFORMA,P ASSWORD) values (@Rut,@Dv,@SGA,@Nombre,@Supervisor,@Plataforma,'tp chile')

Mil GRACIAS
SALUDOS
CRISTIAN S.

mc_quake · #2 (**permalink**) 12/05/2011, 21:53

1 para verificar si existe el rut sugiero crear un quary en el cual tenga como condicion rut e div igual al campo rut y div enviado del formulario

y hagas un if con la propiedad record.count

y la para la clave aleatoria usa la funcion Randomize, para crear una clave y pasarsela por parametro a tu SP de insert

Joch_pa · #3 (**permalink**) 15/05/2011, 01:55

como sugerencia y un poco de seguridad, utiliza el envio de los datos por el form

<form name="x" method="post">

y recuperalos por request.form

y en tu SP agrega o modifica con algo asi para la validacion del rut

Código SQL:

Ver originalALTER PROCEDURE dbo.InsAltaUsuarios
     @Rut nvarchar(50)
    , @Dv nvarchar(50)
    , @SGA nvarchar(255)
    , @Nombre nvarchar(255)
    , @Supervisor nvarchar(255)
    , @Plataforma nvarchar(255)
    , @Password nvarchar(10)
AS
 
IF EXISTS(SELECT rut FROM usuarios WHERE rut=@Rut)
BEGIN
      --rut repetido
      SELECT 'rut repetido'
END
ELSE
BEGIN
      --rut nuevo
     INSERT INTO usuarios
              (RUT,DV,SGA,NOMBRE,SUPERVISOR,PLATAFORMA,P ASSWORD) 
     VALUES
              (@Rut,@Dv,@SGA,@Nombre,@Supervisor,@Plataforma,@Password )
     SELECT @Password 
END
 
GO

ya con eso, en tu ASP modificarlo mas o menos asi

Código ASP:

Ver originalrut = request.Form("Usuarios")
Dv = request.Form("DV")
Nombre = request.form("nombre")
SGA = request.form("sga")
Supervisor = request.form("supervisor")
Plataforma = request.form("plataforma")
 
if rut<>"" and Dv<>"" then
    pass = generapass()
    set cmd= server.CreateObject("ADODB.recordset")
    strSQL = "exec InsAltaUsuarios '" & rut & "','" & Dv & "','" & SGA & "','" & Nombre & "','" & Supervisor & "','" & Plataforma & "','" & pass
    cmd.open strSQL , cnn
    if not cmd.eof then
        regresa = cmd(0)
        if regresa = "rut repetido" then
            'rut repetido, mostrar que esta repetido
            response.Write "El rut esta repetido, favor de reintentar"
        else
            'se inserto el rut, mostrar el pass generado
            response.Write "insercion correcta, el pass es : " & regresa
        end if
    end if
end if

recuerda que los parametros pasados el SP, deben de ir en el mismo orden en el que son declarados y sin omitir alguno, si alguna variable se viene vacia, lo tienes que validar antes de abrir el cmd, para que no te genere error.

la funcion generapass() la tienes que generar tu.

espero te halla ayudado un poco, si tienes problemas postealos en este mismo post

jemp_intrepido · #4 (**permalink**) 03/03/2012, 17:35

te sgiero que realizes una prueba en sql server y porteriormente lo realizar con el cofigo en asp no se cual sea el fin de insertar un procedimiento almacenado en asp pero solamente tu sabes
saludos jemp_intrepido
www.itixmih.wordpress.com