Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

securityBR

Erro de execução

Por , em ASP Clássico

Recommended Posts

Salgado    4

Salgado
Postado

Ops, In é palavra reservada. troque essa variável e outras ocorrências dela por outro nome:

<%@ Language=VBScript %>
<%
View = Request("View")
Department = Request("Department")
In_Campo = Request("In")
Find = Request("Find")

set conn = server.createobject ("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../bd.mdb")

if LCase(View) = "all" then
SQL = "select * from CIEmpDir;"
TheMessage = "Todos empregados"
elseif LCase(View) = LCase("Department") then
SQL = "select * from CIEmpDir where Department = '"& Department & "',")
TheMessage = "Departamento "& Department
else
SQL = "select * from CIEmpDir where "& In_Campo &" Like '%"& Find &"%';")
TheMessage = "Bucar resultados"
end if	
%>

<b>TheMessage = </b><%=TheMEssage%><br>
<b>View = </b><%=View%><br>
<b>Department = </b><%=Department%><br>
<b>In_Campo = </b><%=In_Campo%><br>
<b>Find = </b><%=Find%><br>
<b>SQL = </b><%=SQL%><br>
<%
set rsEmps = conn.Execute(SQL)
If Not rsEmps.EOF Then
While Not rSEmps.EOF
%>
<span class="style2"><%=RSEmps("Department")%></span>
<span class="style2"><%=RSEmps("PhoneNumber")%></span>
<span class="style2"><%=RSEmps("EmailAddress")%></span>
<span class="style2"><%=RSEmps("Name")%></span>
<%	Wend
Else
%>
<span class="style2">Não existem dados para sua busca.</span>
<%
End If

rsEmps.Close
Set rsEmps = Nothing

Conn.Close
Set Conn = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

securityBR    0

securityBR
Postado

tenta essa string SQL no else

 

select * from CIEmpDir where "& In &" Like '%"& Find &"%';"

 

 

Cara, mudei o codigo e deu erro de compilação, tirei novamente e coloquei um Response.end() que você mensionou acima e o erro parou, só que agora não aparece nada, nem erro e nem um dado...

Aparece a página em branco

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tente mudar o nome do campo, talvez IN seja uma palavra reservada

ou coloque request.form("in")

Compartilhar este post

Link para o post
Compartilhar em outros sites

securityBR    0

securityBR
Postado

Ops, In é palavra reservada. troque essa variável e outras ocorrências dela por outro nome:

<%@ Language=VBScript %>
<%
View = Request("View")
Department = Request("Department")
In_Campo = Request("In")
Find = Request("Find")

set conn = server.createobject ("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../bd.mdb")

if LCase(View) = "all" then
	SQL = "select * from CIEmpDir;"
	TheMessage = "Todos empregados"
elseif LCase(View) = LCase("Department") then
	SQL = "select * from CIEmpDir where Department = '"& Department & "',")
	TheMessage = "Departamento "& Department
else
	SQL = "select * from CIEmpDir where "& In_Campo &" Like '%"& Find &"%';")
	TheMessage = "Bucar resultados"
end if	
%>

<b>TheMessage = </b><%=TheMEssage%><br>
<b>View = </b><%=View%><br>
<b>Department = </b><%=Department%><br>
<b>In_Campo = </b><%=In_Campo%><br>
<b>Find = </b><%=Find%><br>
<b>SQL = </b><%=SQL%><br>
<%
set rsEmps = conn.Execute(SQL)
If Not rsEmps.EOF Then
	While Not rSEmps.EOF
%>
<span class="style2"><%=RSEmps("Department")%></span>
<span class="style2"><%=RSEmps("PhoneNumber")%></span>
<span class="style2"><%=RSEmps("EmailAddress")%></span>
<span class="style2"><%=RSEmps("Name")%></span>
<%	Wend
Else
%>
<span class="style2">Não existem dados para sua busca.</span>
<%
End If

rsEmps.Close
Set rsEmps = Nothing

Conn.Close
Set Conn = Nothing%>

 

 

 

beleza, mudei a variavel só que agora:

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/funcionario/html/results2.asp, line 15, column 70

SQL = "select * from CIEmpDir where Department = '"& Department & "',")

Eitaaa...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

o que é essa , na string SQL

"select * from CIEmpDir where Department = '"& Department & "',")

Compartilhar este post

Link para o post
Compartilhar em outros sites

securityBR    0

securityBR
Postado

Ops, In é palavra reservada. troque essa variável e outras ocorrências dela por outro nome:

<%@ Language=VBScript %>
<%
View = Request("View")
Department = Request("Department")
In_Campo = Request("In")
Find = Request("Find")

set conn = server.createobject ("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../bd.mdb")

if LCase(View) = "all" then
	SQL = "select * from CIEmpDir;"
	TheMessage = "Todos empregados"
elseif LCase(View) = LCase("Department") then
	SQL = "select * from CIEmpDir where Department = '"& Department & "',")
	TheMessage = "Departamento "& Department
else
	SQL = "select * from CIEmpDir where "& In_Campo &" Like '%"& Find &"%';")
	TheMessage = "Bucar resultados"
end if	
%>

<b>TheMessage = </b><%=TheMEssage%><br>
<b>View = </b><%=View%><br>
<b>Department = </b><%=Department%><br>
<b>In_Campo = </b><%=In_Campo%><br>
<b>Find = </b><%=Find%><br>
<b>SQL = </b><%=SQL%><br>
<%
set rsEmps = conn.Execute(SQL)
If Not rsEmps.EOF Then
	While Not rSEmps.EOF
