Ir para conteúdo

POWERED BY:

Arquivado

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

julycobain

problema update

Por , em ASP Clássico

Recommended Posts

julycobain    0

julycobain
Postado

galera eu estou fazendo uma pagina para alteração de dados de banners

 

eu envio o codigo do banner via url

http://localhost/dev/juliana/ADMIN/bn_cada...r=sim&codigo=15

 

esses dados vem da pagina banner q e a seguinte em vermelho

recupero os dados da variavel editar e codigo na pagina bn_cadastro.asp

que esta em destaque em verde

 

faço um select na tabela imagem e mostro no formulario para q este possa alterar a tabela

e redireciono a pagina atravez do proprio formulario para a pagina banners.asp

nao da erro nenhum tudo ocorre normalmente

mas nao altera os dados de forma alguma

 

sera que alguem tem noção do porque esse erro acontece

desde ja agradeço a todos

 

abraços

 

jully

 

PaginaSecao = "listagem de banners"%>

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

<%

set cnx = server.createobject("ADODB.Connection")

cnx.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Dev\juliana\ADMIN\bd_admim.mdb;Persist Security Info=False"%>

%>

<html>

<head>

<link href="agenda-admin-estilos.css" rel="stylesheet" type="text/css">

<title>I B R A C O N - Administração</title>

 

</head>

<body bgcolor="#E5F2F5" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="imagens/fundo.gif">

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

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td align="center" valign="top">

<table width="95%" border="0" cellspacing="0" cellpadding="1" bgcolor="007FA2">

<tr>

<td align="center" class="titulointerno"><b>BANNERS RANDÔMICOS CADASTRADOS</b></td>

</tr>

<tr>

<td>

<%sql = "Select * from imagem "

set rs = cnx.Execute (sql)%>

 

<table width="100%" border="0" cellspacing="1" cellpadding="5" bgcolor="#FFFFFF">

 

<tr bgcolor="#CCE5EC">

<td class="textocampo"><b>Nº</b></td>

<td class="textocampo"><b>Imagem</b></td>

<td align="center" class="textocampo"><b>Nome Arquivo</b></td>

<td align="center" class="textocampo"><b>Link</b></td>

</tr>

 

<%While not rs.eof %>

<tr bgcolor="#CCE5EC">

<td align="center" class="textoNormal"><b><%=conta%></b></td>

<td><a target="_blank" href="<%=rs("link")%>" class="linkadmin"><img src="..\banners\<%=trim(rs("arquivo"))%>" border="0"></a></td>

 

<td align="left" class="textoNormal"><b><a href="bn_cadastro.asp?editar=sim&codigo=<%=rs("codigo")%>"> <%=rs("arquivo")%></a></b></td>

 

<td align="left"><b><a class="linkadmin" target="_blank" href="<%=rs("link")%>"><%=rs("link")%></a></b></td>

</tr>

<%rs.movenext

conta=conta+1

wend

rs.close%>

 

</table>

 

</td>

</tr>

</table>

</td>

<td width="143" valign="top"><!--#include file="menu.htm"--></td>

<td width="5"> </td>

</tr>

</table>

 

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td align="center"><img src="imagens/conectt_base.gif" width="779" height="58" vspace="15"></td>

</tr>

</table>

</body>

</html>

<% cnx.close %>

 

 

<%

If Request("editar")>"" Then

PaginaSecao = "Edição de Banner"

End If%>

 

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

<%response.expires = 0%>

 

<%

set cnx = server.createobject("ADODB.Connection")

cnx.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Dev\juliana\ADMIN\bd_admim.mdb;Persist Security Info=False"%>

<html>

<head>

<title>I B R A C O N - Edição de Fornecedor</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<script type="text/javascript">

 

 

</head>

<body bgcolor="#E5F2F5" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="imagens/fundo.gif">

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

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td align="center" valign="top">

 

<% if request("editar") = "sim" then

sql= "select * from imagem where codigo = "&request("codigo")

set rs = cnx.execute(sql)

 

 

%>

 

<table width="95%" border="0" cellspacing="0" cellpadding="1" bgcolor="#007FA2">

<tr>

<td align="center">

<b><font face="Verdana, Arial, Helvetica, sans-serif" color="#ffffff" size="2">

EDIÇÃO DE FORNECEDOR</font></b>

</td>

</tr>

<tr>

 

<td>

<form method="post" action="banners.asp" onSubmit="return Validator(this)">

 

 

<table width="100%" border="0" cellspacing="2" cellpadding="3" bgcolor="#FFFFFF">

<tr>

<td bgcolor="#003399" colspan="4"><font face="Verdana, Arial" size="2" color="#FFFFFF">

<b>Dados do Banner</b> - Cód: <%=rs("codigo")%></font>

</td>

</tr>

<tr bgcolor="#CCE5EC">

<td width="185" align="right"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">*URL

Imagem </font> </td>

<td colspan="3">

<input type="text" name="link" size="38" maxlength="50" value="<%=rs("link")%>">

</td>

</tr>

<%sqlrep = "select * from imagem where codigo = "&request("codigo")

set rsrep = cnx.execute(sqlrep)

conta = 0

if not rsrep.eof then

while not rsrep.eof

