Renan L. Queiroz's Content

#991953 [Resolvido] Como Validar Campo Select?

Posted by Renan L. Queiroz on 13/01/2010, 09:24 in Javascript / DOM / AJAX / ECMAScript

Tente isso:

if(document.getElementById("estado").selectedIndex == ""){

#990343 Javascript Saber Se É Maior De Idade...

Posted by Renan L. Queiroz on 18/12/2009, 16:39 in Javascript / DOM / AJAX / ECMAScript

Veja se isso lhe ajuda!

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

    <head>

        <title> Verifica Idade </title>

        <script> 

            function verificaIdade(o){

                var txtAno = document.nm_frmDados.nm_txtAno;
                var dataUser = o.value;
                var dataAtual = new Date()
                var anoAtual = dataAtual.getFullYear();
                var diff = 0;


                if (!isNaN(dataUser)){

                    if (1900 < dataUser && dataUser <=  anoAtual){
                        
                        diff = anoAtual - dataUser;
                        if (diff > 18){
                            alert('Usuário maior de idade!');
                        }
                        else{
                            alert('Usuário menor de idade!');
                        }
                    }
                    else{
                        alert('Ano informado não é valido!');
                        txtAno.value = '';
                        txtAno.focus();
                    }
                }
                else{
                    alert('Valor informado é incompatível!');
                    txtAno.value = '';
                    txtAno.focus();
                }
            };

        </script>

    </head>

    <body>

        <form id="frmDados" name="nm_frmDados">
            Ano de nascimento: <input type="text" name="nm_txtAno" onblur="verificaIdade(this);" maxlength="4" size="2" /> <br />
            Outro campo: <input type="text" maxlength="7" size="5" />
        </form>

    </body>

</html>

Caso queira melhorar e acho que da para melhorar bastante, pesquise sobre "expressão regular"!! ;-)

#990348 Como Redirecionar Algum Link-Imagem Com O Link Do Meu Site?

Posted by Renan L. Queiroz on 18/12/2009, 17:05 in Javascript / DOM / AJAX / ECMAScript

Não é bem assim, que não funciona, a questão é que a pessoa está
abrindo o link apartir de um webmail ou até um programa de e-mail local (outlook),
dessa forma o link é acessado mas não tem referência (origem) no seu site, acredito
que deve haver alguma maneira de enviar parametros via a url direcionada, de forma
que o Anlytics reconheça a origem.

Não conheço o Anlytics a fundo, então se tivar alguma documentação, aconselho!! ;-)

#998111 Validação Do Campo Telefone

Posted by Renan L. Queiroz on 09/04/2010, 14:28 in Artigos, Dicas e Tutoriais de JAVA/JSP

Da uma olhada nos fechamentos de "chaves" da "função" e da condicional "if".
Outra coisa é que você tem que caminhar pelos registros do array para comparar cada um dos contidos.

Exemplo:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
    <head>
        <title> new document </title>
        <script>
            function checkTelefoneSequencia(telefone){

                var strSeqInvalidas = new Array("00000000","11111111","22222222","33333333"," 44444444","55555555","66666666","77777777","88888888" ,"99999999","12312312","12345678","32132132","11112222" );

                for(i = 0; i <= strSeqInvalidas.length; i++){
                    alert
                    if(telefone.value == strSeqInvalidas[i]){
                        alert("O campo " + telefone.name + " ( Telefone Inválido )");
                        telefone.focus();
                        return false;
                    }
                }
            }
        </script>
    </head>

    <body>
        <form name="form">
            <input name="telefone" type="text" maxlength="8" />
            <input type="button" onclick="checkTelefoneSequencia(document.form.telefone);" value="validar" />
        </form>
    </body>
</html>

#966008 Quando Passa O Mouse Em Cima Abre Janela

Posted by Renan L. Queiroz on 04/05/2009, 11:53 in Javascript / DOM / AJAX / ECMAScript

Seria isso?

