BD Vazio if (não sei o que tá acontecendo)

[ricardo coelho designer 0]

Gente venho pedir a ajuda de vcs. Quanto a tbl não tem nenhum registro no codigo abaixo deveria direcionar para uma página mas não está o BD é access.

 

<%if len(trim(RS("idapresentacao")))=0 thenresponse.write "<meta http-equiv='refresh' content='0; url=ADMapresentacao.asp?inserir=inserir'/>"else   %><span>- <%= RS("data")%> | <%= Left (RS("conteudo"),15)%>... | <b><a href="ADMapresentacao.asp?inserir=inserir">Inserir</a> - <a href="ADMapresentacao.asp?atualizar=<%= RS("idapresentacao")%>">Atualizar</a> - <a href="ADMapresentacao.asp?excluir=<%= RS("idapresentacao")%>">Excluir</a></span></b><br></font><%RS.MoveNextend ifWendRS.close%>

[jrcardozo 4]

troque

if len(trim(RS("idapresentacao")))=0 thenresponse.write "<meta http-equiv='refresh' content='0; url=ADMapresentacao.asp?inserir=inserir'/>"

por

if RS.eof thenresponse.redirect("ADMapresentacao.asp?inserir=inserir")

[techo.tony 0]

response.write "<META HTTP-EQUIV='refresh' CONTENT='1; url=ADMapresentacao.asp?inserir=inserir'>"

[ricardo coelho designer 0]

Em primeiro lugar quero agradecer por mais essa ajuda, mas não redireciona estou postando o código completo, para ver o que está dando errado.

<%inserir = Request.QueryString("inserir")if inserir = "inserir" then %>Insira o conteúdo abaixo:<form name="fomulario" method="post" action="ADMapresentacao-insere-BD.asp"><table width="509" border="0" align="center" cellpadding="0" cellspacing="2"><tr><td align="right" valign="top" class="FormularioTexto">Conteúdo:</td><td align="left" valign="top"><textarea name="conteudo" cols="60" rows="5" class="Formulario" id="conteudo"></textarea></td></tr><tr><td valign="top" class="texto"> </td><td align="left" valign="top"><input type="submit" name="enviar" value="enviar" class="Formulario" ><input type="reset" name="limpar" value="limpar" class="Formulario" ></td></tr></table></form><%elseexcluir = Request.QueryString("excluir")if excluir = "" thenelseresponse.write "Tem certeza que quer mesmo excluir? <br>"response.write "<a href=ADMapresentacao-excluir-BD.asp?apresentacao="&excluir&">Sim</a> -"response.write "<a href=ADMapresentacao.asp>Não</a><br>"end ifpress = Request.QueryString("atualizar")If press = "" or false ThenElse%>Atualize o conteúdo abaixo:<%SQLStmt = "SELECT * FROM apresentacao ORDER BY idapresentacao = "&pressRS.Open SQLstmt,ConnWhile Not RS.EOF %><form name="fomulario" method="post" action="ADMapresentacao-alterar-BD.asp"><table width="509" border="0" align="center" cellpadding="0" cellspacing="2"><tr><td align="right" valign="top" class="FormularioTexto">Conteúdo:</td><td align="left" valign="top"><textarea name="conteudo" cols="60" rows="5" class="Formulario" id="conteudo" value="<%= RS("conteudo")%>"><%=RS("conteudo")%></textarea><input type="hidden" name="idapresentacao" cols="60" rows="5" class="Formulario" id="idapresentacao" value="<%= RS("idapresentacao")%>"></td></tr><tr><td valign="top" class="texto"> </td><td align="left" valign="top"><input type="submit" name="enviar" value="enviar" class="Formulario" ><input type="reset" name="limpar" value="limpar" class="Formulario" ></td></tr></table></form><%RS.MoveNextWendRS.close%><%End if%><%End if%><%SQLStmt = "SELECT * FROM apresentacao ORDER BY idapresentacao desc "RS.Open SQLstmt,ConnWhile Not RS.EOF %><br><font color="#FF0000" size="1" face="verdana"><%if RS.eof thenresponse.redirect("ADMapresentacao.asp?inserir=inserir")end if %><span>- <%= RS("data")%> | <%= Left (RS("conteudo"),15)%>...|<b><a href="ADMapresentacao.asp?inserir=inserir">Inserir</a> -<a href="ADMapresentacao.asp?atualizar=<%= RS("idapresentacao")%>">Atualizar</a> -<a href="ADMapresentacao.asp?excluir=<%= RS("idapresentacao")%>">Excluir</a></span></b><br></font><%RS.MoveNextWendRS.close%>

[Anderson Roberto 0]

Tenta assim:

