Código:
cliente = cint(request("cliente")) pantalla = request("pantalla") peticion = request("encabezado") comentarios = request("comentarios") ncorreos = request("correos") fechacorreo =request("fechacorreo") sistema = request("sistema") sversion = request("version") basedatos = request("bd") nDist = cint(Session("GrupoUsuario")) nUsuario =Session("NombreUsuario") conectarDB if cliente<>"" and peticion<>"" and pantalla<>"" then str = "Select peticiones_id from DS_Peticiones where peticiones_id = "& cont Set rs = cnn.execute(str) if rs.eof then sSQL = "Insert into DS_Peticiones(peticiones_numero_distribuidores,peticiones_id,peticiones_usuario_distribuidor,"_ & "peticiones_encabezado,peticiones_fecha_registro,peticiones_sistema,peticiones_version," _ & "peticiones_numero_cliente,peticiones_pantallas_funciones,peticiones_comentario,peticiones_leido)"_ & " VALUES ('"& nDist &"','"& cont &"','"& nUsuario &"','"& peticion &"',getdate(),"_ & "'"& NombreSistema &"','"& sversion &"','"& cliente &"','"& pantalla &"','"& comentarios &"','0')" cnn.Execute(sSQL) end if rs.close Set rs = nothing end if desconectarDB %> <script type="text/javascript" language="javascript"> self.close(); </script>