%>
<span class="style2"><%=RSEmps("Department")%></span>
<span class="style2"><%=RSEmps("PhoneNumber")%></span>
<span class="style2"><%=RSEmps("EmailAddress")%></span>
<span class="style2"><%=RSEmps("Name")%></span>
<%	Wend
Else
%>
<span class="style2">Não existem dados para sua busca.</span>
<%
End If

rsEmps.Close
Set rsEmps = Nothing

Conn.Close
Set Conn = Nothing%>

 

 

 

beleza, mudei a variavel só que agora:

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/funcionario/html/results2.asp, line 15, column 70

SQL = "select * from CIEmpDir where Department = '"& Department & "',")

 

Eitaaa...

 

 

 

Aee salgado, consegui arrumar o erro, estava faltando o "(" no inicio da instrução, mais agora:

 

Tipo de erro:

Objeto Response, ASP 0104 (0x80070057)

Operação não permitida

/funcionario/html/results2.asp

 

Estou muito agradecido pela atenção de todos ae em galera...vamos lá..obrigado mesmo..

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Troque

SQL = "select * from CIEmpDir where Department = '"& Department & "',")

Por

	SQL = "select * from CIEmpDir where Department = '"& Department & "';"

Era para ser ";" e acabei digitando uma ",".

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

em qual linha da o erro ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

securityBR    0

securityBR
Postado

em qual linha da o erro ?

 

Codigo modificado galera:

 

 

<%@ Language=VBScript %>
<%
View = Request("View")
Department = Request("Department")
In_Campo = Request("In")
Find = Request("Find")

set conn = server.createobject ("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../bd.mdb")

if LCase(View) = "all" then
	SQL = "select * from CIEmpDir;"
	TheMessage = "Todos empregados"
elseif LCase(View) = LCase("Department") then
	SQL =  "select * from CIEmpDir where Department = '"& Department & "';"
	TheMessage = "Departamento "& Department
else
	SQL = ("select * from CIEmpDir where "& In_Campo &" Like '%"& Find &"%';")
	TheMessage = "Bucar resultados"
end if	
%>

<b>TheMessage = </b><%=TheMEssage%><br>
<b>View = </b><%=View%><br>
<b>Department = </b><%=Department%><br>
<b>In_Campo = </b><%=In_Campo%><br>
<b>Find = </b><%=Find%><br>
<b>SQL = </b><%=SQL%><br>
<%
set rsEmps = conn.Execute(SQL)
If Not rsEmps.EOF Then
	While Not rSEmps.EOF
%>
<span class="style2"><%=RSEmps("Department")%></span>
<span class="style2"><%=RSEmps("PhoneNumber")%></span>
<span class="style2"><%=RSEmps("EmailAddress")%></span>
<span class="style2"><%=RSEmps("Name")%></span>
<%	Wend
Else
%>
<span class="style2">Não existem dados para sua busca.</span>
<%
End If

rsEmps.Close
Set rsEmps = Nothing

Conn.Close
Set Conn = Nothing%>

 

Tipo de erro:

Objeto Response, ASP 0104 (0x80070057)

Operação não permitida

/funcionario/html/results2.asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Não está exibindo em qual linha?

Compartilhar este post

Link para o post
Compartilhar em outros sites

securityBR    0

securityBR
Postado

Não está exibindo em qual linha?

 

 

 

Agora esta retornando isso:

 

TheMessage = Bucar resultados

View =

Department =

In_Campo = Department

Find = teste

SQL = select * from CIEmpDir where Department Like '%teste%';

Não existem dados para sua busca.

 

em qualquer campo que eu tento efetuar a busca, email, departamento, ramal ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

View está vindo vazio, por isso ele não executa da forma como você estava esperando.

 

O que estamos fazendo é debugar seu script. Verifique em seu form que levou a esse script se os campos estão preenchidos corretamente.

Compartilhar este post

Link para o post
Compartilhar em outros sites

securityBR    0

securityBR
Postado

View está vindo vazio, por isso ele não executa da forma como você estava esperando.

 

O que estamos fazendo é debugar seu script. Verifique em seu form que levou a esse script se os campos estão preenchidos corretamente.

 

Sim, só que percebi uma coisa, quando eu coloco um nome que tem no bd, ele retorna esse erro:

Tipo de erro:

 

Objeto Response, ASP 0104 (0x80070057)

Operação não permitida

/funcionario/html/results2.asp

 

 

Tipo de navegador:

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

 

Página:

POST 27 bytes to /funcionario/html/results2.asp

 

POST Data:

Find=Jose&In=EmailAddress

 

 

 

E quando coloco um nome que nao contem no banco aparece isso:

 

TheMessage = Bucar resultados

View =

Department =

In_Campo = Name

Find = teste

SQL = select * from CIEmpDir where Name Like '%teste%';

Não existem dados para sua busca.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Corrija também o ELSE, troque:

SQL = ("select * from CIEmpDir where "& In_Campo &" Like '%"& Find &"%';")

Por:

	SQL = "select * from CIEmpDir where "& In_Campo &" Like '%"& Find &"%';"

 

E verifique o FORM que leva a esse script, verifique se os nomes dos campos do FORM batem com o que é recuperado no script.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

da um response.write nas variaveis

View = Request("View")

Department = Request("Department")

In_Campo = Request("In")

Find = Request("Find")

para ver o que esta sendo passado

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito