Gustavo Neves Alves

cara legalzin o codigo

tirando o fato q parece ser em russo ahuahua

olha aqui no meu IIS rodo file

verifica nas configurações do seu iis cmo ta sendo feita a autentificação la
pode ta tendo problemas de permissao
tira acesso anonimo e poe pra pegar o pelo windows autentication

umm nao sei o conteudo dessa include que você faz mas eu nao vi vc fazendo refencia a biblioteca do ADO

Dim conexao, ProviderConexao
Dim tab

set conexao = Server.CreateObject("ADODB.Connection")
set tab = Server.CreateObject ("ADODB.Recordset")

ProviderConexao = "[PROVIDER DE CONEXAO]"

call conexao.open(ProviderConexao)

(... ai sim o resto do seu codigo ...)

não testei acredito q precise de adaptações, na duvida esplique o que vc faz dentro do seu include.

pro z-index funcionar legal voce tbm vai precisar definir um z-index para elas, ai vc coleca vaores maiores que o da div q vc quer q va para o fundo

nao duvida manda sua CSS ai pra gente ver o codigo

umm não sei se entedi bem

mas se for para posicionar no centro da pagina mude seu CSS pra mais ou menos assim


display: none;
position: absolute;
top: 20;
left: 25; -->> left: 50%; (posiciona o inicio da sua janela no centro)
width: 50%; -->> width: 640px; (defina um tamanho fixo nao deixe dinamico no caso e um exemplo ok)
margin-left: -320px; <<-- adicione esta linha para voltar a jenela metade do seu tamanho em relação a posição dela
height: 50%;
padding: 16px;
border: 16px solid orange;
background-color: white;
z-index:1002;
overflow: auto;

bem caso voce precisa que ela assuma o tamanho da janela em height no IE e preciso definir as tags HTML e BODY cmo height: 100%;

espero ter entendido o que vc tava qrendo =D

Resolvido pessoal.

A oracle desenvolveu uma ferramenta que quando usuário esta expirado voce a chama.

Ou seja, quando sua conexão for recusada pelo servidor, o oracle retornará o ERRO 28001 (correspondente a usuário expirado)
ai no tratamento deste erro você chama o seguinte código, fiquei de preguissa e coloquei o código inteiro bom que da pra entender melhor.
PS, só consegui fazer em C#, em ASP nao fui muito bem sucedido nao.
e para usar o namespace da oracle "using Oracle.DataAccess.Client;"
tem que instalar um componente disponível pra download no site da empresa.

//código

using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.Security;
using System.Web.Util;
using System.IO;
using Oracle.DataAccess.Client;

namespace exeAlterPassOracle
{
/*
* §o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o §o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o
* DESENVOLVEDOR: Gustavo Neves Alves - USER: AX04767 - EMPRESA: RCS Informática
* DATA: 10 DE JANEIRO DE 2008
*
* DESCRIÇÃO SISTEMA: Módulo usado em conjunto com formulários HTML (Index.html), respon
* sável por executar a solicitação de alteração vinda do formulário.
*
* RETORNO: Sistema retorna o erro do oracle independente se ouve ou não erro.
* §o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o §o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o
*/
public class clsExeAlterPassWord : System.Web.UI.Page
{
private void Page_Load(object sender, System.EventArgs e)
{
string qstrAlias, qstrUser, qstrOldPass, qstrNewPass;

qstrAlias = Request.QueryString["txbAlias"];
qstrUser = Request.QueryString["txbUser"];
qstrOldPass = Request.QueryString["txbOldPass"];
qstrNewPass = Request.QueryString["txbNewPass"];


//§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o §o§o§o§o§o§o§o§o§o§o§o§o§o§o
// PROVIDER DE CONEXÃO COM O BANCO DE DADOS
//§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o§o §o§o§o§o§o§o§o§o§o§o§o§o§o§o
string strProvider = "User Id=" + qstrUser +
";Password=" + qstrOldPass +
";Data Source=" + qstrAlias;

//CRIA CONEXÃO COM O BANCO DE DADOS
OracleConnection objConnection = new OracleConnection(strProvider);

try
{
/*
* TRY | CATCH RESPONSÁVEL POR TENTAR ABRIR A CONEXÃO COM O BANCO DE DADOS
* E RODAR INSTRUÇÃO SQL PARA ALTERAÇÃO DE SENHA
* EM CASO DE ERRO SYSTEMA TRATARÁ OS ERROS NO CATCH
*/
objConnection.Open();
using (OracleCommand objCommand = new OracleCommand())
{

objCommand.CommandType = CommandType.Text;
objCommand.CommandText = "ALTER USER " + qstrUser + " IDENTIFIED BY " + qstrNewPass;
objCommand.Connection = objConnection;

objCommand.ExecuteNonQuery();
//lblResult.Text = "0;0";
Response.Write("0;0");
}
}
catch(OracleException ex)
{
/*
* CASO HAJA ERRO NO PROCESSO DESCRITO ACIMA, O CATCH FICARÁ RESPONSÁVEL POR CAPTURAR
* O ERRO DO ORACLE NA OBJETO "ex", (VER PARAMETRO "OracleException ex")
* É FEITO UM CASE(SWITCH) PARA TRATAR OS DIFERENTES TIPOS DE ERROS
* NO CASO DO 28001 (INDICA USUÁRIO EXPIRADO), USAMOS A FUNÇÃO "OpenWithNewPassword" QUE IRÁ
* INSTANCIAR UMA NOVA CONEXAO COM O BANCO DE DADOS TROCANDO A SENHA DO USUÁRIO
* E DESBLOQUEANDO O MESMO
*/
switch(ex.Number)
{
case 28001:
objConnection.OpenWithNewPassword(qstrNewPass);
break;
default:
//lblResult.Text = ex.Number + ";" + ex.Message;
Response.Write(ex.Number + ";" + ex.Message);
break;
}
}
finally
{
//FECHA CONEXAO COM O BANCO DE DADOS CASO ELE ESTAJA ABERTA
if (objConnection.State == ConnectionState.Open)
objConnection.Close();

//LIBERA DA MEMORIA OBJ CONNECTION
objConnection.Dispose();
objConnection = null;

}
}
}