renatacm

Oi, pessoal!!! Tudo bem Com vocês? Antes de mais nada, gostaria de desejar um Feliz Natal e um Próspero 2005 para todo mundo!!! Mas, agora, vamos às vacas frias: No banco de dados tenho um campo chamado código que stá definido como numerico e na hora de montar a QUERY me dá dois erros, dependendo da situação. user = CInt(request.form("user")) pass = request.form("pass") Situação 1 SQLClientes1="SELECT * FROM tab_Usuarios WHERE codigo='"&user&"' AND senha ='"&pass&"'" Erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. Situação 2 (Se tiro as aspas simples pra tentar passar a instrução como número): SQLClientes1="SELECT * FROM tab_Usuarios WHERE codigo="&user&" AND senha ='"&pass&"'" Erro: Erro de tempo de execução do Microsoft VBScript (0x800A01A8) Objeto necessário: '' Alguém sabe me dizer como eu faço pra passar que o conteúdo da variável é numérico pelo QUERY ?!?! Obrigada desde já... Bjocas... ;oÞ

Olá, pessoal! Eu preciso converter o conteúdo de um variável string para número. A finalidade é poder pesquisiar o valor da varíavel num banco de dados, mas na tabela, o campo de comparação é "Número"... Alguém pode me ajudar? Se alguém souber de um site onde eu possa encontrar instruções para outros tipos de conversão.... Valeu, galerinha!!! Bjocas... Rê

Miguinho, não deu certo...

Sim... O navegar me pergunta se quero salvar o arquivo...

Oi, pessoal! Tudo bem? Após um longo período de hibernação, estou novamente tentando aprender um pouco de ASP... Preciso verificar a exixtência e posteriormente acessar dados em uma banco (.mdb) que está disponível num outro site e exibir os dados deste banco numa página no meu site... o meu site está hospedado na Locaweb e o site que vai disponibilizar o banco pra mim está na AllNet... Tentei substituir o Server.MapPath pelo endereço completo do outro site (ex.: http://www.outrosite.com.br/dados/banco.mdb)... Não acusa nenhum erro de interpretação do ASP mas aponta como se o banco não existisse.... (fui eu mesma q gravei o banco lá, então ele está lá, eu tenho certeza disso)... Alguém sabe me dizer o que pode estar acontecendo ou qual é o procedimento correto para executar esta tarefa? ErroBanco = "0" set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists("http://www.outrosite.com.br/dados/banco.mdb) = false Then ErroBanco = "1" End If Valeu, desde já... bjos...

cyber, você é d+ !!! :D Agora funcionou!!! Então, pra deixar registrado pra quem mais quiser saber como fazer certo: parceiros.asp global.asa (detalhe: realmente este arquivo deverá ficar no diretório raiz do site - só assim funcionou) e no arquivo default.asp (na célula onde o resultado deverá aparecer) Galerinha, valeu. Brigadão e me desculpem pela amolação!!! Bjocas... PS: Por favor, fechar o tópico. PS-II: Se puderem incluir o resultado correto no tópico de funções... :)

Pessoal, Agradeço muito (de coração) a ajuda de vocês. O problema já voi resolvido (vide último post). Testei no IE 6.0 e no Netscape 7.0 e funcionou perfeitamente em ambos. Bjão pra todo mundo que colaborou. PS: Aproveito pra fazer um convite à vocês: O lançamento de um livro muito legal (assunto: A vida e a mudança de comportamento do menino Edimar) que ser no dia 20/089/2004 às 20h no Centro Cultural Sta. Catarina - SP (Av. Paulista, 200 - Metrô Brigadeiro) realizado por: Sociedade Menino Edimar - uma instituição sem fins lucrativos que ajuda aos carentes da região Norte da cidade de São Paulo a se recolocarem no mercado de trabalho. Pra quem quiser uns instantes extra-micro, vai ser bem legal! Bjocas... ;oÞ

cyber, você é d+ !!! Agora funcionou!!! Então, pra deixar registrado pra quem mais quiser saber como fazer certo: parceiros.asp global.asa (detalhe: realmente este arquivo deverá ficar no diretório raiz do site - só assim funcionou) e no arquivo default.asp (na célula onde o resultado deverá aparecer) Galerinha, valeu. Brigadão e me desculpem pela amolação!!! Bjocas... PS: Por favor, fechar o tópico. PS-II: Se puderem incluir o resultado correto no tópico de funções...

