(!_Odisséa_!)

Amigos. Muito Obrigado. Eu consegui resolver o problema. Primeiro eu tirei aquele código duplicado, que mesmo ele estando inativo por causa da aspa simples acho que estava prejudicando. Então troquei o meu execute pelo o que tinham me aconselhado, ao executar o código ele pediu a conexao, o que eu fiz então: coloquei logo acima do EXECUTE os comandos de conexão ao banco. O código ficou assim para que vocês entendam melhor: <% 'Option Explicit %> <!--#Include file="conexao.asp"--> <% Dim rsInsere, strINS, vdata, vidcat, vtitulo, ncont vdata = Replace(Request.Form("datanot"), "'", "''") 'vdata = day(now)&"/"&month(now)&"/"&year(now) vidcat = Replace(Request.Form("idcanot"), "'", "''") vtitulo = Replace(Request.Form("titunot"), "'", "''") ncont = Replace(Request.Form("notinot"), "'", "''") 'vidcat = 1 response.Write vdata & "<br>" response.Write vidcat & "<br>" response.Write vtitulo & "<br>" response.Write ncont & "<br>" If vdata = "" Or vidcat = "" Or vtitulo = "" Or ncont = "" Then Response.Redirect End If 'ncont = AlterarTags(ncont) set conexao = server.createobject("ADODB.Connection") conexao.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") conexao.execute("INSERT into noticias (ndata, ntitu, ncont, idcat) VALUES ('" & vdata & "','" & vtitulo & "','" & ncont & "'," & vidcat & ")") response.write "strINS = " & strINS & "<br>" 'response.End Call abreConexao 'Set rsInsere = conexao.Execute(strINS) Set rsInsere = Nothing Call fechaConexao Response.Redirect "mostra1.asp" %> Muito obrigado mesmo. Se alguém tiver alguma dúvida ou sugestão estou ai para ajudá-los no que for possível.

Ok, vou tentar. Será que eu tenho que dar permissão de escrita e leitura no diretório? Ou não precisa fazer isso em arquivo ASP e ACCESS. Valeu

Olá, Segue os meus códigos: conexao.asp <% sub AbreConexao set conexao = server.createobject("ADODB.Connection") conexao.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") end sub sub FechaConexao conexao.close set conexao = nothing end sub Call AbreConexao %> insere.asp <% 'Option Explicit %> <!--#Include file="conexao.asp"--> <% Dim rsInsere, strINS, vdata, vidcat, vtitulo, vnoticia vdata = Replace(Request.Form("datanot"), "'", "''") 'vdata = day(now)&"/"&month(now)&"/"&year(now) vidcat = Replace(Request.Form("idcanot"), "'", "''") vtitulo = Replace(Request.Form("titunot"), "'", "''") ncont = Replace(Request.Form("notinot"), "'", "''") 'vidcat = 1 response.Write vdata & "<br>" response.Write vidcat & "<br>" response.Write vtitulo & "<br>" response.Write ncont & "<br>" If vdata = "" Or vidcat = "" Or vtitulo = "" Or ncont = "" Then Response.Redirect End If 'ncont = AlterarTags(ncont) strINS = "INSERT into noticias (ndata, ntitu, ncont, idcat) VALUES ('" & vdata & "','" & vtitulo & "','" & ncont & "'," & vidcat & ")" 'strINS = strINS & "(ndata, ntitu, ncont, idcat) " 'strINS = strINS & "VALUES ('" & vdata & "'," 'strINS = strINS & "'" & vtitulo & "'," 'strINS = strINS & "'" & vnoticia & "'," 'strINS = strINS & "" & vidcat & ")" response.write "strINS = " & strINS & "<br>" 'response.End Call abreConexao Set rsInsere = conexao.Execute(strINS) Set rsInsere = Nothing Call fechaConexao Response.Redirect "mostra1.asp" %> Eu acho que o problema não esta no conexao.asp porque eu utilizo ele para consultar o banco com outras páginas que incluem esse arquivo conexao.asp O meu banco de dados esta organizado da seguinte maneira: Tabela Noticias campo "nidn" - AutoNumerecao campo "ndata" - Texto campo "ntitu" - Texto campo "ncont" - Memorando campo "idcat" - Número Valeu pela ajuda de todos.

