lsardinha

Ele imprimiu isso:

Me ajudem por favor!

Você pode usar um programa chamado ACDSee que você acha no Superdownloads a versão ACDSee, ele faz isso e de forma bem simples.

porque o problema é assim: Primeiro faço uma pesquisa no Banco de Dados pra Preencher os valores dessa "ComboBox" (vou usar esse nome que é mais simples), aí ele faz belezinha, busca os valores na tabela e me mostra mais ou menos assim: Nome dele é Area CONTABILIDADE RH INFORMATICA JURIDICO Aí por exemplo eu seleciono o RH que onde quero alterar e clico em enviar (usando o Post), só que na outra página quando faço Request.Form("Area") ele mostra a informação em branco, ou seja ele não pegou o valor (RH). Então esse é o problema que não consigo entender. vejam os códigos: Form <form name="editarservico" method="post" action="index.asp?lcl=editandoservico&id=<%=Rs.Fields("id")%>"> Select (que chamei de ComboBox) <select value="<% while Not RsDiv.EOF Response.Write("<option value="""& RsDiv("div") &""">"& RsDiv("div") &"</option>") RsDiv.MoveNext wend Response.Write("<option selected>---</option>") %> " name="area" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1"></select> A página que faz atualização no BD <%cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource conn.Execute("update coinf_solicitacao set data='"&Request.Form("data")&"',hora='"&Request.Form("hora")&"',Solicitante='"&Request.Form("Solicitante")&"',area='"&Request.Form("area")&"',descricao='"&Request.Form("descricao")&"' where id="&Request.querystring("id")&"") Response.Redirect"index.asp?lcl=servico" %> Vejam que aqui eu pego (tentei pelo menos) os dados do select: area='"&Request.Form("area")&"'

Mas o select já tem o nome (area), mas quando faço resquest.form("nome") ele da valor vazio: <select value=" <% while Not RsDiv.EOF Response.Write("<option value="""& RsDiv("div") &""">"& RsDiv("div") &"</option>") RsDiv.MoveNext wend Response.Write("<option selected>---</option>") %> " name="area" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1"> </select>

Pergunta: Não entendi como você esta usando Request.QueryString("id") com um formulário enviado pelo método post. Resposta: Na verdade o ID eu passo a informação dele action do meu form. action="index.asp?lcl=editandoservico&id=<%=Rs.Fields("id")%>"

Era lixo.... porque tinha coloca a princípio um Jump Menu mas já retirei... Mas pergunto novamente, como faço pra na outra página pegar o valor escolhido no select?

1 - Qual o nome do campo?? Resposta: name="area" 2 - no update você usa request.form e request.querystring Resposta: area='"&Request.Form("area")&"' eu uso querystring para poder informar qual registro (ID) vai ser atualizado.

Estou usando Post Esse é o meu list: <select value=" <% while Not RsDiv.EOF Response.Write("<option value="""& RsDiv("div") &""">"& RsDiv("div") &"</option>") RsDiv.MoveNext wend Response.Write("<option selected>---</option>") %> " name="area" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1"> </select> e tento pegar ele na outra página assim: <% cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource conn.Execute("update coinf_solicitacao set data='"&Request.Form("data")&"',hora='"&Request.Form("hora")&"',Solicitante='"&Request.Form("Solicitante")&"',area='"&Request.Form("area")&"',descricao='"&Request.Form("descricao")&"' where id="&Request.querystring("id")&"") Response.Redirect"index.asp?lcl=servico" %>

Fiz um cadastro, onde tenho alguns campos do tipo Text Field e um campo do tipo list/menu, esse campo List eu faço um pesquisa no banco e preencho ele com os valores de uma determinada tabela, o meu problema esta quando eu clico nele pra selecionar uma opção e clico em enviar e o form chama atualiza.asp onde faço o update no banco, só que ele não consegue recuperar a informação através do Request.Form para que eu posso atualizar a informação.

alguém por favor me ajude...

O odbc_num_rows retorna sempre -1 Pode ser por causa do driver odbc... ???

php +oracle +apache + win2000 estou usando o seguinte código: <? $con = odbc_connect('server','teste','teste'); $sql="select count('*') from tabela"; $resultado=odbc_exec($con,$sql); $num = odbc_result ($resultado, "qtde"); echo "A tabela tem ". $num." registro(s)"; ?> já tentei outras variações tb e deu pau usei as no count e nada usei order by e nada quando é um select normal funciona beleza só dá pau quando usa o count

