Ir para conteúdo

POWERED BY:

Arquivado

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

Marcello-Master

problema na alteração

Por , em ASP Clássico

Recommended Posts

Marcello-Master    0

Marcello-Master
Postado

Galera, não sei o que acontece, procurei fazer tudo direitinho mas ao mando a alteração para o banco de dados não acontece nada ou seja não altera....( Não aparece erro apenas uma pagina em branco )Já tentei varias coisas mas não estou tendo resultado algum...Se alguem puder me ajudar ficaria muito agradecido....Ai galera o Formulario de alteração é esse....

<html><head><title></title><script language="javascript">function valida_campo(){<!--var nome = document.form.nome.valueif (nome==""){ alert("Entre com seu nome!"); document.form.nome.focus() return false }var telefone = document.form.telefone.valueif (telefone==""){ alert("Entre com seu telefone!"); document.form.telefone.focus() return false }var email=document.form.email.value;if (email==""){ alert("Entre com seu email!") document.form.email.focus()return false }}function confere(){if (document.form.email.value.indexOf('@', 0) == -1 || document.form.email.value.indexOf('.', 0) == -1){ alert("E-mail invalido!"); document.form.email.focus() }}//--></script><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><LINK REL=stylesheet HREF="../liks_etc.css" TYPE="text/css"><head><%On error resume NextDim objConn, stringSQL, strConnection, idid = Request.QueryString("radio")' Conectando com o banco de dados contato.mdbSet objConn = Server.CreateObject("ADODB.Connection")Set objRS = Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("..\bd\bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"stringSQL = "SELECT * FROM imovel WHERE id_imovel = "&idSet objRS = objConn.Execute(stringSQL)'Deletando registro da tabela contato onde esta a idif err <> 0 Then%> <div align="center"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"></font></b><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Ocorreu algum erro!</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br> <a href="java script:history.back(-1)">Volta</a></font><font face="Verdana, Arial, Helvetica, sans-serif"><a href="java script:history.back(-1)"></a></font></font></div><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <%else%> <div align="center"></div> <form method="post" action="altera_dados.asp" name="form" onSubmit="return valida_campo()"> <div align="center"> <center> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="505 " height="18" border="0" align="center" cellpadding="0" cellspacing="0"><tr> <td width="413" height="1" align="center" bgcolor="#FF6600"> <font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">:: Cadastro ::</font></b></font></td> </tr> </table></td> </tr> </table> <table border="0" width="502" bgcolor="F5F5F5"> <tr> <td bgcolor="#FFFFE6"><font size="2" face="Verdana" color="0000cc">Foto/URL:</font></td> <td bgcolor="#FFFFE6"> <input name="imagem02" type="text" id="imagem02" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value="<%=objRS("imagem02")%>" size="50"> </td> </tr> <tr> <td width="109" bgcolor="#FFFFE6"><font size="2" face="Verdana" color="0000cc">Nome:</font></td> <td width="319" bgcolor="#FFFFE6"> <input name="valor" type="text" id="valor" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("valor")%>' size="20""> </td> </tr> <tr> <td width="109" bgcolor="#FFFFE6"><font size="2" face="Verdana" color="0000cc">E-mail:</font></td> <td width="319" bgcolor="#FFFFE6"> <input name="endereco" type="text" id="endereco" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" onBlur="confere()" value="<%=objRS("endereco")%>" size="20"> </td> </tr> <tr> <td width="109" bgcolor="#FFFFE6"><font size="2" face="Verdana" color="0000cc">Telefone:</font></td> <td width="319" bgcolor="#FFFFE6"> <input name="referencia" type="text" id="referencia" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value="<%=objRS("referencia")%>" size="20"> </td> </tr> <tr> <td width="109" bgcolor="#FFFFE6"><font size="2" face="Verdana" color="0000cc">Comentário:</font></td> <td width="319" bgcolor="#FFFFE6"> <textarea name="desc_simples" cols="20" rows="4" id="desc_simples" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;"><%=objRS("desc_simples")%></textarea> <input type="hidden" name="autonum" value="<%=objRS("id_imovel")%>"> </td> </tr> <tr bgcolor="#FFFFE6"> <td colspan="2"> <p align="center"> <input type="submit" value="Alterar" name="enviar"> </td> </tr> </table> </center> </div> </form> <%end if%> </td> </tr></table></body></html>

E o que post a alteração é esse

<%'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveisOption Explicit'Não deixa informações no CacheResponse.Expires = 0'Declaração das variáveisDim objConn, strQuery, sql_query, RsQuery, campo, sql, autonum, id_imovelDim nome, telefone, email, comentario, foto, ObjRs, imagem02, valor, endereco, referencia,desc_simples'Atrubuição dos valores as respectivas variáveisimagem02 = Request.Form("imagem02")valor = Request.Form("valor")endereco = Request.Form("endereco")referencia = Request.Form("referecia")desc_simples = Request.Form("desc_simples")id_imovel = Request.Form("id_imovel")'Cria o objeto RecordSet e atribui a variável Set objConn = Server.CreateObject("ADODB.Connection")'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)'(*.mdb) indica que o arquivo utiliza extensão mdbobjConn.Open "DBQ=" & Server.MapPath("..\bd\bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"strQuery = "UPDATE imovel SET imagem02 = '"&imagem02&"', valor='"&valor&"', endereco = '"&endereco&"', referencia='"&referencia&"', desc_simples='"&desc_simples&"' WHERE id_imovel ="&id_imovel'Caso ocorra um erro esta função de erro será chamadaOn error Resume Next'Executaa inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery)'Fecha o Objeto de ConexãoobjConn.close'"APAGA" qualquer instancia que possa ter no objeto objRs e objConnSet objRs = NothingSet objConn = Nothing if err = 0 Then 'Redireciona o usuário caso não tenha ocorrido erro na transação response.redirect "sucesso.asp"end if%>

O pior é que não aparece erro algum, a pagina seguinte que aparece é em branco....Valew galera.... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

troque

if err = 0 Then'Redireciona o usuário caso não tenha ocorrido erro na transaçãoresponse.redirect "sucesso.asp"end if
por

if err.number <> 0 Thenresponse.write("Erro código"&err.number &" - "& err.description)response.end()else'Redireciona o usuário caso não tenha ocorrido erro na transaçãoresponse.redirect "sucesso.asp"end if

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