Então eu olhei o que o DjWebSP falou, mas me parece que esta tudo certo, veja o arquivo conexao.asp <% sub AbreConexao set conexao = server.createobject("ADODB.Connection") conexao.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") end sub sub FechaConexao conexao.close set conexao = nothing end sub Call AbreConexao %> Tem a conexao que ele falou, mas mesmo assim continua dando esse erro: 07/08/2008 1 Marcelo getrtegdfg strINS = INSERT into noticias (ndata, ntitu, ncont, idcat) VALUES ('07/08/2008','Marcelo','getrtegdfg',1) Microsoft VBScript runtime error '800a01a8' Object required: '' /yoten/insere_not.asp, line 35 valeu

Ola Jothaz. Eu fiz o que você me aconselhou e estou postando o resultado que vem de formulário. 07/08/2008 1 Titulo Teste Mensagem que deveria ia no banco strINS = INSERT into noticias (ndata, ntitu, ncont, idcat) VALUES ('07/08/2008','Titulo Teste','Mensagem que deveria ia no banco',1) ele não da erro ele apenas não incluir no banco. Agora se eu retirar a linha : response.End ele da o seguinte erro: 07/08/2008 1 Titulo Teste Mensagem que deveria ia no banco strINS = INSERT into noticias (ndata, ntitu, ncont, idcat) VALUES ('07/08/2008','Titulo Teste','Mensagem que deveria ia no banco',1) Microsoft VBScript runtime error '800a01a8' Object required: '' /yoten/insere_not.asp, line 37 E segue a linha 37 Set rsInsere = conexao.Execute(strINS) Espero que me ajude, pois já tentei todas as possibilidades que podia e nada. Muito Obrigado

Olá, eu peguei um código de notícias na web e estou adaptando para a minha necessidade. Mas estou tendo um problema quando tento inserir dados no banco. A estrutura do meu banco é a seguinte: Nome da Tabela: noticias com os seguintes campos: nidn (Auto numeração), ndata (texto), ntitu (texto), ncont (memorando), idcat (Número). O código que estou usando é o seguinte: <% 'Option Explicit %> <!--#Include file="conexao.asp"--> <% Dim rsInsere, strINS, vdata, vidcat, vtitulo, vnoticia vdata = Replace(Request.Form("datanot"), "'", "''") 'vdata = day(now)&"/"&month(now)&"/"&year(now) vidcat = Replace(Request.Form("idcanot"), "'", "''") vtitulo = Replace(Request.Form("titunot"), "'", "''") ncont = Replace(Request.Form("notinot"), "'", "''") 'vidcat = 1 response.Write vdata response.Write vidcat response.Write vtitulo response.Write ncont If vdata = "" Or vidcat = "" Or vtitulo = "" Or ncont = "" Then Response.Redirect End If 'ncont = AlterarTags(ncont) strINS = "INSERT into noticias (ndata, ntitu, ncont, idcat) VALUES ('" & vdata & "','" & vtitulo & "','" & ncont & "'," & vidcat & ")" 'strINS = strINS & "(ndata, ntitu, ncont, idcat) " 'strINS = strINS & "VALUES ('" & vdata & "'," 'strINS = strINS & "'" & vtitulo & "'," 'strINS = strINS & "'" & vnoticia & "'," 'strINS = strINS & "" & vidcat & ")" Call abreConexao response.write strINS response.End Set rsInsere = conexao.Execute(strINS) Response.Redirect "mostra1.asp" Call fechaConexao Set rsInsere = Nothing %> Quando a página recebe os dados do formulário, ela mostra os dados: 09/08/20081Titulo do JoEnvia assim as noticasINSERT into noticias (ndata, ntitu, ncont, idcat) VALUES ('09/08/2008','Titulo do Jo','Envia assim as noticas',1) Mas ele não insere os dados no BD. Eu fiz ele imprimir esses dados pois, li inumeros artigos e dúvidas nos forum e eles sempre dizem para mostrar o que retorna das variáveis para ver se não esta vazia. já estou tentando arrumar isso a uma semana, mas não acho um erro ou alguma coisa que falta para inserir esses dados no banco. Espero que alguém me ajuda, pois imagino que é um erro bobo. Muito Obrigado.

Primeiramente muito obrigado pela ajuda. Consegui resolver meu problema. Muito obrigado Valeu pela ajuda.

Olá, eu tenho uma pániga PHP que tem o seguinte script: <?php printf ("'FlashVars','moviez=". $_GET["video"] . "',") ?> Só que preciso usar essa mesma linha em um arquivo ASP, tentei encontrar na net algum tuto que me ensine a converter essa liha em ASP, ou alguém que possa me ensinar como mudar esta linha. Muito Obrigado.