cyber, fiz um teste com o que você me pediu e o resultado é :::: O valor da variavel que controla os parceiros é: Microsoft VBScript runtime error '800a01a8' Object required: 'roda' /teste/teste/Default.asp, line 164 OBS: deixei o arquivo global.asa junto com os demais (nesta mesma pasta)

Se eu não colocar a instrução <!--#include file="captura.asp"--> no default.asp, dá o seguinte erro: MSWC.Adrotator error '80004005' ERROR Cannot load rotation schedule file /teste/Default.asp, line 164

Segui o exemplo que o ursoloco me mandou Tutorial AdRotator e agora tá dando a seguinte mensagem de erro: Response object error 'ASP 0158 : 80004005' Missing URL /teste/captura.asp, line 3 A URL is required. Seguem os códigos rotator.asp captura.asp ramdom.txt E o no arquivo defaultp.asp E agora??!??

www.site.com.br/teste Todos os arquivos deste projeto estão num subdiretório chamado teste, inclusive o global.asa.

cyberalexxx, pelo Dreamweaver, as informações do parceiros.asp aparecem direitinho na célula, porém, quando jogo para o servidor (ASP) não aparece nada na respectiva célula do default.asp. Não dá nenhuma mensagem de erro: simplesmente é como se não tivesse o include. OBS: O global.asa deve ficar na mesma pasta que o default.asp? Esses dados estão num subdiretório de teste e não no raiz do servidor. Pode ser isso? PS: Desde já, obrigada, pessoal! vocês são d + !!!

