Ver Mensaje Individual
  #3 (permalink)  
Antiguo 01/08/2005, 12:29
Avatar de Sayra
Sayra
 
Fecha de Ingreso: diciembre-2004
Mensajes: 365
Antigüedad: 20 años, 5 meses
Puntos: 1
El codigo para crear un usuario es el siguiente

if IDUser <> "" then

' Actualiza datos usuario

else
'Nuevo usuario

If oRec.eof then
' Parámetros
oConn.ClearParameters
oConn.CreateParameter "@user_nomb" , advarchar, adParamInput,50, Request.Form("first_name")
oConn.CreateParameter "@user_apel" , advarchar, adParamInput,50, Request.Form("last_name")
oConn.CreateParameter "@coun_id" , adtinyint, adParamInput,1, Request.Form("country")
oConn.CreateParameter "@user_mail" , advarchar, adParamInput,50, Request.Form("pers_email")
oConn.CreateParameter "@site_id" , adsmallint,adParamInput, 2, Request.Form("site")
oConn.CreateParameter "@buss_id" , adsmallint,adParamInput, 2, Request.Form("bussines_unit")
oConn.CreateParameter "@user_telf" , advarchar, adParamInput,12, Request.Form("pers_phone")
oConn.CreateParameter "@func_id" , adsmallint,adParamInput, 2, Request.Form("funcion")
oConn.CreateParameter "@user_sdate" , addate, adParamInput, 8, Request.Form("start_year") & "-" & Request.Form("start_month") & "-" & Request.Form("start_day")
oConn.CreateParameter "@user_pgmail", advarchar, adParamInput,50, Request.Form("pg_email")
oConn.CreateParameter "@leve_id" , adtinyint, adParamInput,1, Request.Form("level")
oConn.CreateParameter "@user_univ" , advarchar, adParamInput,50, Request.Form("university")
oConn.CreateParameter "@user_pgtel" , advarchar, adParamInput,12, Request.Form("pg_phone")
oConn.CreateParameter "@user_nive" , adtinyint, adParamInput,1, Request.Form("access_level")

if len(Request.Form("password")) = 0 then
oConn.CreateParameter "@user_pass" , advarchar, adParamInput,10, "123"
else
oConn.CreateParameter "@user_pass" , advarchar, adParamInput,10, Request.Form("password")
end if

oConn.CreateParameter "@user_stat" , adtinyint, adParamInput,1, Request.Form("activo")
oConn.CreateParameter "@manager", adInteger, adParamInput, 4, iManager

' Iniciar la transacción
oConn.BeginTrans

oConn.CreateParameter "@user_id", adInteger, adParamOutput, 4, null
' Tomar nuevo id
iUserId = oConn.GetParameterValue("@user_id")
sMess = "The User has been created"

else
%>
<script>
alert('User already exist.');
</script>
<%
end if