<%inserir = Request.QueryString("inserir")if inserir = "inserir" then %>Insira o conteúdo abaixo:<form name="fomulario" method="post" action="ADMapresentacao-insere-BD.asp"><table width="509" border="0" align="center" cellpadding="0" cellspacing="2"><tr><td align="right" valign="top" class="FormularioTexto">Conteúdo:</td><td align="left" valign="top"><textarea name="conteudo" cols="60" rows="5" class="Formulario" id="conteudo"></textarea></td></tr><tr><td valign="top" class="texto"> </td><td align="left" valign="top"><input type="submit" name="enviar" value="enviar" class="Formulario" ><input type="reset" name="limpar" value="limpar" class="Formulario" ></td></tr></table></form><%elseexcluir = Request.QueryString("excluir")if excluir = "" thenelseresponse.write "Tem certeza que quer mesmo excluir? <br>"response.write "<a href=ADMapresentacao-excluir-BD.asp?apresentacao="&excluir&">Sim</a> -"response.write "<a href=ADMapresentacao.asp>Não</a><br>"end ifpress = Request.QueryString("atualizar")If press = "" or false ThenElse%>Atualize o conteúdo abaixo:<%SQLStmt = "SELECT * FROM apresentacao ORDER BY idapresentacao = "&pressRS.Open SQLstmt,ConnWhile Not RS.EOF %><form name="fomulario" method="post" action="ADMapresentacao-alterar-BD.asp"><table width="509" border="0" align="center" cellpadding="0" cellspacing="2"><tr><td align="right" valign="top" class="FormularioTexto">Conteúdo:</td><td align="left" valign="top"><textarea name="conteudo" cols="60" rows="5" class="Formulario" id="conteudo" value="<%= RS("conteudo")%>"><%=RS("conteudo")%></textarea><input type="hidden" name="idapresentacao" cols="60" rows="5" class="Formulario" id="idapresentacao" value="<%= RS("idapresentacao")%>"></td></tr><tr><td valign="top" class="texto"> </td><td align="left" valign="top"><input type="submit" name="enviar" value="enviar" class="Formulario" ><input type="reset" name="limpar" value="limpar" class="Formulario" ></td></tr></table></form><%RS.MoveNextWendRS.close%><%End if%><%End if%><%SQLStmt = "SELECT * FROM apresentacao ORDER BY idapresentacao desc "RS.Open SQLstmt,Connif RS.eof then   response.redirect("ADMapresentacao.asp?inserir=inserir")end ifWhile Not RS.EOF %><br><font color="#FF0000" size="1" face="verdana"><span>- <%= RS("data")%> | <%= Left (RS("conteudo"),15)%>...|<b><a href="ADMapresentacao.asp?inserir=inserir">Inserir</a> -<a href="ADMapresentacao.asp?atualizar=<%= RS("idapresentacao")%>">Atualizar</a> -<a href="ADMapresentacao.asp?excluir=<%= RS("idapresentacao")%>">Excluir</a></span></b><br></font><%RS.MoveNextWendRS.close%>

[jrcardozo 4]

não deu certo porque você tem que verificar antes do while

troque

While Not RS.EOF %><br><font color="#FF0000" size="1" face="verdana"><%if RS.eof thenresponse.redirect("ADMapresentacao.asp?inserir=inserir")end if %><span>- <%= RS("data")%> | <%= Left (RS("conteudo"),15)%>...|<b><a href="ADMapresentacao.asp?inserir=inserir">Inserir</a> -<a href="ADMapresentacao.asp?atualizar=<%= RS("idapresentacao")%>">Atualizar</a> -<a href="ADMapresentacao.asp?excluir=<%= RS("idapresentacao")%>">Excluir</a></span></b><br></font><%RS.MoveNextWend

por

<%if RS.eof thenresponse.redirect("ADMapresentacao.asp?inserir=inserir")elseWhile Not RS.EOF %><br><font color="#FF0000" size="1" face="verdana"><span>- <%= RS("data")%> | <%= Left (RS("conteudo"),15)%>...|<b><a href="ADMapresentacao.asp?inserir=inserir">Inserir</a> -<a href="ADMapresentacao.asp?atualizar=<%= RS("idapresentacao")%>">Atualizar</a> -<a href="ADMapresentacao.asp?excluir=<%= RS("idapresentacao")%>">Excluir</a></span></b><br></font><%RS.MoveNextWendend if %>

[ricardo coelho designer 0]

Gente valeu deu certo.

não deu certo porque você tem que verificar antes do whiletroque

While Not RS.EOF %><br><font color="#FF0000" size="1" face="verdana"><%if RS.eof thenresponse.redirect("ADMapresentacao.asp?inserir=inserir")end if %><span>- <%= RS("data")%> | <%= Left (RS("conteudo"),15)%>...|<b><a href="ADMapresentacao.asp?inserir=inserir">Inserir</a> -<a href="ADMapresentacao.asp?atualizar=<%= RS("idapresentacao")%>">Atualizar</a> -<a href="ADMapresentacao.asp?excluir=<%= RS("idapresentacao")%>">Excluir</a></span></b><br></font><%RS.MoveNextWend

por

<%if RS.eof thenresponse.redirect("ADMapresentacao.asp?inserir=inserir")elseWhile Not RS.EOF %><br><font color="#FF0000" size="1" face="verdana"><span>- <%= RS("data")%> | <%= Left (RS("conteudo"),15)%>...|<b><a href="ADMapresentacao.asp?inserir=inserir">Inserir</a> -<a href="ADMapresentacao.asp?atualizar=<%= RS("idapresentacao")%>">Atualizar</a> -<a href="ADMapresentacao.asp?excluir=<%= RS("idapresentacao")%>">Excluir</a></span></b><br></font><%RS.MoveNextWendend if %>