Voltar A Pagina Pelo Id....

[mkboy 1]

Vou explicar como funciona meu sisteminha:Primeiro tenho duas frames.Na frame direita tenho a pagina menu.aspE na esquerda tenho a pagina exibefoto.aspNa pagina menu.asp tenho um select que lista em sequencia a partir de 1,2,3...Quando você clica na imagem miniatura no menu.asp, ela abre na pagina exibefoto.asp a respectiva foto, de acordo com o ID que esta no banco, veja como passo:

<a href="exibefoto.asp?foto=<%=objrs("id")%>" target="exibe"><img src="fotos2/<%=objrs("foto")%>" width="75" height="56" border="0"></a>

Acima é a miniatura com o link para exibir a foto grande que esta em outra pasta.Aqui como é exibida a foto grande:

<img src="fotos/<%=objrs("foto")%>" width="380" height="285" border="1">

Até aqui beleza, eu clico na miniatura e abre a grande.Tenho no banco tambem o campo "comenta" que eu estou exibindo logo abaixo da foto.Fiz um link para alterar o conteudo exibido que esta na tabela comentaAssim:

<a href="alterar.asp?id=<%=objrs("id")%>">Editar</a>

Depois daqui eu abro a pagina alterar.asp com o conteudo da tabela comenta explicito em um campo de formulario.Agora eu faço o update, e aqui o grande lance.Eu quero que ele redirecione para pagina exibefoto.asp, na mesma imagem que eu estou editando o texto, ou seja, para a foto do id em questao.Tentei de varias formas e nao consegui.Como faço? :unsure:

[Salgado 4]

Depois do Update e fechar o RS e o BD você faz um Response.Redirect "exibefoto.asp?foto="& objrs("id")

[mkboy 1]

Sem o redirect o update funciona normal, mas quando o coloco acontece o seguinte:Primeiro codigo, depois o erro:codigo

<%dim objRSdim strrsSet conn = Server.CreateObject ("ADODB.Connection")strconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("foto.mdb")conn.open strconnstrrs = "UPDATE fotos SET comenta='"&request.form("comenta")&"' where id="&request.form("id")'Response.Write strrs'Response.Endconn.execute(strrs)response.redirect "exibefoto.asp?foto="& objrs("id")"%>

erro

Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A0409)Constante de seqüência não finalizada/foto/galerias/peixes/bass/atualizar.asp, line 19, column 53response.redirect "exibefoto.asp?foto="& objrs("id")"----------------------------------------------------^

Onde esta o erro!!!

[Salgado 4]

O que que essa Aspa está fazendo ai?

response.redirect "exibefoto.asp?foto="& objrs("id")"

Só atrapalhando mesmo.

kkk

[Salgado 4]

Ah só uma dica, coloca esse objrs("id") numa variável e antes de redirecionar você fecha o BD.

[mkboy 1]

Num intindi... :wacko: Fiz assim:

<%dim iddim objRSdim strrsSet conn = Server.CreateObject ("ADODB.Connection")strconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("foto.mdb")conn.open strconnstrrs = "UPDATE fotos SET comenta='"&request.form("comenta")&"' where id="&request.form("id")conn.execute(strrs)response.redirect "exibefoto.asp?foto="& objrs("id")%>

Ele fez o update mas nao redirecionou....veja o erro

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A000D)Tipos incompatíveis/foto/galerias/peixes/bass/atualizar.asp, line 16

[Salgado 4]

Desculpe Maycon, mas na pressa não notei que você estava com um objrs("id") que, aparentemente, nada tem a ver com essa página, use seu request.form("id") para fazer o Redirect.

[mkboy 1]

Precisa de desculpa nao camarada... :rolleyes: Fiz assim agora:

<%id = request.form("id")comenta = request.form("comenta")%> <%dim iddim objRSdim strrsSet conn = Server.CreateObject ("ADODB.Connection")strconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("foto.mdb")conn.open strconnstrrs = "UPDATE fotos SET comenta='"&request.form("comenta")&"' where id="&request.form("id")conn.execute(strrs)response.redirect "exibefoto.asp?foto="& objrs("id")%>

o Erro

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A000D)Tipos incompatíveis/foto/galerias/peixes/bass/atualizar.asp, line 19

[mkboy 1]

o id estou enviando por hidden no form anterior...

[Salgado 4]

Tenta com esse:

<%dim id, objRS, strrs

 

id = request.form("id")

comenta = request.form("comenta")

 

Set conn = Server.CreateObject ("ADODB.Connection")

strconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("foto.mdb")

conn.open strconn

 

strrs = "UPDATE fotos SET comenta='"& comenta &"' where id="& id &";"

conn.execute(strrs)

 

response.redirect "exibefoto.asp?foto="& id

%>

[mkboy 1]

PERFEITOOOOO!!!!Valeu mesmo pela atenção Salgado, grato mesmo!!!Ficou legallll!!!! :D :D :D