<html>
	<head>
		<title> Janela Flutuante </title>
		<script>
			function mostraLayer(obj){
				var div = document.getElementById(obj).style;
				div.display = "block";
			}

			function escondeLayer(obj){
				var div = document.getElementById(obj).style;
				div.display = "none";
			}
		</script>
		<style>
			#divLayer{
				position: absolute;
				top: 25px;
				left: 100px;
				border: solid 1px #696969;
				width: 50%;
				height: 50%;
				display: none;
				background-color: #D3D3D3;
				padding: 10px;
			}
		</style>
	</head>

	<body name="nm_body">
		<div>
			<a href="forum.wmonline.com.br" onMouseOver="mostraLayer('divLayer');" onMouseOut="escondeLayer('divLayer');">Nosso forum!</a>
		<div>
		<div id="divLayer" name="nm_divLayer">
			Seria isso?
		</div>
	</body>
</html>

#995348 Alinhar Duas Imagens Lado A Lado

Posted by Renan L. Queiroz on 24/02/2010, 16:43 in HTML, CSS e Metodologias

Busca saber sobre a propriedade: "clear: both;" e sobre o que ele influencia em "float: left/right"
Aconselho w3schools!!

#994214 Dicas Para Layout De Site

Posted by Renan L. Queiroz on 11/02/2010, 13:07 in Criação Web

Como não sou adepto da área de Design, costumo pegar layout prontos (free), sendo assim
acredito que possa dar uma olhada nos que estão disponíveis e adequar à sua necessidade
e até mesmo ajudar em sua criatividade!
1 - Free CSS
2 - Free CSS Templates
3 - Free Layouts
E por ai vai! rs ;-)

Mas não desconsideros as dicas anteriores!! Essa galera ai em cima é boa!!

#990711 Asp Mail

Posted by Renan L. Queiroz on 23/12/2009, 16:40 in Componentes relacionados a ASP

Acredito que o problema do destinatário seja por conta da variável do
objeto Mailer tenha que receber um valor e não outra variável e
com relação à tabela você fará como se estivesse imprimindo a tabela em
uma página "asp" normal, por meio da impressão dos registros, algo como isso:

Mailer.BodyText = ""&_
"<table> "&_
"    <tr> "&_
"        <td>Nº</td> "&_
"        <td>Nome</td> "&_
"        <td>E-mail</td> "&_
"    </tr> "

While Not rs.EOF

    Mailer.BodyText = Mailer.BodyText + ""&_
    "        <tr> "&_
    "            <td>"& count & "</td> "&_
    "            <td>"& rs("nome") &"</td> "&_
    "            <td>"& rs("email") &"</td> "&_
    "        </tr> "

    rs.moveNext()

Wend

Mailer.BodyText = Mailer.BodyText + "</table>"

Lembrando que este "Mailer.BodyText" é para texto normal, você terá que
alterar para o tipo que receba html, ou me corrija se estiver errado e
essa mesma variável possa receber esse tipo de dados!!

E esse rs é o RecordSet com os registros retornados do BD!!

#995263 Formulario

Posted by Renan L. Queiroz on 24/02/2010, 08:34 in Componentes relacionados a ASP

...
quando prenchi o form, chegou o email com os dados de email mais o nome não aparece so pareceu isto no corpo do email.
(Nome: <br />E-mail: nome lembro@yahoo.com.br), ...

De acordo com o script que lhe enviei:

<%
    Dim remetente, destinatario, nome, email, assunto

    remetente    = "conta_remetente@seudominio.com.br"
    destinatario = "conta_destinatario@dominio.com.br"

    nome      = Request.Form("nome")
    email     = Request.Form("email")
    assunto   = "Coloque algum assunto padrão!"

    Set msg = CreateObject("CDO.Message")

    Dim config : config = msg.Configuration.Fields

    With config

        .Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.seudominio.com.br"
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 27
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Ativa/Desativa conexao SSL (True ou False)
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Ativa autenticacao em texto plano (clear-text)
        .Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="conta_remetente@seudominio.com.br"
        .Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="senha_do_email"

        .Update

    End With

    msg.To = destinatario
    msg.Subject = assunto
    msg.From = remetente

    msg.TextBody = "Nome: "& nome &""&_
                   "E-mail: " & email 

    msg.Send

    Set msg = Nothing
%>

Agora vamos ao possível problela.
- Variavel nome (request("nome")), vazia, o que pode estar acontecendo por conta do campo destinado ao nome no formulário estar com o atributo "name" sem ser declarado ou com nome diferente ao utizado na diretiva "request" (request("name")), indico que faça de uma averiguada no formulário e verifique cada campo, se esse possui "name" e se esses "names" é que são utilizados pela página de envio de e-mail através do request.

