Ir para conteúdo

POWERED BY:

Arquivado

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

Paulo Felipe de Araujo

Erro 'Wend'...

Por , em ASP Clássico

Recommended Posts

Paulo Felipe de Araujo    1

Paulo Felipe de Araujo
Postado

Erro de compilação do Microsoft VBScript erro '800a03fa'


'Wend' esperado


/licao_asp/alterar_banco.asp, linha 23





<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>


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


<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<link rel="stylesheet" type="text/css" href="css/style.css" />

<!--#include file="conexao.asp"-->

<%

Dim mostrar


set mostrar = Server.CreateObject("ADODB.Recordset")

mostrar.open "SELECT * FROM clientes",conexao

while not mostrar.eof

%>

<title>Alterar</title>

</head>


<body>

<table border="0" cellpadding="1" cellspacing="3" width="50px" align="center" >

<form action="alterar_DB.asp?id=<% listar("id") %>" method="post">

<label for="nome">Nome: <input type="text" name="nome" value="<% listar("nome") %>" class="caixa" /></label><br><br>

<label for="email">E-mail: <input type="text" name="email" value="<% listar("email") %>" class="caixa" /></label><br><br>

<label for="senha">Senha: <input type="password" name="senha" value="<% listar("senha") %>" class="caixa" /></label><br>

<input type="submit" value="Salvar" class="submit" />

</form>

</table>

</body>

</html>





Quem souber me Ajude por Favor.......

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

Olá Paulo,

 

É que sua Condição está incompleta...

 

veja um exemplo de como deve ser, depois é só você adaptar para sua aplicação.

<%
While not mostrar.EOF

Response.Write mostrar("nome") & "<br>"

mostrar.Movenext

Wend

mostrar.Close
Set mostrar = Nothing
%>

Espero que ajude.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

esqueceu o Wend no final do laço

Altera ele assim:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...nsitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" href="css/style.css" />
<!--#include file="conexao.asp"--> 
<%
Dim mostrar


set mostrar = Server.CreateObject("ADODB.Recordset")
mostrar.open "SELECT * FROM clientes",conexao 
while not mostrar.eof

%>
<title>Alterar</title>
</head>


<body>
<table border="0" cellpadding="1" cellspacing="3" width="50px" align="center" >
<form action="alterar_DB.asp?id=<% listar("id") %>" method="post">
<label for="nome">Nome: <input type="text" name="nome" value="<%=listar("nome") %>" class="caixa" /></label><br><br>

    <label for="email">E-mail: <input type="text" name="email" value="<%=listar("email") %>" class="caixa" /></label><br><br>

    <label for="senha">Senha: <input type="password" name="senha" value="<%=listar("senha") %>" class="caixa" /></label><br>

<%

mostrar.Movenext

Wend%>

    <input type="submit" value="Salvar" class="submit" />
</form>
</table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

theverme    0

theverme
Postado

Tenta coloca esse loop próximo dos campos onde você quer repita se não você vai repitir as as tag title e body em seu html.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

10247357_712355475474918_192765637652087

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