E ai cara, desculpe a demora. Bom o HTML gerado é esse: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Untitled Document</title> <style type="text/css"> <!-- --> </style> </head> <body> <table cellpadding='0' cellspacing='0' border='0'><tr><td width='110' height='105' align=left bgcolor='#FF0000'><img src=img_base/19002.jpg width='105' height='105'></td><td width='105' height='105' align=left bgcolor='#FF0000'><img src=img_base/ width='105' height='105'></td></tr><tr><td width='110' height='105' align=left bgcolor='#FF0000'><img src=img_base/ width='105' height='105'></td><td width='105' height='105' align=left bgcolor='#FF0000'><img src=img_base/ width='105' height='105'></td></tr><tr><td width='110' height='105' align=left bgcolor='#FF0000'><img src=img_base/ width='105' height='105'></td><td width='105' height='105' align=left bgcolor='#FF0000'><img src=img_base/ width='105' height='105'></td></tr></table> <a href="/teste_sapato2.asp?p=3">Anterior</a> - <a href="/teste_sapato2.asp?p=5">Próxima</a> </body> </html> Valeu.

Fala cara. Então funcionou perfeitamente.... Mas eu acho que mexi em alguma coisa que estragou o código da paginação. Ele não para de aparecer o botão "próximo" e não tem fim..... vou colocar o códigoaqui, pois acho que tem algo errado. Muito obrigado, pela ajuda. <!--#INCLUDE virtual="acessa.asp"--> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Untitled Document</title> <style type="text/css"> <!-- --> </style> </head> <body> <% Function getGridColunas(Celula1,Celula2,Celula3,Celula4,Celula5,Celula6) Dim temp temp = "<table cellpadding='2' cellspacing='2' border='1'>" temp = temp & "<tr>" temp = temp & "<td>" temp = temp & Celula1 temp = temp & "</td>" temp = temp & "<td>" temp = temp & Celula2 temp = temp & "</td>" temp = temp & "</tr>" temp = temp & "<tr>" temp = temp & "<td>" temp = temp & Celula3 temp = temp & "</td>" temp = temp & "<td>" temp = temp & Celula4 temp = temp & "</td>" temp = temp & "</tr>" temp = temp & "<tr>" temp = temp & "<td>" temp = temp & Celula5 temp = temp & "</td>" temp = temp & "<td>" temp = temp & Celula6 temp = temp & "</td>" temp = temp & "</tr>" temp = temp & "</table>" getGridColunas = temp End Function pagina = Request.QueryString("p") if pagina = "" then pagina = 1 end if 'Seta a variavel pagina como a página em questão na paginação registros = 6 'Seta o número de registros por pagina set RS = Server.Createobject("AdoDB.RecordSet") set RS.ActiveConnection = con_db RS.cursortype = 3 RS.pagesize = registros StrSQL = "SELECT DISTINCT p_refe, p_cate, p_clas FROM produto WHERE p_clas = 1 AND p_cate = 1" RS.Open StrSQL, con_db rs.AbsolutePage = pagina rs.PageSize = 6 Dim val(6) For x = 0 to 6 'SAI DO LOOP SE JÁ TIVER CHEGADO AO FIM DO NÚMERO DE REGISTROS if rs.EOF then exit for val(x) = rs("p_refe") 'MOVE PARA O PROXIMO REGISTRO DO RESULT SET rs.MoveNext Next resultadoGrid = getGridColunas(val(0),val(1),val(2),val(3),val(4),val(5)) Response.Write resultadoGrid if RS.EOF then %> <% else rs.absolutepage = pagina if RS.EOF then %> <% fim = 1 end if xx = 0 While NOT RS.EOF AND xx < RS.pagesize xx = xx + 1%> <%'=RS("p_refe")&"<br>"%> <% RS.MoveNext Wend end if if fim = "" then anterior = pagina - 1 proxima = pagina + 1 if anterior <> 0 then %> <a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>">Anterior</a> - <% end if %> <a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>">Próxima</a> <% end if RS.Close con_db.Close %> </body> </html>