Já com relação à seu último post:

...
eu tentei tirar estes codigos que eu não preciso
mais não funcionou ....
_____________________________________

cidade = Request.Form("cidade")
estado = Request.Form("estado")
mensagem = Request.Form("mensagem")
data = now()
...

Acredito que tenha esquecido de uma parte!

Esta:

msg.TextBody = "IP de Origem: " & Request.ServerVariables("REMOTE_ADDR")  & vbCrLf &_
     "Data: " & data & vbcrlf&_
     "----------------------------" & vbCrLf &_
     "Nome: " & nome & vbCrLf &_
     "Cidade: " & cidade & vbCrLf &_
     "Estado: " & estado & vbCrLf &_
     "E-mail: " & email & vbCrLf &_
     "Mensagem: " & vbCrLf &_
      mensagem & vbCrLf

Ao retirar aqueles campos, faz-se necessário retirar aqui também, já que os mesmos são utilizados para formar o corpo da mensagem a ser enviada.

Ps: quando disse que não funcionou, é por que deu erro ou o e-mail foi enviado mas não possuia os dados informados?

#993563 Formulario

Posted by Renan L. Queiroz on 03/02/2010, 10:09 in Componentes relacionados a ASP

Veja se isso supre sua necessidade!

<%
    Dim remetente, destinatario, nome, email, assunto

    remetente    = "conta_remetente@seudominio.com.br"
    destinatario = "conta_destinatario@dominio.com.br"

    nome      = Request.Form("nome")
    email     = Request.Form("email")
    assunto   = "Coloque algum assunto padrão!"

    Set msg = CreateObject("CDO.Message")

    Dim config : config = msg.Configuration.Fields

    With config

        .Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.seudominio.com.br"
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 27
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Ativa/Desativa conexao SSL (True ou False)
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Ativa autenticacao em texto plano (clear-text)
        .Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="conta_remetente@seudominio.com.br"
        .Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="senha_do_email"

        .Update

    End With

    msg.To = destinatario
    msg.Subject = assunto
    msg.From = remetente

    msg.TextBody = "Nome: "& nome &"<br />E-mail: " & email 

    msg.Send

    Set msg = Nothing
%>

Essa é somente a parte do script em VBs!!

#971202 Como Posso Concatenar Campos

Posted by Renan L. Queiroz on 18/06/2009, 12:25 in Microsoft SQL Server

Tenta isso:

select t1.Codigo, t1.Nome, t1.descresumida, cast(t2.descricao as varchar(MAX)) +' '+ cast(t1.descresumida  as varchar(MAX))
from tabela_1 t1 inner join tabela_2 t2 on t1.descdetalhada = t2.codigo 
group by t1.Codigo, t1.Nome, t1.descresumida

#996394 Sequência De Classe Inválida

Posted by Renan L. Queiroz on 12/03/2010, 16:23 in Componentes relacionados a ASP

Olhando assim por alto, é dose.
Tenta usar uma dos exemplos apresntados pelo AspMail: Live demos.

#993162 Paginação Com 3 Colunas Em Cada Linha

Posted by Renan L. Queiroz on 29/01/2010, 15:07 in Componentes relacionados a ASP

Vamos ver se entendi bem, com o descrito:

... mas eu preciso conseguir colocar em cada linha tres conteudos descritos acima e no final da pagina a paginação ...

Você quer um layout em 3 colunas (para cada linha) e com uma linha ao final para a paginação?

Caso não, poderia explicar melhor, não consegui entender e imaginar, se for o caso faz uma imagem de exemplo. ;-)

#990350 Campo Select Automático

Posted by Renan L. Queiroz on 18/12/2009, 17:15 in Javascript / DOM / AJAX / ECMAScript

De acordo com essa citação, poderia me responder uma coisa?

e em seguida carrega em baixo o valor automático

Os dados do segundo select são parte de uma tabela no banco de dados
ou ao selecionar o primeiro select você quer que uma opção no segundo
select seja automaticamente selecionada?

Caso tenhamos uma entidade (tabela) sendo utilizada para o preenchimento
do segundo select, aconselho que de uma pesquisada na sala sobre AJAX,
acredito que você possa encontrar algo por lá! Pois sua funcionalidade se
trata do preenchimento de um segundo select a partir do parametro enviado
pelo primeiro select, e carregados de imadiato!

Mas isso caso você tenha esses dados do segundo select em uma
base de dados, caso contrário, caso o segundo select seja estático
podemos reavaliar a situação. ;-)

#992651 Pegar Nome E Sobrenome Do Campo Nome Completo

Posted by Renan L. Queiroz on 22/01/2010, 16:45 in Microsoft SQL Server

Você vai utilizar de um script que trabalhe como um "split" onde, o nome
será separado e alocado como registros, para depois serem pegos
os primeiros e ultimos registro, retornando assim o nome no formato que você
necessita, veja este script:

CREATE FUNCTION FUNC_SPLIT(@texto varchar(8000))
   returns @palavras table (
      pos smallint primary key,
      valor varchar(8000)
   )
AS
BEGIN

    -- variaveis locais
    declare
        @pos smallint,
        @i smallint,
        @j smallint,
        @s varchar(8000)

    set @pos = 1
    while @pos <= len(@texto) 
    begin 
        set @i = charindex(' ', @texto, @pos)
        set @j = charindex(',', @texto, @pos)
        if @i > 0 or @j > 0
        begin
            if @i = 0 or (@j > 0 and @j < @i)
               set @i = @j

            if @i > @pos
            begin
                set @s = substring(@texto, @pos, @i - @pos)

                insert into @palavras
                values (@pos, @s)
            end 
            set @pos = @i + 1

            while @pos < len(@texto) and substring(@texto, @pos, 1) in (' ', ',')
            set @pos = @pos + 1 
        end 
        else 
        begin 
            insert into @palavras 
            values (@pos, substring(@texto, @pos, len(@texto) - @pos + 1))

            set @pos = len(@texto) + 1 
        end 
    end 

    return

END

Assim você pode manipular os registros através do VBScript!! ;-)

O retorno quando passado como parâmetro "Renan Lemes Queiroz":

Retorno da função
pos	valor
1	Renan
7	Lemes
13	Queiroz

Exemplo de funcionamento local:
Adaptado para sua necessidade, podendo torná-la em uma função.

    /* variaveis de teste */
    declare @texto varchar(2000)
    declare @palavras table(pos smallint, valor varchar(2000))
    
    set @texto = 'Renan Lemes Queiroz'

    /* variaveis locais */
    declare
        @resultadoNome varchar(2000),
        @pos smallint,
        @i smallint,
        @j smallint,
        @s varchar(2000)

    set @pos = 1
    while @pos <= len(@texto) 
    begin 
        set @i = charindex(' ', @texto, @pos)
        if @i > 0
        begin
            if @i > @pos
            begin
                -- @i agora detém o primeiro delimitador na cadeia
                set @s = substring(@texto, @pos, @i - @pos)

                insert into @palavras
                values (@pos, @s)
            end 
            set @pos = @i + 1

            while @pos < len(@texto) and substring(@texto, @pos, 1) in (' ', ',')
            set @pos = @pos + 1 
        end 
        else 
        begin 
            insert into @palavras 
            values (@pos, substring(@texto, @pos, len(@texto) - @pos + 1))

            set @pos = len(@texto) + 1 
        end 
    end 

    -- aqui voce trata o retorno, formado na qual será impresso
    set @resultadoNome = (select top 1 valor from @palavras order by pos)
                         +' '+ 
                         (select top 1 valor from @palavras order by pos desc)

    select @resultadoNome

Script para teste local. ;-)

Retorno: Renan Queiroz

#992860 Adicionar Um Ano A Uma Data

Posted by Renan L. Queiroz on 26/01/2010, 09:47 in PHP

Utilizar o mktime junto com o date poderia lhe ajudar??

<?php
$tomorrow = mktime(0, 0, 0, date("m") , date("d")+1, date("Y"));
$lastmonth = mktime(0, 0, 0, date("m")-1, date("d"), date("Y"));
$nextyear = mktime(0, 0, 0, date("m"), date("d"), date("Y")+1);
?>

Off-tópic: você postou a dúvida às 10:44 e as respostas às 10:16? :ponder:

#992902 Adicionar Um Ano A Uma Data

Posted by Renan L. Queiroz on 26/01/2010, 19:03 in PHP

Problema nenhum!! E ótimo, assim ajudamos nossos colegas!
Só achei a diferença entra as datas estranha, afinal estamos numa nova plataforma
problemas podem vir a ocorrer! ;-)

#995160 Ajuda Boleto Bancário Bb

Posted by Renan L. Queiroz on 23/02/2010, 11:00 in Dúvidas sobre Scripts Prontos de ASP

Estou analisando novamente seu script, assim que tiver algo posto novamente!

Poste um exemplo de como deveria ser, apartir dessa linha!

'Monta o código de barras, com 43 digitos, sem DV
    codigo_barras = banco & moeda & fator_vencimento & valor & carteira & codigo_de_cliente & zeros & nosso_num & dv_nosso_num

quantos digitos tem cada uma das variáveis.
O convênio está dentro do código de barras?

#994229 Ajuda Boleto Bancário Bb

Posted by Renan L. Queiroz on 11/02/2010, 14:56 in Dúvidas sobre Scripts Prontos de ASP

Não somente aonde está a página prepara_boleto.asp e funcoes.asp.

#993954 Ajuda Boleto Bancário Bb

Posted by Renan L. Queiroz on 08/02/2010, 14:54 in Dúvidas sobre Scripts Prontos de ASP

Colega, estava analisando seu script, mas para um melhor entendimento decidi formatá-lo (identação), sendo
assim quando possível teste o script identado para ver se está funcionando conforme o script não-identado (anterior). ;-)

#994064 Ajuda Boleto Bancário Bb

Posted by Renan L. Queiroz on 10/02/2010, 08:24 in Dúvidas sobre Scripts Prontos de ASP

Colega, me parece que o escript está todo em uma só linha!
Seria isso mesmo? Caso sim tente deixar conforme foi impresso aqui no tópico! ;-)

Ao ser gerado o erro:

Expected end of statement

Ele está falando que esperava o fim da linha ou do comando.

#994210 Ajuda Boleto Bancário Bb

Posted by Renan L. Queiroz on 11/02/2010, 12:31 in Dúvidas sobre Scripts Prontos de ASP

Caramba, agora não ta encontrando a pasta que contem o arquivo, vou dar uma geral no script,
tenho o backup do seu post (versão antiga, sem identação), já respondo!

--

Como está a estrutura entre a página prepara_boleto.asp e a funcoes.asp?

Na parte do case acredito que de para deixar assim, fica mais legível:

...
    Select Case boleto_banco
        CASE "bhsbc.asp"
            response.write "<!--#include file=""hsbc.asp""-->"
        CASE "bitau.asp"
            response.write "<!--#include file=""itau.asp""-->"
        CASE "bbb.asp"
            response.write "<!--#include file=""bb.asp""-->"
        CASE "bcaixa.asp"
            response.write "<!--#include file=""caixa.asp""-->"
        CASE "unibanco"
            response.write "<!--#include file=""unibanco.asp""-->"
        CASE "breal.asp"
            response.write "<!--#include file=""real.asp""-->"
        CASE "bbradesco.asp"
            response.write "<!--#include file=""bradesco.asp""-->"
        'CASE "bcaixa.asp"
            'response.write "<!--#include file=""caixa.asp""-->"
    End Select
...

#995429 Barra De Rolagem No Iframe

Posted by Renan L. Queiroz on 25/02/2010, 14:30 in HTML, CSS e Metodologias

CSS, algo como overflow: hidden, só nao lembro agora de cabeça!!
De uma olhada por ai sobre!

Um link: w3schools - CSS overflow property

#992799 Unir 3 Consultas Diferentes Em Um Só Relatório

Posted by Renan L. Queiroz on 25/01/2010, 15:17 in Microsoft Access

Aqui colega, faça bom proveito:


declare @ARV table(id_doc smallint, nome char(50), data char(50), mes_referencia char(15), tipo_doc char(30))
declare @BOATRV table(id_doc smallint, nome char(50), data char(50), mes_referencia char(15), tipo_doc char(30))
declare @BOPM table(id_doc smallint, nome char(50), data char(50), mes_referencia char(15), tipo_doc char(30))

insert into @ARV values(1, 'João', '02/04/09', 'Abril/09', 'ARV')
insert into @ARV values(2, 'João', '05/04/09', 'Abril/09', 'ARV')
insert into @ARV values(3, 'José', '01/04/09', 'Abril/09', 'ARV')
insert into @ARV values(4, 'José', '07/04/09', 'Abril/09', 'ARV')
insert into @ARV values(5, 'José', '15/04/09', 'Abril/09', 'ARV')