Não consigo fazer funcionar... <script language="JavaScript"> <!-- MyWindow=null; //esta variável armazena o nome da última janela aberta por window.open() function jczOpenWindow(theURL,winName) { if(MyWindow != null)//Se já foi aberta uma janela anteriormente. { if(!MyWindow.closed) //se a janela aberta anteriormente ainda não foi fechada. { // se a jenela que está sendo aberta é diferente da anterior if(MyWindow.name != winName) { MyWindow.close(); //fecha a janela anterior MyWindow = window.open(theURL,winName,'status=yes,scrollbars=no,width=300,height=300'); //abre uma nova janela } else //caso as janelas tenham o mesmo nome { MyWindow.focus(); //muda o foco para a janela aberta tanteriormente. } } else // caso já tenha sido fechada uma janela anteriormente { // abre a nova janela. MyWindow = window.open(theURL,winName,'alwaysRaised=yes,status=yes,scrollbars=no,width= 300,height=300'); } } else //caso nenhuma janela tenha sido aberta anteriormente, i.e., MyWindow == null { //abre uma nova janela. MyWindow = window.open(theURL,winName,'alwaysRaised=yes,status=yes,scrollbars=no,width= 300,height=300'); } } function jczResetWindow(bmp) //esta função deve ser escrita no arquivo que será aberto na { //pela função jczOpenWindow. self.moveTo(2,2); //move janela para canto superior esquerdo self.resizeTo(bmp.width+50,bmp.height+130); //redimensiona janela baseada em bmp. }//--> </script> Corpo do programa: <a target=""_blank"" href=""popup.asp?foto="&rsfotos("Id")&"""> Não sei como fazer para acessar o script....

Estive fazendo da forma que você me falou e funcionou, mas queira que a janela que abrisse a foto aparecesse sem barras de ferramentas, menus e barras de rolagem: veja o codigo: <% idevento=request.querystring("idevento") evento=request.querystring("evento") '/////COMECA AS CATEGORIAS If idevento = "" Then Set RsEvento = Conn.Execute("SELECT * FROM fotos_eventos ORDER BY 2") If RsEvento.EOF Then Response.Write "Nenhuma evento encontrado!" Else While not RsEvento.EOF Response.Write "<table width=595 border=0 cellspacing=0 cellpadding=0>" Response.Write "<tr><td height=20 bgcolor=#ECF8FF>&nbsp;<img src='imagens/tópico.gif' width='8' height='8'>&nbsp;<a href=""index.asp?lcl=fotos&idevento="&RsEvento("id")&"&evento="&RsEvento("Evento")&""" class='linkclaro'>"&RsEvento("Evento")&"</a></td></tr>" Response.Write "<tr><td height=5 align=""center"" class=""textointrodutorio""><img src=""imagens/5px.gif"" width=""5"" height=""5""></td></tr>" Response.Write "</table>" RsEvento.Movenext Wend End If '/////COMECA AS FOTOS Else 'Response.Write "<font size=2><B><span class='textointrodutorio'>"& Evento &"</span></font></b><BR><BR>" Response.Write "<table width=595 border=0 cellspacing=0 cellpadding=0>" Response.Write "<tr><td height=5 align=""center"" class=""textointrodutorio""><img src=""imagens/5px.gif"" width=""5"" height=""5""></td></tr>" Response.Write "<tr><td height=20 align=""center"" bgcolor=#C4E4FD class=""textointrodutorio"">"& Evento &"</td></tr>" Response.Write "</table>" Set rsFotos = Conn.Execute("SELECT * FROM fotos WHERE idevento="&idevento&"") If rsFotos.EOF Then Response.Write "Nenhuma foto encontrada!" Else Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">" contar = 0 Do while not rsFotos.eof If contar = 4 Then Response.Write "<tr>" End If If contar <> 5 Then Response.Write "<TR>" End If imagemp=rsFotos("Foto_P") imagem=rsFotos("foto") If RsFotos.eof then exit do Response.Write "<td><a href=""javascript:abre('http://intranet/teste/fotos/"&imagem& ".jpg');""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" contar = contar +1 rsFotos.MoveNext If RsFotos.eof then exit do imagemp=rsFotos("Foto_P") imagem=rsFotos("foto") Response.Write "<td><a href=""javascript:abre('http://intranet/teste/fotos/"&imagem& ".jpg');""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagemp=rsFotos("Foto_P") imagem=rsFotos("foto") Response.Write "<td><a href=""javascript:abre('http://intranet/teste/fotos/"&imagem& ".jpg');""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagemp=rsFotos("Foto_P") imagem=rsFotos("foto") Response.Write "<td><a target=""_blank"" href=""popup.asp?foto="&rsfotos("Id")&"""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" ' Response.Write "<td><a target=""_blank"" href=""popup.asp?foto="&rsfotos("Id")&"""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" contar = contar + 1 rsFotos.MoveNext Loop Response.Write "</tr></table></div>" End if End If %> ********* codigo da segunda página ************ <% cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource 'Abre o Recordset Set Rs = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = Conn Set Rs=conn.execute("Select * From fotos where id="&Request.QueryString("foto")&" order by 2") %> <img src="fotos/<%Response.Write(Rs("foto") )%>.jpg">