Fala, cara! Eu ia responder em 10 minutinhos, mas é que acabou a luz aqui em casa e não consegui. hehehehe Acredito que estamos quase chegando no resultado. Ele monta uma tabela mas com o primeiro resultado da página que eu colocar na "rs.AbsolutePage =" e mostra os resultados embaixo da tabela. Por exemplo, se eu colocar "rs.AbsolutePage = 1" ele vai completar os dados da tabela com o primeiro resultado página 1, se eu colocar "rs.AbsolutePage = 2" ele vai preencher a tabela com o primeiro resultado da página 2, e assim por diante. Antes de postar esse tópico eu tentei de diversas maneiras colocar os resultados dentro da tabela, mas como asp não é muito a minha práia não tive sucesso :( HTML Gerado: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Untitled Document</title> <style type="text/css"> <!-- --> </style> </head> <body> <table cellpadding='2' cellspacing='2' border='1'><tr><td>02008</td><td>02008</td></tr><tr><td>02008</td><td>02008</td></tr><tr><td>02008</td><td>02008</td></tr></table>010080100901010010110200402007 <a href="/teste_sapato2.asp?p=2">Próxima</a> </body> </html> Código ASP: <% Function getGridColunas(Celula1,Celula2,Celula3,Celula4,Celula5,Celula6) Dim temp temp = "<table cellpadding='2' cellspacing='2' border='1'>" temp = temp & "<tr>" temp = temp & "<td>" temp = temp & Celula1 temp = temp & "</td>" temp = temp & "<td>" temp = temp & Celula2 temp = temp & "</td>" temp = temp & "</tr>" temp = temp & "<tr>" temp = temp & "<td>" temp = temp & Celula3 temp = temp & "</td>" temp = temp & "<td>" temp = temp & Celula4 temp = temp & "</td>" temp = temp & "</tr>" temp = temp & "<tr>" temp = temp & "<td>" temp = temp & Celula5 temp = temp & "</td>" temp = temp & "<td>" temp = temp & Celula6 temp = temp & "</td>" temp = temp & "</tr>" temp = temp & "</table>" getGridColunas = temp End Function pagina = Request.QueryString("p") if pagina = "" then pagina = 1 end if 'Seta a variavel pagina como a página em questão na paginação registros = 6 'Seta o número de registros por pagina set RS = Server.Createobject("AdoDB.RecordSet") set RS.ActiveConnection = con_db RS.cursortype = 3 RS.pagesize = registros StrSQL = "SELECT DISTINCT p_refe, p_cate, p_clas FROM produto WHERE p_clas = 1 AND p_cate = 1" RS.Open StrSQL, con_db rs.AbsolutePage = 2 rs.PageSize = 6 Dim val(6) For x = 0 to 6 val(x) = rs("p_refe") Next resultadoGrid = getGridColunas(val(0),val(1),val(2),val(3),val(4),val(5)) Response.Write resultadoGrid if RS.EOF then %> <% else RS.absolutepage = pagina if RS.EOF then %> <% fim = 1 end if xx = 0 While NOT RS.EOF AND xx < RS.pagesize xx = xx + 1%> <%=RS("p_refe")%> <% RS.MoveNext Wend end if if fim = "" then anterior = pagina - 1 proxima = pagina + 1 if anterior <> 0 then %> <a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>">Anterior</a> - <% end if %> <a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>">Próxima</a> <% end if RS.Close con_db.Close %>

E ai, cara. Eu alterei o código e deixei ele assim: Dim val(6) For x = 0 to 6 val(x) = rs("p_refe") Next resultadoGrid = getGridColunas(val(0),val(1),val(2),val(3),val(4),val(5)) Response.Write resultadoGrid Se você reparar eu tirei uma val(x), no caso a val(6)... porque estava dando erro. Bom ele me retorna os resultados que eu quero, mas... não coloca ele dentro do grid que você fez a função. ele me retorna assim: 000001111122222333334444455555 Quando ele deveria me responder assim: 00000 11111 22222 33333 44444 55555 Valeu, pela ajuda. Marcelo Campos

Olá, marcos_804. Valeu pelas dicas, mas... ta dando um erro. Eu fiz o que você me falou, mas não funcionou. Eu fiquei todo este tempo tentando intender o erro ou achear algo paracecido para conseguir resolver essa situação, mas o que achei foi que esse erro, dá porque ele retorna um numero que não foi achado no banco. o erro que da é esse: Erro de tempo de execução do Microsoft VBScript erro '800a0009' Subscrito fora do intervalo: 'x' /teste_sapato2.asp, line 70 --> val(x) = rs("p_refe") o código que estou utilzando é esse: <!--#INCLUDE virtual="acessa.asp"--> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Untitled Document</title> <style type="text/css"> <!-- --> </style> </head> <body> <% Function getGridColunas(Celula1,Celula2,Celula3,Celula4,Celula5,Celula6) Dim temp temp = "<tr>" temp = temp & "<td>" temp = temp & Celula1 temp = temp & "</td>" temp = temp & "<td>" temp = temp & Celula2 temp = temp & "</td>" temp = "</tr>" temp = "<tr>" temp = temp & "<td>" temp = temp & Celula3 temp = temp & "</td>" temp = temp & "<td>" temp = temp & Celula4 temp = temp & "</td>" temp = "</tr>" temp = "<tr>" temp = temp & "<td>" temp = temp & Celula5 temp = temp & "</td>" temp = temp & "<td>" temp = temp & Celula6 temp = temp & "</td>" temp = "</tr>" getGridColunas = temp End Function pagina = Request.QueryString("p") if pagina = "" then pagina = 1 end if 'Seta a variavel pagina como a página em questão na paginação registros = 6 'Seta o número de registros por pagina set RS = Server.Createobject("AdoDB.RecordSet") set RS.ActiveConnection = con_db RS.cursortype = 3 RS.pagesize = registros StrSQL = "SELECT DISTINCT p_refe, p_cate, p_clas FROM produto WHERE p_clas = 1 AND p_cate = 1" RS.Open StrSQL, con_db rs.AbsolutePage = 2 rs.PageSize = 6 Dim val(6) For x = 0 to (rs.RecordCount - 1) val(x) = rs("p_refe") Next resultadoGrid = getGridColunas(val(0),val(1),val(2),val(3),val(4),val(5),val(6)) Response.Write resultadoGrid if RS.EOF then %> <% else RS.absolutepage = pagina if RS.EOF then %> <% fim = 1 end if xx = 0 While NOT RS.EOF AND xx < RS.pagesize xx = xx + 1%> <%=RS("p_refe")%> <% RS.MoveNext Wend end if if fim = "" then anterior = pagina - 1 proxima = pagina + 1 if anterior <> 0 then %> <a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>">Anterior</a> - <% end if %> <a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>">Próxima</a> <% end if RS.Close con_db.Close %> </body> </html> Pô cara se você puder continuar me ajudando.... valeu mesmo.

Olá. Eu procurei no forum e achei dúvidas iguais a minha mas nenhuma solução, o pessoal que dava as dicas ou mandava um link para paginação ou mandava um link para como colocar o resultados em colunas, muito bem! Eu tentei adaptar um código que divide os resultados em duas colunas com um código de paginação, se eu separar os dois códigos eles funcionam normalmente, mas uando tento uni-lo ta erro. Eu quero saber como faço pra fazer uma página que divide o resultado em duas colunas com no máximo 6 resultados por página, caso tenha mais um link, anterior e próximo. Segue o código que divide o serultado em duas colunas <% Set ra_Bd=Server.CreateObject("ADODB.Recordset") colunas=2 sql="SELECT DISTINCT p_refe, p_clas, p_cate FROM produto WHERE p_clas = 1 AND p_cate = 1 ORDER BY p_refe" ra_bd.open sql, con_db if not ra_bd.eof then coluna=1 response.write "<table><tr><td bgcolor=#00FF66 align=left width=100>" while not ra_bd.eof%> <a href="teste_sapato_p.asp?referencia=<% response.write ra_bd("p_refe")%>"><%=ra_bd("p_refe")&".jpg"%></a> <% if coluna=colunas then response.write "</td></tr><tr><td bgcolor=#00FF66 align=left width=100>" coluna=1 else response.write "</td><td>" coluna=coluna+1 end if ra_bd.movenext wend response.write "</td></tr></table>" end if ra_bd.close set ra_bd=nothing %> Eu não sei se adapto o código de paginção no código da coluna, ou se o da coluna na paginação. Algum poderia me ajudar. Muito Obrigado desde já.

olá. Eu estou com um problema que nem sei como resolver. Eu tenho um arquivo em FLASH que pega as variáveis do formulário e manda para uma página ASP que vai enviar um e-mail. Muito bem, quando eu testo o arquivo FLASH e o arquivo ASP e direciono para o meu e-mail ele manda corretamente, mas quando eu redireciono para o e-mail do cliente, ele não chega. To achando que deve ser alguma configuração do arquivo ASP com a Locaweb (lugar que o meu cliente hospeda o site), que código poderia usar para que desse certo esse envio? Muito obrigado peloa ajuda, e to disponibilizando o código, abaixo: <% Destino = "email@dominio.com.br" servidor = "mail.dominio.com.br" assunto = Request("assunto") nome = Request("nome") empresa = Request("telefo") Origen = Request("email") Mensagem = Request("mensagem") Set Mail = Server.CreateObject("Persits.MailSender") strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>" strBody = strBody & "Nome: " strBody = strBody & "<b>" & nome & "</b><br><br>" strBody = strBody & "E-mail : " strBody = strBody & "<b>" & Origen & "</b><br><br>" strBody = strBody & "Meu Telefone: " strBody = strBody & "<b>" & empresa & "</b><br><hr><br>" strBody = strBody & "Minha mensagem : <br>" strBody = strBody & Mensagem & chr(10) strBody = strBody & "</font>" Mail.Host = servidor Mail.Port = 25 Mail.From = Origen Mail.FromName = Email Mail.Subject = assunto Mail.Body = strBody Mail.IsHTML = True Mail.AddAddress Destino On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "popup.mensagem=Erro ao enviar, por favor enviar mais tarde " & Err.Description Else Response.Write "popup.mensagem=Mensagem enviado corretamente." End If Set Mail = Nothing %>

Então o numero muda... mas o problema é que el vai pegar sempre o primeiro numero da tabela do banco de dados. POr exemplo eu entro com usuário id=3, de vez ele pegar a foto de numero 2 do id = 3 ele pega a primeira foto com o numero 2. saca? acho que vou fazer cada foto com um numero,o que acha?

pagina main.php <?php require_once('../Connections/cliente.php'); session_start(); $usuario = $_SESSION['MM_Username']; mysql_select_db($database_cliente, $cliente); //$query_RS_main = "SELECT dados.id, dados.login, dados.nome, fotos.foto, fotos.desc, fotos.numero FROM dados, fotos WHERE dados.id = fotos.id AND dados.login = '$usuario' ORDER BY fotos.numero"; $query_RS_main = "SELECT dados.id, dados.login, dados.nome, fotos.user_id, fotos.foto, fotos.desc, fotos.numero FROM dados, fotos WHERE dados.id = fotos.user_id AND dados.login = '$usuario' ORDER BY fotos.numero ASC"; $RS_main = mysql_query($query_RS_main, $cliente) or die(mysql_error()); $totalRows_RS_main = mysql_num_rows($RS_main); $row_RS_main = mysql_fetch_row($RS_main); ?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Cliente -&lt; E X T R A N E T &gt;-</title> </head> <body marginheight="0" marginwidth="0"> <table width="276" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="10" rowspan="6"></td> <td width="266" height="10"></td> </tr> <tr> <td width="266"><img src="imagens/logo.jpg" width="266" height="77" /></td> </tr> <tr> <td width="266" class="extranet">E X T R A N E T</td> </tr> <tr> <td width="266" height="10"></td> </tr> <tr> <td width="266"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr bgcolor="#f2ecdc"> <td height="5" colspan="3"></td> </tr> <tr> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> <td width="256" bgcolor="#FFFFFF" class="fixo"><img src="imagens/data.jpg" width="15" height="15" /> Data e Hor&aacute;rio do acesso: </td> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> </tr> <tr bgcolor="#f2ecdc"> <td height="3" colspan="3"></td> </tr> <tr> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> <td width="256" bgcolor="#FFFFFF" class="dinamico"><?PHP echo date('d/ m/ Y (H:i:s)', $_SESSION['time']); ?></td> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> </tr> <tr bgcolor="#f2ecdc"> <td height="5" colspan="3"></td> </tr> <tr> <td height="15" colspan="3"></td> </tr> <tr bgcolor="#f2ecdc"> <td height="5" colspan="3"></td> </tr> <tr> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> <td bgcolor="#FFFFFF" class="fixo" width="256"><img src="imagens/usuario.jpg" width="15" height="16" /> Dados do usu&aacute;rio: </td> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> </tr> <tr> <td height="3" colspan="3" bgcolor="#f2ecdc"></td> </tr> <tr> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> <td width="256" class="dinamico"><strong>Login (id):</strong> <?PHP echo $_SESSION['MM_Username']; ?> (<?php echo $row_RS_main['id']; ?>)<br /> <strong>Cliente:</strong> <?php echo $row_RS_main['nome']; ?></td> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> </tr> <tr> <td height="5" colspan="3" bgcolor="#f2ecdc"></td> </tr> <tr> <td height="15" colspan="3"></td> </tr> <tr bgcolor="#f2ecdc"> <td height="5" colspan="3"></td> </tr> <tr> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> <td width="256" class="fixo"><img src="imagens/foto.jpg" width="15" height="15" /> Imagens do projeto: </td> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> </tr> <tr bgcolor="#f2ecdc"> <td height="3" colspan="3"></td> </tr> <tr> <td bgcolor="#f2ecdc">&nbsp;</td> <td class="dinamico"><?php do { ?> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="18"><img src="imagens/seta.jpg" width="10" height="10" />&nbsp;<a href="imagem.php?recordID=<?php echo $row_RS_main['numero']; ?>" target="mainFrame"><?php echo $row_RS_main['desc']; ?></a></td> </tr> </table> <?php } while ($row_RS_main = mysql_fetch_assoc($RS_main)); ?> </td> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> </tr> <tr> <td height="5" colspan="3" bgcolor="#f2ecdc"></td> </tr> <tr> <td height="15" colspan="3"></td> </tr> <tr> <td height="5" colspan="3" bgcolor="#f2ecdc"></td> </tr> <tr> <td bgcolor="#f2ecdc">&nbsp;</td> <td class="sair"><a href="logout.php" target="_parent">Sair da extranet!</a></td> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> </tr> <tr bgcolor="#f2ecdc"> <td height="5" colspan="3"></td> </tr> </table></td> </tr> <tr> <td width="266">&nbsp;</td> </tr> </table> </body> </html> <?php mysql_free_result($RS_main); ?> Página imagem.php <?php require_once('../Connections/cliente.php'); mysql_select_db($database_cliente, $cliente); $recordID = $_GET['recordID']; $query_DetailRS1 = "SELECT dados.id, dados.login, dados.nome, fotos.foto, fotos.desc, fotos.numero FROM dados INNER JOIN fotos ON dados.id = fotos.id WHERE numero = $recordID"; //$query_DetailRS1 = "SELECT dados.id, dados.login, dados.nome, fotos.foto, fotos.desc, fotos.numero FROM dados, fotos WHERE dados.id = fotos.id AND dados.login = '$usuario' WHERE numero = $recordID"; $DetailRS1 = mysql_query($query_DetailRS1, $cliente) or die(mysql_error()); $totalRows_DetailRS1 = mysql_num_rows($DetailRS1); $row_DetailRS1 = mysql_fetch_row($DetailRS1); ?><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>cliente -&lt; E X T R A N E T &gt;-</title> </head> <body marginheight="0" marginwidth="0"> <table width="440" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="10" colspan="3"></td> </tr> <tr bgcolor="#f2ecdc"> <td height="6" colspan="3"></td> </tr> <tr> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> <td width="256" class="fotos">FOTOS</td> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> </tr> <tr bgcolor="#f2ecdc"> <td height="6" colspan="3"></td> </tr> <tr> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> <td width="256"><table width="430" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="3" rowspan="4">&nbsp;</td> <td colspan="2" class="descr"><img src="imagens/seta.jpg" width="10" height="10" /> <?php echo $row_DetailRS1['desc']; ?></td> <td class="numero"><?php echo $row_DetailRS1['numero']; ?></td> <td width="3" rowspan="4">&nbsp;</td> </tr> <tr> <td height="3" colspan="3" bgcolor="#333333"></td> </tr> <tr> <td colspan="3"><div align="center"><img src="imagem/<?php echo $row_DetailRS1['foto']; ?>.jpg" /></div></td> </tr> <tr> <td height="3" colspan="3" bgcolor="#333333"></td> </tr> </table></td> <td width="5" bgcolor="#f2ecdc">&nbsp;</td> </tr> <tr bgcolor="#f2ecdc"> <td height="6" colspan="3"></td> </tr> </table> </body> </html><?php mysql_free_result($DetailRS1); ?>

Boa tarde! Tenho uma pequena esperiencia no em PHP e MySQL. E estou com uma dúvida que achei que fosse simples, mas não consigo solucioná-la. Eu tenho duas tabelas no banco de dados: Tabela DADOS com os seguintes campos: id, login, senha, nome, email Tabela FOTOS com os seguintes campos: id, foto, desc, numero Eu fiz o campo "id" para que o codigo entenda que um "id" pode ter várias imagens. Ai o que eu fiz, em uma página eu fiz dois frames, um menu do lado esquerdo (página main.php) que imprime os valores: dados.id, dados.nome, fotos.descr e do lado direito uma outra página (imagem.php) que mostra fotos ampliadas que estão ligadas ao fotos.descr. Só que o que esta acontecendo é o seguinte, quando eu acesso com o usuário de "id=2", ele me imprime corretamente os fotos.descr, mas quando eu clico no fotos.descr ele sempre me mostra na página imagem.php a imagem referente ao "id=1". Eu usei INNER JOIN pra fazer a ligação entre as tabelas. alguém poderia me ajudar, dizendo se da maneira que estruturei o banco esta correto? ou se é realmente o código que esta errado? ou se tem um tutorial que eu consiga fazer esse sistema. Muito obrigado pela atenção.

pow, cara agora deu certo. Valeu. você sbe me dizer onde eu posso encontrar um tutorial ou como se faz, para ajustar o tamanho do pop up de acordo com o tamanho da minha imagem? Obrigado de novo

esta dentro da tag, sim. da uma olhada na página: http://www.jccfrepresentacoes.com.br/sel_o...php?recordID=76 valeu.

Pô, cara to fazendo tudo certinho, acho! ta assim, quando eu estou na página "sel_ofertas", no lugar do endereço aparece assim: www.dominio.com.br/sel_oferta.php?recordID=66. Ai nesta página "sel_oferta.php" tem o link --clique aqui para ampliar a imagem-- quando eu coloco o mouse sobre o link aparece assim na barra de status: java script:avisa(extra.php?recordID=66) Java script ta escrito junto. Ai você clica e não aparece nada, nem o pop up. Mas seu eu colocar no endereço do brower: www.dominio.com.br/extra.php?recordID=66 ele aparece corretamente a imagem. Entendeu? valeu pela ajuda.

Boa tarde ESerra. Valeu pela dica... só que eu fiz como você me disse e ele não esta abrindo o Pop Up, ele aparece corretamenta na barra de status o endereço, mas quando clico no link ele não abre nenhum pop, e aparece assim ERRO NA PÀGINA na barra de status. Se puder me ajudar, obrigado mesmo.

Bom dia! Eu fiz no Dreamweaver uma page set. Então eu tenho uma página que me retorna todos os "titulos" do meu bd, então eu clico em um "titulo" e ele me leva para outra página (particular.php) com todos os dados deste "titulo". Ate ai tudo bem... Só que nesta segunda página (particular.php) eu tenho o "titulo" e uma foto. Eu gostaria que quando a pessoa clicasse na foto ou em um link ao lado, abrisse um pop up com esta foto. Eu andei procurando nos tópicos deste forum, mas não achei nada parecido, ate mesmo porque eu não sei como procurar. alguém poderia me indicar algum link, ou como eu poderia fazer isso? Grato.

Boa tarde! eu tenho um menu que funciona como DropDown, são botões um embaixo do outro. todo o menu esta estruturado com AS, então eu tenho um MC, que é duplicado e gera os botões. Eu gostaria de saber se é possivel eu colocar algum código que acione o primeiro botão logo que a pessoa abre o site. valeu.

Boa tarde.... eu estou construindo um menu, baseado em um código que eu peguei no site do Lucas Motta. O Menu tem 5 palavras (cada palavra é um botão), quando eu passo o mouse sobre a palavra ocorre uma animação de uma barra que corre sobre o botão. o codigo é esse: import mx.effects.Tween; import mx.transitions.easing.*; inv01.onRollOver = function():Void{ if(but01.ani != undefined){ Tween.RemoveTweenAt(but01.ani.ID); } // a ultima casa depois da virgula esta relacionada a velociada de crescimento do botão but01.ani = new Tween(but01, but01._xscale, 16600, 300); but01.onTweenUpdate = function(v):Void{ but01._xscale = (v); //this._xscale = this._yscale = (v); }; but01.onTweenEnd = function(v):Void{ but01.onTweenUpdate(v); delete but01.ani; }; this.onRollOut = function(v):Void{ if(but01.ani != undefined){ Tween.RemoveTweenAt(but01.ani.ID); } //o tamanho que eu quero quando ele voltar but01.ani = new Tween(but01, but01._xscale, 100, 400); }; }; ele esta funcionando perfeitamente, mas eu queria que ao mesmo tempo que essa barra cobrisse o nome, um setinha acompanhasse o mouse dentro do menu. alguém poderia me ajudar? Eu consigo fazer a setinha funcionr, mas a barrinha não funciona corretamente... como eu faço? Agradeço desde já.