insert into @BOATRV values(1, 'João', '02/04/09', 'Abril/09', 'BOATRV')
insert into @BOATRV values(2, 'João', '05/04/09', 'Abril/09', 'BOATRV')
insert into @BOATRV values(3, 'João', '18/04/09', 'Abril/09', 'BOATRV')
insert into @BOATRV values(4, 'José', '07/04/09', 'Abril/09', 'BOATRV')
insert into @BOATRV values(5, 'José', '15/04/09', 'Abril/09', 'BOATRV')

insert into @BOPM values(1, 'João', '02/04/09', 'Abril/09', 'BOPM')
insert into @BOPM values(2, 'José', '01/04/09', 'Abril/09', 'BOPM')
insert into @BOPM values(3, 'José', '07/04/09', 'Abril/09', 'BOPM')
insert into @BOPM values(4, 'José', '15/04/09', 'Abril/09', 'BOPM')

select 
    tipo_doc, 
    count (distinct id_doc)qdt_doc
from @ARV
where nome = 'João'
group by tipo_doc

union 

select 
    tipo_doc, 
    count (distinct id_doc)qdt_doc
from @BOATRV
where nome = 'João'
group by tipo_doc

union 

select 
    tipo_doc, 
    count (distinct id_doc)qdt_doc
from @BOPM
where nome = 'João'
group by tipo_doc

Resultado:

Retorno da pesquisa
tipo_doc	qtd_doc
ARV	2
BOATRV	3
BOPM	1

Mais informações sobre o UNION, GROUP BY e COUNT acesse MSDN.

;-)

#995157 Erro No Driver Do Access

Posted by Renan L. Queiroz on 23/02/2010, 10:42 in ASP

Ah possíveis causas.

Problema com DNS:

Causa: Uma fonte de dados DSN de sistema foi criada no servidor ou a página
da Web contém uma referência incorreta ao nome da fonte de dados DSN de sistema.

Resolução:
Execute as seguintes etapas no computador servidor Web para adicionar um novo DSN de sistema ou verificar o nome de uma fonte de dados existente:

1. Clique duas vezes no ícone ODBC no Painel de controle do Servidor Web.
2. Na caixa de diálogo Fontes de Dados, clique em DSN de sistema.
3. Clique em Adicionar se você não visualizar o nome do DNS de sistema que usou como nome da fonte de dados no Assistente "Publicar na Web".
4. Selecione Driver do Microsoft Access e clique em Concluir.

OBSERVAÇÃO: se o Driver do Microsoft Access não aparecer, ele não está instalado no servidor Web. Para obter informações sobre como instalar o driver no servidor web, pesquise no Índice da Ajuda por "Driver de Área de Trabalho do Microsoft Access", ou pergunte ao Assistente do Office do Microsoft Access 97.
5. Complete a caixa de diálogo do Programa de Instalação do Microsoft Access 97 ODBC. O nome digitado na caixa DSN será o nome que você deve usar na caixa DSN no Assistente "Publicar na Web".
6. Clique em OK para fechar a caixa de diálogo do Programa de Instalação do Microsoft Access 97 ODBC.
7. Clique em OK na caixa de diálogo Administrador de fonte de dados ODBC.
8. Se o DSN no DSN de sistema do servidor Web for diferente daquele usado ao criar as páginas da Web, inicie o Assistente "Publicar na Web" no Microsoft Access e crie novamente as páginas da Web usando o DSN correto.

Fonte: ACC97: erro "Nome da fonte de dados não encontrado" ao abrir a página da Web

Problemas com IIS, Driver ODBC, Permissões e/ou Connection String:

Podemos ter várias soluções no seu caso, vamos a algumas delas.
1° O IIS está configurado corretamente?
2° Voce criou uma fonte ODBC para a instância que voce esta tentando acessar?
3° Voce possui as devidas permissões para a instância, tabela?
4° Eu prefiro trabalhar com OLEDB, se puder tente trabalhar com ele, a sintaxe é essa:
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString="PROVIDER=SQLOLEDB;DATA SOURCE=nomeServidoreInstancia;Initial Catalog=nomeBanco;User ID=nomeUsuario;Password=senha"
conn.Open

Fonte: Problemas Com Fonte De Dados Odbc