Valeu... consegui fazer funcionar!

Vou tentar ser mais claro, e me desculpe por isso.... Bom fiz uma página que carrega todas as fotos, quero que quando clicar ele passe os parâmetros (URL e Nome da página) para um Java Script (window.open) que abrirá essa foto, no código da página coloquei o java assim: javascript:abre(http://intranet/teste/fotos/"&imagem& ".jpg,"&Evento&"); onde &imagem& esta buscando o restante do endereço e &Evento& passa o nome da página. no script que esta no inicio da página esta ssim: <head> <script language="JavaScript"> <!-- function abre(URL,Nome) { window.open(URL,Nome,'width=480,height=360,top=100,left=100,scrollbars=no,menubar=no,directories=no,location=no,copyhistory=no,status=no,toolbar=no,maximized=yes,resizable=no');} //--> </script> Eu não sei se estou fazendo alguma coisa errada, agora acho que deve ser problema de javascript ou não.

Desse jeito eu acho que fica bom tb, mas esse aqui eu acho que só é erro de sintaxe: <script language="JavaScript"> <!-- function abre(URL,Nome) { window.open(URL,Nome,'width=480,height=360,top=100,left=100,scrollbars=no,menubar=no,directories=no,location=no,copyhistory=no,status=no,toolbar=no,maximized=yes,resizable=no');} //--> </script> Dados do corpor do programa: Response.Write "<td><a href=""javascript:abre(http://intranet/teste/fotos/"&imagem& ".jpg,"&Evento&");""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" Ele diz que tem um erro na pagina e me mostra isso: Erro ')' esperado

Só que ainda não funciona.....

POPUP <script language="JavaScript"> <!-- function abre(URL,Nome) { window.open(URL,Nome,"width=480,height=360,top=100,left=100,scrollbars=no,menubar=no,directories=no,location=no,copyhistory=no,status=no,toolbar=no,maximized=yes,resizable=no"); } //--> </script> Corpo do programa: Response.Write "<td><a href=""javascript:abre(http://intranet/teste/fotos/"& rsfotos("foto")& ".jpg,"&Evento&");""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>"

mudei... mas ainda não deu certo.... o problema é passar os parâmetros certos para o java, mas não esta funcionando: Response.Write "<td><a href=""javascript:abre('fotos/"&imagem&".jpg','"&imagem&"');""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" window.open("URL","Nome","width=480,height=360,top=100, o que esta errado?

Não sei porque não mostra... ele carrega o popup mas não mostra nada

Fiz a pagina que carrega as fotos e quero que quando o usuario clicar na foto ele abra uma página (popup), mas não estou conseguindo porque o meu site eu uso assim na index: <% elseif meio = "fotos" then %> <!--#include file="fotos/fotos.asp"--> <% else %> <!--#include file="intro.htm"--> <% end if%> então tenho que colocar o endereço do banco assim: <% cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource 'Abre o Recordset Set Rs = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = Conn 'Set Rs=conn.execute("Select * From fotos_eventos order by 2") %> Só que tem um problema, quando abre o popup não mostra a imagem que esta com o endereço em um banco.

VEJA O CODIGO INTEIRO: <% cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource 'Abre o Recordset Set Rs = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = Conn 'Set Rs=conn.execute("Select * From fotos_eventos order by 2") %> <html> <head> <script language="JavaScript"> <!-- function abre() { window.open("fotos/fotos.asp","","width=480,height=360,top=100,left=100,scrollbars=no,menubar=no,directories=no,location=no,copyhistory=no,status=no,toolbar=no,maximized=yes,resizable=no"); } //--> </script> <title>Intranet - Agência de Fomento de Goiás S/A</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="../estilos/intranet.css" rel="stylesheet" type="text/css"> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="610" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <TD width=15><IMG height=8 src="../imagens/1px.gif" width=8></TD> </tr> <tr> <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="../imagens/1px.gif" width=15></div></td> <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#3399CC"> <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>FOTOS</strong></font></div></td> </tr> </table> <table width="595" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="20" valign="middle" class="texto"><strong> </strong><span class="t&iacute;tulo-paginas"><font size="1" face="Verdana"> <% idevento=request.querystring("idevento") evento=request.querystring("evento") '/////COMECA AS CATEGORIAS If idevento = "" Then Set RsEvento = Conn.Execute("SELECT * FROM fotos_eventos ORDER BY 2") If RsEvento.EOF Then Response.Write "Nenhuma evento encontrado!" Else While not RsEvento.EOF Response.Write "<table width=595 border=0 cellspacing=0 cellpadding=0>" Response.Write "<tr><td height=20 bgcolor=#ECF8FF>&nbsp;<img src='imagens/tópico.gif' width='8' height='8'>&nbsp;<a href=""index.asp?lcl=fotos&idevento="&RsEvento("id")&"&evento="&RsEvento("Evento")&""" class='linkclaro'>"&RsEvento("Evento")&"</a></td></tr>" Response.Write "<tr><td height=5 align=""center"" class=""textointrodutorio""><img src=""imagens/5px.gif"" width=""5"" height=""5""></td></tr>" Response.Write "</table>" RsEvento.Movenext Wend End If '/////COMECA AS FOTOS Else 'Response.Write "<font size=2><B><span class='textointrodutorio'>"& Evento &"</span></font></b><BR><BR>" Response.Write "<table width=595 border=0 cellspacing=0 cellpadding=0>" Response.Write "<tr><td height=5 align=""center"" class=""textointrodutorio""><img src=""imagens/5px.gif"" width=""5"" height=""5""></td></tr>" Response.Write "<tr><td height=20 align=""center"" bgcolor=#C4E4FD class=""textointrodutorio"">"& Evento &"</td></tr>" Response.Write "</table>" Set rsFotos = Conn.Execute("SELECT * FROM fotos WHERE idevento="&idevento&"") If rsFotos.EOF Then Response.Write "Nenhuma foto encontrada!" Else Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">" contar = 0 Do while not rsFotos.eof If contar = 4 Then Response.Write "<tr>" End If If contar <> 5 Then Response.Write "<TR>" End If imagemp=rsFotos("Foto_P") imagem=rsFotos("foto") If RsFotos.eof then exit do Response.Write "<td><a target=""_blank"" href=""fotos/"&imagem&".jpg""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" contar = contar +1 rsFotos.MoveNext If RsFotos.eof then exit do imagemp=rsFotos("Foto_P") imagem=rsFotos("foto") Response.Write "<td><a target=""_blank"" href=""fotos/"&imagem&".jpg""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagemp=rsFotos("Foto_P") imagem=rsFotos("foto") Response.Write "<td><a target=""_blank"" href=""fotos/"&imagem&".jpg""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagemp=rsFotos("Foto_P") imagem=rsFotos("foto") Response.Write "<td><a href=""javascript:abre();""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" contar = contar + 1 rsFotos.MoveNext Loop Response.Write "</tr></table></div>" End if End If %> </font></span></td> </tr> <tr> <td height="5" valign="middle" class="texto"><img src="imagens/5px.gif" width="10" height="5"></td> </tr> </table> </td> </tr> </table> </body> </html>

fiz o teste e ele não encontra o banco de dados Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xa8c Thread 0x10f4 DBC 0x260edcc Jet' do Registro. /teste/fotos/fotos.asp, line 7