erro 0x800A01B6

carlaregina · Janeiro 29, 2007

Olá...

Está aparecendo esse erro aqui

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01B6)

O objeto não dá suporte para a propriedade ou método: 'SQL_ULTIMO.write'

/geral/dasa/gerencia/itinerario_visita.asp, line 90

o código é esses

<% Session("usuario")= Session("usuario")

Session("senha")= Session("senha")

%>

<html>

<head>

<title>SIM - Itinerário de Visitas</title>

</head>

<body>

<%

Dim Conexao

Call Abre_Conexao

SQL_SELECIONA = "SELECT a.codigo_regiao, a.codigo_setor, a.nome_setor, b.nome "

SQL_SELECIONA = SQL_SELECIONA & " FROM PROJETO_SETORES_VENDAS a, PROJETO_MEMBROS b, CICLO_VENDEDOR_SETOR c "

SQL_SELECIONA = SQL_SELECIONA & " WHERE b.codigo_funcionario = c.codigo_funcionario "

SQL_SELECIONA = SQL_SELECIONA & " AND a.codigo_setor = c.codigo_setor "

SQL_SELECIONA = SQL_SELECIONA & " GROUP BY a.codigo_regiao, a.codigo_setor, a.nome_setor, b.nome, b.ativado "

SQL_SELECIONA = SQL_SELECIONA & " HAVING b.ativado = 'sim' "

SQL_SELECIONA = SQL_SELECIONA & " ORDER BY a.codigo_regiao, a.codigo_setor; "

Set TAB_SELECIONA = Conexao.Execute(SQL_SELECIONA)

SQL_SEMANAS = "SELECT data_inicio, data_fim, numero_semana "

SQL_SEMANAS = SQL_SEMANAS & " FROM SEMANAS "

SQL_SEMANAS = SQL_SEMANAS & " WHERE data_inicio <= #" & Month(date) & "/" & Day(date) & "/" & Year(date) & "# "

SQL_SEMANAS = SQL_SEMANAS & " AND data_fim >= #" & Month(date) & "/" & Day(date) & "/" & Year(date) & "#;"

Set TAB_SEMANAS = Conexao.Execute(SQL_SEMANAS)

If TAB_SEMANAS.EOF Then

%>

ERRO!!! POR FAVOR CONTATE O SUPORTE - NÃO EXISTEM SEMANAS A SEREM CONSULTADAS

<%

RESPONSE.END

END IF

%>

<tr>

<td bgcolor="#E9EAE5" height="18" align="center" colspan="6"> <b>ITINERÁRIO DE VISITAS</b></td>

</tr>

</table>

<%

For i = 0 to 1

%>

<tr>

<td width="259" bgcolor="#F5F3F4" align="center"><b> Setor</b></td>

<td width="259" bgcolor="#F5F3F4" align="center"><b>Representante</b></td>

<%

If i=0 Then

%>

<td width="260" bgcolor="#F5F3F4" align="center"><b>Semana Atual </b></td>

<%

Else

%>

<td width="260" bgcolor="#F5F3F4" align="center"><b>Próxima Semana </b></td>

<%

End If

%>

</tr>

<%

While not TAB_SELECIONA.eof

Call Abre_Conexao

codigo_setor = TAB_SELECIONA("codigo_setor")

SQL_ULTIMO = "SELECT data_inicio as ultimo_registro "

SQL_ULTIMO = SQL_ULTIMO & " FROM PROJETO_ITINERARIO "

SQL_ULTIMO = SQL_ULTIMO & " WHERE codigo_setor = "& codigo_setor & " "

SQL_ULTIMO = SQL_ULTIMO & " AND data_inicio <= #" & Month(date) & "/" & Day(date)+i*7 & "/" & Year(date) & "#"

SQL_ULTIMO = SQL_ULTIMO & " AND data_fim >= #" & Month(date) & "/" & Day(date)+i*7 & "/" & Year(date) & "#"

Set TAB_ULTIMO = Conexao.Execute(SQL_ULTIMO)

esse é a query q esta dando errado...

response.write=SQL_ULTIMO

response.end

If TAB_ULTIMO.EOF Then

%>

<tr>

<td> Não enviou itinerário</td></a>

</tr>

<% tab_seleciona.MoveNext

else

ultimo_registro = TAB_ULTIMO("ultimo_registro")

ultimo_registro_form = month(ultimo_registro) & "/" & day(ultimo_registro) & "/" & year(ultimo_registro)

ultimo_registro_memo = ultimo_registro

ultimo_registro = ultimo_registro_form

sql_semana = "select * from PROJETO_ITINERARIO where data_inicio = #"& ultimo_registro & "#"

set tab_semana = Conexao.Execute(sql_semana)

data_inicio = tab_semana("data_inicio")

data_fim = tab_semana("data_fim")

%>

<tr>

