PROGRAMA
Publicado por VIRFEL (14 intervenciones) el 16/08/2002 01:25:39
AQUI ESTA EL PROGRAMA :
<%
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.recordset")
Dim Temp
Conexion.Open ("DSN=noms;UID=x;PWD=x")
Tabla.Open "tabla2",Conexion
Temp="Select * From tabla2 Where descripcion='" & Request("Dato2") & "' And usuario='" & Request("Dato1") & "'"
Tabla.Close
Tabla.Open Temp,Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
dim asigna
Tabla("usuario") = Request("Dato1")
Tabla("origen") =5008
AQUI ES DONDE ESTA EL "PEDO" AL INSERTAR LOS DATOS DEL COMBO DOS EL CUAL SE LLAMA DATO2 LA VARIABLE NO SABE CUAL TOMAR POR SER EL PINCHE COMBO DE MULTIPLE SELECCION.
Tabla("descripcion") = Request("Dato2")
Tabla.Update
%>
<script language="javascript">
alert ("Permisos asignados correctamente")
</script>
<%
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.recordset")
Dim Temp
Conexion.Open ("DSN=noms;UID=x;PWD=x")
Tabla.Open "tabla2",Conexion
Temp="Select * From tabla2 Where descripcion='" & Request("Dato2") & "' And usuario='" & Request("Dato1") & "'"
Tabla.Close
Tabla.Open Temp,Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
dim asigna
Tabla("usuario") = Request("Dato1")
Tabla("origen") =5008
AQUI ES DONDE ESTA EL "PEDO" AL INSERTAR LOS DATOS DEL COMBO DOS EL CUAL SE LLAMA DATO2 LA VARIABLE NO SABE CUAL TOMAR POR SER EL PINCHE COMBO DE MULTIPLE SELECCION.
Tabla("descripcion") = Request("Dato2")
Tabla.Update
%>
<script language="javascript">
alert ("Permisos asignados correctamente")
</script>
Valora esta pregunta


0