ADL

Olá você pode usar a sintaxe do vb script: UCase("<expresão>") ela retorna a cópia de uma expressão do tipo caractere com todos os caracters em maiúsculo. Exemplo <%=UCase("Olá meu Amigo")%> retorno OLÁ MEU AMIGO é isso ai espero te ajudado.

então você cria uma variavel onde recebe o conteúdo que está selecionado no radio você faz assim: dim varRadio, modalidade,modalidade1 modalidade="Aérea" modalidade1="Empresas Aéreas" varRadio = trim(request.form("conteudo do radio")) if varRadio = modalidade and modalidade1 then response.redirect(""nome da página) se você quiser passar algum valaor faz o que eu disse em baixo else end if você pode passar valor pelo redirect response.Redirect "nome da página.asp?valor="& variavel espero ter ajudado ok

Cara não sei se é isso que você quer mas quando você manda as informações parq outra página você tem que as pegar exemplo: você mandou um nome para a página recupera nome. nessa página você tem que preparar uma variavel para armazenar o valor dim varNome varNome = trim(request.form("nomeDoCampodoFormulario")) aqui vai conter o valor nome ai você faz um select com os campos tabelas sei lá so que na clausula where você coloca essa variavel assim: variável de conexao = "select * from nome da tabela where nome do campo da tabela ='"&varNome&"' " ok agora você pode colocar os valores do recorde set nos campos ok espero que seja isso que esteja tentando fazer ok...

Bom dia pessoal estou tentando conectar ASP com oracle mas está dando esse erro, alguém pode me ajudar por favor? Segue o erro: Tipo de erro: Microsoft OLE DB Provider for Oracle (0x80004005) ORA-12514: TNS:listener não conseguiu resolver o SERVICE_NAME fornecido no descitor de conexão /pauta/conexaoBD/conexao.inc, line 5 a linha 5 é essa:ConnString ="Provider=msdaora;Data Source=aqui eu coloquei o IP do servidor;User Id=aqui eu coloquei o ligin do banco;Password=aqui eu coloquei a senha do banco;" então está dando esse erro ao de cima. codigo completo de conexao: <% sub AbreConexao set conexaoDataBase = Server.CreateObject("ADODB.Connection") ConnString ="Provider=msdaora;Data Source=aqui eu coloquei o IP do servidor;User Id=aqui eu coloquei o ligin do banco;Password=aqui eu coloquei a senha do banco;" conexaoDataBase.Open ConnString end sub sub FechaConexao conexaoDataBase.close set conexaoDataBase = nothing end sub %>