<html> <head></head> <body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('imagens/institucional1.gif','imagens/atividades1.gif','imagens/eventos1.gif','imagens/parceiros1.gif','imagens/juntese1.gif','imagens/doacao1.gif','imagens/Fale01.gif')"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="100%" height="937" align="center" valign="middle"> <table width="691" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000"> <tr> <td width="687"> <table width="686" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="175"><img src="imagens/spacer.gif" width="175" height="1" border="0" alt=""></td> <td width="22"><img src="imagens/spacer.gif" width="22" height="1" border="0" alt=""></td> <td width="236"><img src="imagens/spacer.gif" width="236" height="1" border="0" alt=""></td> <td width="253"><img src="imagens/spacer.gif" width="253" height="1" border="0" alt=""></td> <td width="1"><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td> </tr> <tr> <td colspan="2"><img name="index_r1_c1" src="imagens/index_r1_c1.gif" width="197" height="96" border="0" alt=""></td> <td colspan="2" align="center" valign="middle"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="370" height="55"> <param name="movie" value="imagens/Some_Texto_Olhos.swf"> <param name="quality" value="high"> <embed src="imagens/Some_Texto_Olhos.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="370" height="55"></embed></object></td> <td><img src="imagens/spacer.gif" width="1" height="96" border="0" alt=""></td> </tr> <tr> <td colspan="4" align="center" valign="middle"><a href="quemsomos.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image21','','imagens/institucional1.gif',1)"><img src="imagens/institucional.gif" name="Image21" width="98" height="35" border="0"></a><a href="atividades.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image22','','imagens/atividades1.gif',1)"><img src="imagens/atividades.gif" name="Image22" width="98" height="35" border="0"></a><a href="eventos.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image23','','imagens/eventos1.gif',1)"><img src="imagens/eventos.gif" name="Image23" width="98" height="35" border="0"></a><a href="parceiros.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image24','','imagens/parceiros1.gif',1)"><img src="imagens/parceiros.gif" name="Image24" width="98" height="35" border="0"></a><a href="juntese.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image25','','imagens/juntese1.gif',1)"><img src="imagens/juntese.gif" name="Image25" width="98" height="35" border="0"></a><a href="contribuicoes.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image26','','imagens/doacao1.gif',1)"><img src="imagens/doacao.gif" name="Image26" width="98" height="35" border="0"></a><a href="fale.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image27','','imagens/Fale01.gif',1)"><img src="imagens/Fale.gif" name="Image27" width="98" height="35" border="0"></a><br> </td> <td><img src="imagens/spacer.gif" width="1" height="33" border="0" alt=""></td> </tr> <tr> <td colspan="4"><img src="imagens/imglivro.jpg" width="686" height="100"></td> <td><img src="imagens/spacer.gif" width="1" height="84" border="0" alt=""></td> </tr> <tr> <td colspan="4"><img name="index_r4_c1" src="imagens/index_r4_c1.gif" width="686" height="31" border="0" alt=""></td> <td><img src="imagens/spacer.gif" width="1" height="31" border="0" alt=""></td> </tr> <tr> <td>&nbsp;</td> <td colspan="3" ><p>&nbsp;</p> </td> <td><img src="imagens/spacer.gif" width="1" height="321" border="0" alt=""></td> </tr> <tr> <td colspan="4"><img name="index_r6_c1" src="imagens/index_r6_c1.gif" width="686" height="33" border="0" alt=""></td> <td><img src="imagens/spacer.gif" width="1" height="33" border="0" alt=""></td> </tr> <tr> <td align="center" valign="middle"> <fieldset> <!-- INICIO DO CODIGO DA ENQUETE --> <script language="JavaScript"> <!-- function Abre(url, width, height) { window.open(url,"_blank","resizable=yes,toolbar=no,status=no,menubar=no,scrollbars=yes,width=" + width + ",height=" + height) } function Fun_Enviar(formID) { var formularios = document.forms.length; for(i=0;i<formularios;i++) { if(document.forms.name==formID) { var formulario = i; break; } } var num_respostas = document.forms[formulario].opcao.length; var resposta = num_respostas; var respostas = ""; for(i=0;i<num_respostas;i++) { if(document.forms[formulario].opcao.checked) { resposta = i; if(respostas) { respostas=respostas + "&"; } else { respostas=respostas + "?"; } respostas=respostas + "opcao=" + document.forms[formulario].opcao.value; } } if(resposta==num_respostas) { alert("Uma opção deve ser escolhida!"); } else { Abre("http://www.enquetes.com.br/enquete.asp" + respostas,400,340); } } //--> </script> <form name=frm495805> <p>&nbsp;</p> <p><B><font size="2" face="Arial, Helvetica, sans-serif">Que tipo de doação você faria?</font></B></p> <p align="left"> <font size="2" face="Arial, Helvetica, sans-serif"> <input name="opcao" type="radio" value="2648104"> Em dinheiro<br> <input name="opcao" type="radio" value="2648105"> Alimentos / Produtos<br> <input name="opcao" type="radio" value="2648106"> Trabalho voluntário<br> <input name="opcao" type="radio" value="2648107"> Prestação de serviços<br> <input name="opcao" type="radio" value="2648108"> Não faria</font></p> <p> <input type="hidden" name="id" value="495805"> <b><a href="javascript:Fun_Enviar('frm495805')"><img src="imagens/b_vote_a.gif" border="0"></a></b> <br> <a href="javascript:Abre('http://www.enquetes.com.br/enquete.asp?id=495805',400,350)"><img src="imagens/b_respar_a.gif" border="0"></a> </p> </form> <!-- FIM DO CODIGO DA ENQUETE --> </fieldset> </td> <td colspan="2">&nbsp;</td> <td align="center" valign="middle"><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif">&Aacute;rea para parceiros</font></td> <td><img src="imagens/spacer.gif" width="1" height="237" border="0" alt=""></td> </tr> <tr> <td colspan="4"><div align="center"><img name="index_r8_c1" src="imagens/index_r8_c1.gif" width="687" height="15" border="0" alt=""></div></td> <td><img src="imagens/spacer.gif" width="1" height="15" border="0" alt=""></td> </tr> </table></td> </tr> </table></td> </tr> </table> </body> </html> Eu gostaria de fazer as imagens aparecerem alternada na Área para parceiros...

Eu sou novata nesse negocio! (rs...) Como faço para o resultado aparecer na default.asp? Incluo a segunda parte (parceiro.asp) na célula reservada aos parceiros? (Me desculpem pela simplicidade das perguntas, mas, realmente, estou começando na área. Ainda não deu - $$$ - pra fazer um curso )

Atualmente são 6. Tenho uma imagem para cada parceiro (com o logo e a descrição).

Como mudar parte da default.asp a cada refrash da página? Tenho uma parte reservada na página principal da minha HomePage para os Parceiros do Projeto. Gostaria que a cada refrash (ou a cada exibição da página) aparecesse o logo e a descrição de um parceiro diferente... Já tentei usar o AdRotator mas não consegui nada! Sou iniciante em programação ASP e não estou obtendo sucesso em minhas tentativas. Será que alguém pode me ajudar a montar ?!?