<td> <a href="Itinerario_Visita2.asp?codigo_setor=<%= tab_seleciona("codigo_setor")%>&codigo_itinerario=<%=tab_semana("codigo_itinerario")%>" class="visita"><% = Day(data_inicio) & "/" & Month(data_inicio) & "/" & Year(data_inicio) %> a <% = Day(data_fim) & "/" & Month(data_fim) & "/" & Year(data_fim) %></td></a>

</tr>

<% tab_seleciona.MoveNext

end if

wend

TAB_SELECIONA.MoveFirst

%>

</table>

<%

set tab_semana = nothing

set tab_ultimo = nothing

%>

não sei mas o que fazer para essa query funcionar....

por favor me ajudem!!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Abraços..

Felipe Bellé · Janeiro 29, 2007

se você quer printar o codigo sql, e foi ai o erro, seu erro foi ter usado

response.write '=' SQL_ULTIMO

o método response.write funciona da seguinte forma:

response.write("teste") <- palavra ou frase fixa

response.write(teste) <- variavel

response.write "teste" <- palavra ou frase fixa

response.write teste <- variavel

não encontrei outra possibilidade de erro =x

jrcardozo · Janeiro 30, 2007

seguindo a ideia do Felipe, acima dessa linha

Set TAB_ULTIMO = Conexao.Execute(SQL_ULTIMO)

Coloque

response.write(tab_ultimo)

response.end()'isso fará o código parar e não executar mais, assim vai aparecer no browser o SQL montado na variavel

ahh!! e retire essa linha

response.write = SQL_ULTIMO

carlaregina · Janeiro 30, 2007

Oie meninos obrigada...

infelizmente continua tendo erro

Tipo de erro:

Objeto Response, ASP 0185 (0x8002000E)

Não foi encontrada uma propriedade padrão do objeto.

/geral/dasa/gerencia/itinerario_visita.asp

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)

Página:

GET /geral/dasa/gerencia/itinerario_visita.asp

Hora:

terça-feira, 30 de janeiro de 2007, 08:19:23

Mais informações:

Suporte da Microsoft

Juro não sei o que é...

http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

quem puder me ajudar agradeço...

Abraços

Carla

jrcardozo · Janeiro 30, 2007

ops..desculpa ai carlaregina, passei errado...seria response.write(sql_ultimo) e não response.write(tab_ultimo)

você chegou a fazer isso?

carlaregina · Janeiro 30, 2007

Oie....fiz sim...to meio perdida e estou sozinha para cuidar disso...agora apareceu onde está o erro. Setor Representante Semana Atual SELECT data_inicio as ultimo_registro FROM PROJETO_ITINERARIO WHERE codigo_setor = 1 AND data_inicio <= #1/30/2007# AND data_fim >= #1/30/2007# pq será q aparece essa query?abraços..Carla

jrcardozo · Janeiro 30, 2007

aparece porque você colocou o response.end(), isso pára o código e você pode, por exemplo, imprimir o conteúdo de uma variavél para verificar onde está o erroPossivelmente o problema esteja na data, veja que está no formato mm/dd/aaaa, veja se no seu banco de dados está com a mesma formatação, se não estiver usesession.lcid=1046'(formato PT-BR)e cria uma função para formatar as datas em dd/mm/aaaa

carlaregina · Janeiro 30, 2007

Essa session eu coloco onde?eu dei uma olhada no banco e está assim dia/mes/ano....Mas quando agente faz pesquisa não fica igual esta no código mes/dia/ano?

jrcardozo · Janeiro 30, 2007

não fica igual não....

<%session.lcid=1046%>

você coloca no inicio do código

use essa função pra formatar a data

<%Function ConverteData (valor) dim dia,mes,anodia=right("00"&day(valor),2)mes=right("00"&month(valor),2)ano=year(valor)ConverteData=dia&"/"&mes&"/"&ano End Function%>

para usar a função

SQL_SEMANAS = SQL_SEMANAS & " AND data_fim >= #" &convertedata(date)& "#;"

fazendo isso você não se incomoda com formatação de datas

carlaregina · Janeiro 30, 2007

Desculpe minha ignorância, mas continua o erro com relação a data...não sei mesmo o que mais posso mudar...Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'codigo_setor = 1 AND data_inicio <= #30/01/2007# AND data_fim >= >= #30/01/2007#'./geral/dasa/gerencia/itinerario_visita.asp, line 99

jrcardozo · Janeiro 30, 2007

veja só na mensagem que tem caracteres a mais

'codigo_setor = 1 AND data_inicio <= #30/01/2007# AND data_fim >= >= #30/01/2007#'.

tente assim

codigo_setor = 1 AND data_inicio <= #30/01/2007# AND data_fim >= #30/01/2007#

ou

codigo_setor = 1 AND data_inicio between #30/01/2007# AND #30/01/2007#

caduteclab · Agosto 11, 2010

Ola pessoal, sou meio leigo neste assunto, porem preciso resolver isso...

