Ir para conteúdo

POWERED BY:

Arquivado

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

hardbrasil

Erro na declaração IF

Recommended Posts

Ola amigo forense.

 

o erro aparentemente é de fácil solução, só que o meu conhecimento aqui deixa a desejar...

 

Microsoft VBScript compilation error '800a03fa'

 

Expected 'Wend'

 

/_admin/cadastro.asp, line 65

 

elseif rs_nv("nivel") = 2 then Response.write("<strong>Coordenador</strong>")

^

<% 				if rs_nv("nivel") = 1 then Response.write("<strong>Trabalhador</strong>")				elseif rs_nv("nivel") = 2 then Response.write("<strong>Coordenador</strong>")				elseif rs_nv("nivel") = 3 then Response.write("<strong>Administrador</strong>") 				end if								%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

O cod esta abaixo só tem um detalhe, pq o navegador indica a linha 65 como erro?

 

só um detalhe, antes de eu fazer a modificação, estava funcionando. Tenho certeza que o problema esta na declaração IF.

 

 

 

<table width="630" border="0" cellspacing="5" cellpadding="0">			<%			set rs_nv = server.createobject("adodb.recordset")			sql = "select nivel from tb_cadastro group by nivel order by nivel desc"			rs_nv.open(sql),conn			%>			  <tr>				<td height="15"> </td>				<td align="center"> </td>				<td align="center"><a href="cadastro_ins.asp">Adicionar</a></td>			  </tr>			  <tr>				<td width="370" height="15" bgcolor="#999999" class="fonte4">  Trabalhadores cadastrados </td>			   <td width="130" align="center" bgcolor="#999999" class="fonte4">Editar</td>				<td width="130" align="center" bgcolor="#999999" class="fonte4">Status</td>			  </tr>			  <%if not rs_nv.eof then%>			  <%while not rs_nv.eof%>			  <%nivel = rs_nv("nivel")%>			  <tr>				<td height="15" bgcolor="#F0F0F0" colspan="3">  				<% 				if rs_nv("nivel") = 1 then Response.write("<strong>Trabalhador</strong>")				elseif rs_nv("nivel") = 2 then Response.write("<strong>Coordenador</strong>")				elseif rs_nv("nivel") = 3 then Response.write("<strong>Administrador</strong>") 				end if								%> </td>			  </tr>			  				  <%				  set rs_usr = server.createobject("adodb.recordset")				  sql = "select * from tb_cadastro where nivel = "& nivel &" order by nm_usuario asc"				  rs_usr.open(sql),conn				  				  if not rs_usr.eof then				  %>				  				  <%while not rs_usr.eof%>				  <tr>					<td><%=rs_usr("nm_usuario")%></td>					<td align="center"><a href="cadastro_altera.asp?usuario=<%=rs_usr("cod_usuario")%>"><img src="images/editar.png" alt="editar" width="20" height="20" border="0"></a></td>					<td align="center"><%if rs_usr("status") = 1 then response.write("ativo") else response.write("<span class=""fonte4"">inativo</span>") end if%></td>				  </tr>				  <%rs_usr.movenext : wend%>				  				  <%				  end if				  rs_usr.close() : set rs_usr = nothing				  %>			  			  <%rs_nv.movenext : wend%>			  			  <%			  end if			  rs_nv.close() : set rs_nv = nothing			  %>			  						</table></td>		  </tr>		</table></td>	  </tr>	</table></td>  </tr></table></body></html><!--#include file = "dsn2.asp"-->

Compartilhar este post


Link para o post
Compartilhar em outros sites

Onde está o Wend do seu primeiro ciclo While?<%if not rs_nv.eof then%> <%while not rs_nv.eof%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

consegui resolver oproblema porem estou com erro na ultima linha do arquivo que faz a inserção no banco.

a linha é um include de fechamento de conexao.

 

 

Microsoft VBScript compilation error '800a03f6'

 

Expected 'End'

 

/_admin/dsn2.asp, line 2

 

 

 

<!--#include file = "dsn.asp"--><%proc = request("proc")if proc = "usuario" then	a_senha = request("senha")	c_senha = request("conf_senha")		if a_senha = empty then		session("alerta") = "é obrigatório o preenchimento da senha"		response.redirect("cadastro_ins.asp")			else if a_senha <> c_senha then		session("alerta") = "senha não coincide com confirme senha"		response.redirect("cadastro_ins.asp")		else if a_senha = c_senha then		session.Contents.Remove("alerta")		senha = a_senha	End if		set rs = Server.CreateObject("adodb.recordset")	rs.open("select max(cod_usuario) as max_usuario from tb_cadastro"),conn	codigo = rs("max_usuario") + 1		conn.execute("insert into tb_cadastro (cod_usuario, nm_usuario, email, senha, ddd, telefone, cidade, uf, nivel, dt_cadastro, status) values ('"& codigo &"','"& request.form("nm_usuario") &"','"& request.form("email") &"','"& senha &"','"& request.form("ddd") &"','"& request.form("telefone") &"', '"& request.form("cidade") &"', '"& request.form("uf") &"', '"& request.form("nivel") &"', '"& request.form("dt_cadastro") &"','"& request.form("status") &"')")	response.Redirect("cadastro.asp")		rs.close() : set rs = nothingend if%><!--#include file = "dsn2.asp"-->

a linha de fechamento que da erro é a terceira:

 

<%Conn.closeset Conn = nothing	   >>>>> erro nesta linha%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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