conta = conta + 1%>

<tr bgcolor="#CCE5EC">

<td width="185" align="right"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">

</font> </td>

<td colspan="3"> <br>

</td>

</tr>

<%rsrep.movenext

wend

end if

rsrep.close

%>

<tr bgcolor="#CCE5EC">

<td width="185">

<div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Nome

do Arquivo</font></div>

</td>

<td colspan="3">

<input type="text" name="n_arquivo" size="10" maxlength="10" value="<%=rs("arquivo")%>">

</td>

</tr>

 

<tr bgcolor="#CCE5EC">

<td width="185">

<div align="right"></div>

</td>

<td colspan="3">

</td>

</tr>

<tr bgcolor="#CCE5EC">

<td colspan="4" height="70">

<div align="center">

<input type="submit" name="s_adicionar" value="Editar">

<input type="reset" name="s_limpa" value="Limpar">

</div>

</td>

</tr>

</table>

</form>

</td>

</tr>

</table>

 

<%else%>

 

<table width="95%" border="0" cellspacing="0" cellpadding="1" bgcolor="007FA2">

<tr>

<td align="center">

<b><font face="Verdana, Arial, Helvetica, sans-serif" color="#ffffff" size="2">

EDIÇÃO DE SÓCIOS</font></b>

</td>

</tr>

 

<tr><td>

<%datahoje = date()

 

 

arquivo = Replace(request("n_arquivo"),"'","")

link = Replace(request("link"),"'","")

 

 

function valorcampo(campo)

if campo = "" then valorcampo = " " else valorcampo = campo end if

end function

 

arquivo = valorcampo(arquivo)

link = valorcampo(link)

 

sqlup = "update imagem Set " &_

"Arquivo = '"& Arquivo & "'," &_

"Link ='" & Link &"'," &_

" where codigo = " &"codigo"

cnx.execute(sqlup)

 

 

 

 

acao = "Edição Banner: "&Replace(("n_arquivo"),"'","")&"; Status: "&request("link")

RegistraAcao(acao)%>

 

<table width=100% border=0 cellspacing=1 cellpadding=5 bgcolor=#FFFFFF>

<tr bgcolor=#CCE5EC><td>

<font face=Verdana, Arial size=2 color=#006699>Cadastro(s) <%=request("codigo")%> alterado(s) com Sucesso!</font>

<br><br><a href='java script:history.go(-3)'>Voltar</a>

</td></tr>

</table>

 

</td>

</tr>

</table>

 

<% End if %>

 

</td>

<td width="143" valign="top"><!--#include file="menu.htm"--></td>

<td width="5"> </td>

</tr>

</table>

 

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td align="center"><img src="imagens/conectt_base.gif" width="779" height="58" vspace="15"></td>

</tr>

</table>

</body>

</html>

<% cnx.close %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

sodra    0

sodra
Postado

eu olhei o seu codigo e naum achei nenhum erru + eu montei um sistema q tem update com você ker. Possu lhe mandar por icq ow msn, se quiser entre em contato cumigoICQ:316206970MSN: gustavobodra@hotmail.com

Compartilhar este post

Link para o post
Compartilhar em outros sites

julycobain    0

julycobain
Postado

eu adicionei você no meu icq mas você ainda nao apareceu onlinefico aguardando pra gente conversardesde ja te agradeço o interesseespero que você consiga me ajudarbjosjuly

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunofilhorj    0

brunofilhorj
Postado

Uma coisa que percebi em seu código...

 

Logo de cara você verifica se o "editar" está vazio. beleza.

 

Depois você faz um if verificando se "editar" em valor = "sim". Correto?

 

mas não percebi, na página anterior, você passando outro valor para "editar". você passa somente "sim". Então, ele nunca vai verificar o else que está no if onde você verifica se "editar=sim". Entendeu?

 

Se editar estiver vazio ele redireciona;

Se editar estiver com valor "sim" ele executa o primeiro form;

 

Eu acho que está faltando um elseif aqui:

 

<%else%>

 

<table width="95%" border="0" cellspacing="0" cellpadding="1" bgcolor="007FA2">

<tr>

<td align="center">

<b><font face="Verdana, Arial, Helvetica, sans-serif" color="#ffffff" size="2">

EDIÇÃO DE SÓCIOS</font></b>

</td>

</tr>

 

<tr><td>

<%datahoje = date()

 

 

arquivo = Replace(request("n_arquivo"),"'","")

link = Replace(request("link"),"'","")

 

 

function valorcampo(campo)

if campo = "" then valorcampo = " " else valorcampo = campo end if

end function

 

arquivo = valorcampo(arquivo)

link = valorcampo(link)

 

sqlup = "update imagem Set " &_

"Arquivo = '"& Arquivo & "'," &_

"Link ='" & Link &"'," &_

" where codigo = " &"codigo"

cnx.execute(sqlup)

 

Seria este código que não está gravando?

 

Se ficou complicado, me explique por e-mail o que você quer fazer depois desse else...

 

bruno.wm@bol.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunofilhorj    0

brunofilhorj
Postado

Tentando ser mais simples:você está passando em editar : "sim" ou "". Para você continuar aquele código depois do else, você tem que passar um terceiro valor.

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