Estou com um problema parecido ao do colega acima e não consigo resolvel, alguém pode me ajudar?

Está me retornando este erro:

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

Tipos incompatíveis: 'abre_conexao'

/painelCtrl/ADM_check_usuario.asp, line 20

______________________

Meu código está assim:

<%

'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#

' Loja Exemplo

'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#

%>

<%

'Carrega a configuração dos caminhos a serem usuados na Loja

Call identifica_caminhos()

Call Valida_Request()

varLang = Application("varLang")

varSkin = "default"

'Abre o banco de dados

linha 20 Call abre_conexao(conexao)

If request("alterar") <> "" And Session("StatusSenha") = "inicial" Then

Conexao.execute "UPDATE Usuarios_admin SET chave_admin ='"& Request.Form("senha") &"', status='0' WHERE user_id_admin = '" & request("usuario") & "'"

Session("StatusSenha") = ""

End If

If Request.Form("senha") <> "" or Request("usuario") <> "" Then

senha = Request.Form("senha")

Set RS_pass = Server.CreateObject("ADODB.Recordset")

SQL = " SELECT user_id_admin, nome_usuario, email_usuario, ddd_usuario, fone_usuario, chave_admin, perfil_usuario, status FROM Usuarios_admin WHERE user_id_admin='"&Request("usuario")&"' and status <> 1 "

RS_pass.Open SQL,Conexao,3,3

If RS_pass.Eof Then

RS_pass.Close

Conexao.Close

set RS_pass = nothing

set Conexao = nothing

msgLogin = "?msgLogin=" & Server.URLEncode("USUÁRIO NÃO CADASTRADO.")

Response.Redirect "default.asp" & msgLogin

Else

acao = request("acao")

If (acao = "esquecisenha") Then

envia_senha = Envia_mail_senha(Request("usuario"),"admin",adicional)

msgLogin = "?msgLogin=" & Server.URLEncode("SENHA ENVIADA COM SUCESSO PARA O E-MAIL CADASTRADO.")

If request("url_redirect") <> "" Then

Response.Redirect request("url_redirect")

Else

Response.Redirect "default.asp" & msgLogin

End if

response.end

End If

If Request("usuario") = RS_pass("user_id_admin") and senha = RS_pass("chave_admin") then

session("nome_usuario") = RS_pass("nome_usuario")

session("perfil_usuario") = RS_pass("perfil_usuario")

session("LogadoAdmin") = "LogadoAdmin"

session("usuario_admin") = RS_pass("user_id_admin")

'Verifica se a senha do usuário é inicial

If RS_pass("status") = "2" Then

Session("StatusSenha") = "inicial"

End if

Else

msgLogin = "?msgLogin=" & Server.URLEncode("DADOS INVÁLIDOS.")

Response.Redirect "default.asp" & msgLogin

End if

RS_pass.Close

set RS_pass = nothing

End If

'Destroi objeto

Set oEncryptor = Nothing

'Fecha o banco de dados

Call Fecha_conexao

If Session("StatusSenha") = "inicial" Then

%>

<HTML>

<HEAD>

</HEAD>

<tr>

<!--################################################################################

##-->

<tr>

</tr>

<tr>

</tr>

<tr>

<!--################################################################################

##-->

<tr>

var d=new Date()

var weekday=new Array("Domingo","Segunda","Terça","Quarta","Quinta","Sexta","Sábado")

var monthname=new Array("Janeiro","Fevereiro","Março","Abril","Março","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro")

document.write(weekday[d.getDay()] + ", ")

document.write(d.getDate() + " de ")

document.write(monthname[d.getMonth()] + " de ")

document.write(d.getFullYear())

</script></font></td>

<td width="32%"><font color="#666666"><b>IP de acesso: </b><%= Request.ServerVariables("REMOTE_ADDR")%></font></td>

</tr>

<tr>

<td colspan="2" vAlign="bottom"><span class="TituloLoja"><font color="#333333">Prezado Administrador, seja bem vindo!</font></span></td>

</tr>

</table>

<br>

<td colspan="2" height="60"><div align="justify">Para ter acesso às funcionalidades de seu usuário será necessário cadastrar uma nova senha, para isso utlize o formulário abaixo.</div></td>

</tr>

<td align="right">Usuário:</td>

</tr>

<td align="right">Nova senha:</td>

</tr>

<td align="right">Redigite senha:</td>

</tr>

</tr>

</form>

</table>

<!--################################################################################

##-->

</td>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

<!--################################################################################

##-->

</td>

</tr>

</table>

</BODY>

</HTML>

<%

Else

'Registra log de acesso do usuario

Call RegistraLog()

Response.redirect "adm_home.asp"

End if

%>

____________________________________________

Seria aqui o erro mesmo?

Arquivado

erro 0x800A01B6

Recommended Posts

carlaregina 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Felipe Bellé 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

carlaregina 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

carlaregina 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

carlaregina 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

carlaregina 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

caduteclab 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante