ERRO - OBJETO NECESSARIO

DENISSON 24/12/2012 14:40:40
#416370
Pessoal estou com um problema, esta dando um erro na minha pagina o erro é Erro de tempo de execução do Microsoft VBScript erro [ô]800a01a8[ô]
Objeto necessário: [ô][ô]

A linha do erro é

<%
if request([Ô]bt[Ô])=[Ô]0[Ô] then

dim fr

set fr = new Consulta

if IsEmpty(Request.form([Ô]Usuario[Ô])) then
Response.Write [Ô]Consulta não feita[Ô]
else
fr.Usuario = request([Ô]Usuario[Ô])
fr.Senha = request([Ô]Senha[Ô])
fr.Consult

response.Write [Ô]<table border =0><tr>[Ô]

for i=0 to form.rs.fields.Count -1 [ô] linha do erro
Response.Write[Ô]<th>[Ô]
Response.Write form.fields(1).name
Response.Write[Ô]</th>[Ô]
next
Response.Write[Ô]</tr>[Ô]

While not form.oef
Response.Write [Ô]<tr>[Ô]
for i=0 to form.Count -1
Response.Write [Ô]<td>[Ô]
Response.Write form.fields(i)
Response.Write [Ô]</td>[Ô]
next
Response.white [Ô]</tr>[Ô]
form.MoveNext
Wend
Response.Write [Ô]</Table>[Ô]
end if
end if
%>
MAFACILITY 07/01/2013 01:42:49
#416829
me parece q o erro é pq o sistema não está achando a string de conexão com o banco de dados, mostre sua conexão.
Qual BD?
DENISSON 17/01/2013 08:39:47
#417593
Minha conexão com o banco é essa.
<%
DIM con, sSQL, rs

Set con = Server.CreateObject([Ô]ADODB.Connection[Ô])
con.open [Ô]Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=teste;Initial Catalog=DENISSON_ESTUDO;Data Source=DENISSON-PC[Ô]

%>

e minha pagina que exime as informaçãoes é essa.

<%
if request([Ô]bt[Ô])=[Ô]0[Ô] then

dim fr

set fr = new Consulta

if IsEmpty(Request.form([Ô]Usuario[Ô])) then
Response.Write [Ô]Consulta não feita[Ô]
else
fr.Usuario = request([Ô]Usuario[Ô])
fr.Senha = request([Ô]Senha[Ô])
fr.Consult

response.Write [Ô]<table border =0><tr>[Ô]

for i=0 to form.rs.fields.Count -1 [ô] linha do erro
Response.Write[Ô]<th>[Ô]
Response.Write form.fields(1).name
Response.Write[Ô]</th>[Ô]
next
Response.Write[Ô]</tr>[Ô]

While not form.oef
Response.Write [Ô]<tr>[Ô]
for i=0 to form.Count -1
Response.Write [Ô]<td>[Ô]
Response.Write form.fields(i)
Response.Write [Ô]</td>[Ô]
next
Response.white [Ô]</tr>[Ô]
form.MoveNext
Wend
Response.Write [Ô]</Table>[Ô]
end if
end if
%>
KERPLUNK 17/01/2013 10:31:18
#417606 Resposta escolhida
Sabe dizer em qual linha esse erro acontece?
DENISSON 17/01/2013 11:06:04
#417615
Mandei novamente o codigo da pagina que esta dando erro, ele esta em vermelho e negrito logo abaixo

<!--#include file=[Ô]formulario.asp[Ô]-->
<!--#include file=[Ô]conexao.asp[Ô]-->

<%

if request([Ô]bt[Ô])=[Ô]0[Ô] then

dim fr

set fr = new Consulta

if IsEmpty(Request.form([Ô]Usuario[Ô])) then
Response.Write [Ô]Consulta não feita[Ô]
else
fr.Usuario = request([Ô]Usuario[Ô])
[ô]fr.Senha = request([Ô]Senha[Ô])
fr.Consult

response.Write [Ô]<table border =0><tr>[Ô]

[txt-color=#e80000]for i=0 to rs.fields.Count -1 [ô]linha do problema[/txt-color]

Response.Write[Ô]<th>[Ô]
Response.Write request.Form.Item(i).name
Response.Write[Ô]</th>[Ô]

next
Response.Write[Ô]</tr>[Ô]

While not form.oef
Response.Write [Ô]<tr>[Ô]
for i=0 to form.Count -1
Response.Write [Ô]<td>[Ô]
Response.Write form.fields(i)
Response.Write [Ô]</td>[Ô]
next
Response.white [Ô]</tr>[Ô]
formulario.MoveNext
Wend
Response.Write [Ô]</Table>[Ô]
end if
end if
%>

<html>
<head>
<script>

function clicou()
{
FormIncluir.bt.value = 0;
FormIncluir.action = [ô]index.asp[ô]
FormIncluir.submit();
}
</script>

<form name=[Ô]FormIncluir[Ô] method=[Ô]post[Ô]>
<table border=[Ô]0[Ô]>
<tr>
<td>Usuário</td><td><input name=[Ô]Usuario[Ô] type=[Ô]text[Ô] /></td>
</tr>
<tr>
<td>Senha</td><td><input name=[Ô]Senha[Ô] type=[Ô]text[Ô] /></td>
</tr>
</table>
<input type=[Ô]button[Ô] name=[Ô]gravar[Ô] value=[Ô] Gravar [Ô] onClick=[Ô]clicou();[Ô]>
<input type=[Ô]hidden[Ô] name=[Ô]bt[Ô]>
</form>
Tópico encerrado , respostas não são mais permitidas
Voltar