dark, eu ainda sou iniciante nesse negócio, , não sei criar funções em asp... mas, é uma boa idéia! eu vou consultar as apostilas que tenho aki e vou tentar montar alguma cosia... Se fiar muito complicado, eu grito por HELP outra vez! Valeu! Abraços. PS: Pfavor, fecho o tópico pra mim! Obrigadinha!!!!

Oi, pessoal!!! Me desculpem pela demora, mas tive que abandonar meu micro para cuidar da minha filhota nestes últimos dias e não tive como responder... A utilização do .AddBCC não deu certo... Alguém conhece um outro objeto (que não o ASPMAIL) com o qual eu consiga enviar cópia oculta?!?! Pra vocês entenderem - de repente até existe uma outra solução - o internau que se cadastrar na minha página vai receber um email de confirmação de todos os dados que acabou de digitar. Essa informação já está sendo gravada num banco Access e enviada também ao email do internauta... Eu "renatacm", gostaria de receber uma cópia dos dados que o cliente digitou e que já estão gravadas no bco de dados tabm por email, mas queria que fosse em cópia oculta, pois, tentei montar e enviar o email duas vezes na mesma seção e não deu certo também... Será que algue´m teria uma idéia melhor pra resolver a minha questão?!? Abraços...

beleza... Vou tentar sim... Assim que der eu aviso se deu certo ou não! Abraços... ;-)

beleza, até aí eu já tinha conseguido! E pra mandar em CÓPIA OCULTA? Tem um "Mail.Cco", por exemplo? Eu tentei exatamente assim e deu erro... Dá pra mandar cópia oculta pelo aspmail?!?

Pessoal, Gostaria de saber se dá pra enviar e-mail em cópia oculta pelo ASPMail e, em caso positivo, como se faz?

Agora deu certo, galera!!! Só tive que colocar rs.close rs.open "SELECT * FROM tabela..." antes do rs.addnew e deu certo!!! O duro foi chegar a essa conlusão!!! Abraços

Gente o meu problema ainda não foi resolvido!!! porque fecharam o tópico??? Pessoal, fiz algumas alterações no código: deixei de tentar gravar com o uso de str ing SQL e parti para um método um pouco mais manual: addnew do Recordset, porém ainda assim me dá uma mensagem de erro: O item não pode ser encontrado na coleção correspondente ao nome ou ao original solicitado. Já verifiquei o banco e suas permissões: está tudo ok! A linha que ele apresenta erro é a seguinte: RS("user").value=user antes eu estava usando RS("user").value=request.form("user") e a mensagem de erro era a mesma. Dêem uma olhada em como ficou o código agora. Quem saber assim fica mais fácil pra vocês me ajudarem, né? user = request.form("user") email = request.form("email") Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DBQ=" & Server.Mappath("database/users.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};","Administrador","teste" rs.open "SELECT pass FROM users WHERE pass='"&PassworTemp&"' OR user='"&user& "'",Conn,2,3 if rs.eof and rs.bof then rs.addnew RS("user").value=user ESSA É A LINHA ONDE ESTÁ O ERRO RS("email").value=email Rs("pass").value=PassworTemp RS.update set RS = nothing Será que alguém pode me ajudar?!?

Pessoal, fiz algumas alterações no código: deixei de tentar gravar com o uso de str ing SQL e parti para um método um pouco mais manual: addnew do Recordset, porém ainda assim me dá uma mensagem de erro: O item não pode ser encontrado na coleção correspondente ao nome ou ao original solicitado. Já verifiquei o banco e suas permissões: está tudo ok! A linha que ele apresenta erro é a seguinte: RS("user").value=user antes eu estava usando RS("user").value=request.form("user") e a mensagem de erro era a mesma. Dêem uma olhada em como ficou o código agora. Quem saber assim fica mais fácil, né? [i]user = request.form("user") email = request.form("email") Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DBQ=" & Server.Mappath("database/users.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};","Administrador","teste" rs.open "SELECT pass FROM users WHERE pass='"&PassworTemp&"' OR user='"&user& "'",Conn,2,3 if rs.eof and rs.bof then rs.addnew RS("user").value=user [b][I]ESSA É A LINHA ONDE ESTÁ O ERRO[/i][/b] RS("email").value=email Rs("pass").value=PassworTemp RS.update set RS = nothing[/I] Valeu pessoal!!!