Olá pessoal estou tentando conectar java com oracle não estou coneguindo alguém pode me ajudar? import java.sql.*; class ExemploOracle { public static void main(String[] args){ String url ="jdbc:oracle://ip do servidor/nome do servidor/nome da tabela"; // obs verifique se está linha está ceto try{ Class.forName("oracle.jdbc.driver.OracleDriver"); Connection minhaConexao =DriverManager.getConnection(url); System.out.println("Conexão realizada com sucesso!"); minhaConexao.close(); } catch(ClassNotFoundException erro) { System.out.println("Driver JDBC_ORACLE não encontrada!"); } catch(SQLException erro) { System.out.println("Problema na conexao com o banco de dados."); } } }

Ok valeu funcionou muito obrigado.

Olá pessoal alguém pode me ajudar por favor? É o seguinte estou querendo realizar uma consulta ao banco de dados e está dando esse erro: Tipo de erro: Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /pauta/listarPauta.asp, line 28 segue a sql: sqlTabela = "Select * From agenda where data between '"&dataIni&"' and '"&dataFim&"' " set rsTabela=conexaoDataBase.execute(sqlTabela) o banco que eu estou usando é o access! Desde já eu agradeço à ajuda de todos. ADL

beleza vou tentar.

Valeu!!!

Olá pessoal como eu faço para conectar o ASP no oracle. segue meu script de conexao, só que é em Access gostaria que esse script fosse para oracle. Obrigado <% sub AbreConexao set conexaoDataBase = Server.CreateObject("ADODB.Connection") ConnString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\pauta\banco1\banco.mdb;Persist Security Info=False" conexaoDataBase.Open ConnString end sub sub FechaConexao conexaoDataBase.close set conexaoDataBase = nothing end sub %>

Olá pessoal estou precisando desenvolver um script em para para gerar impressão alguém pode me dizer como começar por favor!

Achei o erro eu estava usando uma palavra reservado do vbscript " local " fala serio né me quebrei o dia todo mudei do banco da sintaxe funcionou ai cara valeu pela força viu mesmo ADL...

Olá pessoal estou me "quebrando" com essa instrução está dando ess erro: Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na instrução INSERT INTO. /pauta/insere.asp, line 82 segue o código sqlTabela="insert into agenda(data,hora,processo,local,pasta,cliente,contraria,materia,advogado,semana,email)values('"&varData&"' , '"&varHora&"' , '"&varProcesso&"' , '"&varLocal&"' , '"&varPasta&"' , '"&varCliente&"' , '"&varContraria&"' , '"&varMateria&"' , '"&varAdvogado&"' , '"&varSemana&"' , '"&email2&"')" set rsTabela=conexaoDataBase.execute(sqlTabela) Pessoal por favor estou precisando muito disso se alguém puder me ajudar eu agradeço muito a colaboração de você, meu feche está me cobrando não to conseguindo nem raciocinar.

Obrigado Andreia vou colocar para funcionar valeu mais uma vez!!! ADL

pode ser essa maneira mesmo os usuários aqui não consegue entrar no painel de controle só com a senha do administrador ok .. Andreia obrigado pela ajuda ADL...

Olá pessoal! Tem como pegar o ano do sistema em javascritp? Caso tenha alguém pode me mostar a função por favor? Desde já agradeço ADL...

Ola pessoal eu e o pessoal aqui do forum me ajudou a desenvolver um script que manda e-mail está funcionando muito bem. Só que é o seguinte como eu faço para que esse script seja executado todos os dias sm que haja intervenção humana por exemplo. gostaria que ele fosse executado todos os dias as 16:50 h para que a mensagem fosse enviada. Já tentei em tarefa agendada e não deu certo por ele ser em ASP. Alguém tem ideia de como eu faço isso sei-la um executavel... Ou um script que eu coloque no executavél do windows e ele abre o brower e executa a página alguém pode me ajudar por favor...? Desde já agradeço.

Ok vou testar muito obrigado... Cara to te enchendo né to apanho muito com isso é é urgente. está dando esse erro agora cara: Por favor de uma olhada para mim. Tipo de erro: Microsoft JET Database Engine (0x80040E37) O mecanismo de banco de dados Microsoft Jet não pôde encontrar o objeto 'teste'. Certifique-se de que o objeto exista e de ter digitado seu nome e o caminho corretamente. /excel/exemplo1.asp, line 11 segue o código: desde já agradeço <%@LANGUAGE="VBSCRIPT"%> <% Option explicit %> <!--#Include file="conexao1/conexao.inc"--> <% response.expires=0 dim estilo,conexaoDataBase,ConnString,rsTabela,sqlTabela Call abreConexao sqlTabela ="select * from teste" set rsTabela = conexaoDataBase.execute(sqlTabela) response.Write(rsTabela("nome")) response.Write(rsTabela("data")) estilo ="Home" Call fechaConexao set rsTabela = nothing %>

eu não tenho que passar o local onde está o arquivo em xls? eu fia assim e deu esse erro agora Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado /excel/conexao1/conexao.inc, line 5 obrigado pela força <% sub AbreConexao set conexaoDataBase = Server.CreateObject("ADODB.Connection") ConnString = "Driver={Microsoft Excel Driver (*.xls)};DBQ=C:\Inetpub\wwwroot\excel\conexao\teste.xls" conexaoDataBase.Open end sub sub FechaConexao conexaoDataBase.close set conexaoDataBase = nothing end sub %> agora está dando esse erro Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Excel]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x978 Thread 0xca8 DBC 0x60d5024 Excel' do Registro. /excel/conexao1/conexao.inc, line 5 <% sub AbreConexao set conexaoDataBase = Server.CreateObject("ADODB.Connection") ConnString = "Driver={Microsoft Excel Driver (*.xls)};DBQ=C:\Inetpub\wwwroot\excel\conexao\teste.xls" conexaoDataBase.Open ConnString end sub sub FechaConexao conexaoDataBase.close set conexaoDataBase = nothing end sub %>

obrigado pela força amigo agora está dando esse erro: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0401) Fim da instrução esperado /excel/conexao1/conexao.inc, line 4, column 25 ConnString =objConn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=teste.xls" ------------------------^ segue o código <% sub AbreConexao set conexaoDataBase = Server.CreateObject("ADODB.Connection") ConnString =objConn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=teste.xls" conexaoDataBase.Open ConnString end sub sub FechaConexao conexaoDataBase.close set conexaoDataBase = nothing end sub %>

Olá eu de novo desculpe incomodar vocês novamente. Eu tenho uma dúvida o asp consegue ler os dados do excel como linha e coluna? desde já agradeço.

Ok vou teste obrigado pela sua ajuda. Ok cara valeu funcionou muito obrigado pela sua ajuda

Olha amigo eu não consegui entender o que você quer fazer, se você quiser colocar um valor uma variavel caso seja verdadeira faça assim: if rs("variavel")= "sim" then variavel = recebe o valor "sim" else variavel = recebe o valor "não" end if não sei se é isso que você está tentando fazer ficou muito confuso ok.

Olá pessoal estou fazendo um script para envio de email aparentemente a página não da erro. mas o email não chega eu fui na pasta BADMAIL e eles estavam lá e verifiquei que tem uma mensagem de erro. Segue o erro Não é possível entregar esta mensagem porque ocorreu o seguinte erro: "Erro ao processar o arquivo na pasta de caixa de correio.". O código de erro específico era 0xC00402CE. pessoal já revirei o google e nenhuma informação me ajudou, percebi também que muita gente tem dificuldade ne asunto se alguém puder postar alguma coisa eu agradeço muito desde já ADL. Já registrei a dll do CDONTS também <%@LANGUAGE="VBSCRIPT"%> <% Option explicit %> <!--#Include file="conexao1/conexao.inc"--> <% response.expires=0 dim estilo,conexaoDataBase,ConnString,rsTabela,sqlTabela,dia,hora,msgTexto,nome,email Call abreConexao sqlTabela = "Select data,email,nome From reservaLivro" set rsTabela = conexaoDataBase.execute(sqlTabela) do while not rsTabela.eof dia = cdate(rsTabela("data"))+2 nome = rsTabela("nome") if dia >= date then msgTexto = "Devolução do Livro" + vbCRLF msgTexto = msgTexto + "Nome: " + nome + vbCRLF msgTexto = "Devolução do Livro" + vbCRLF response.Expires=0 Set email=server.CreateObject("CDONTS.NewMail") email.from= "meuemail@meuemail.com.br" email.to= "fulano@fulano.com.br" email.Subject="devolva o livro" email.Body=msgTexto email.Send Set email=nothing end if rsTabela.movenext loop Call fechaConexao set rsTabela = nothing %>

obrigado pela ajuda! ADL