Arsenio

Olá bom dia, perciso acrescentar um nova linha no excel automaticamente. Por exemplo, tenho uma linha onde meto as informaçoes todas, e quando chegar a ultima linha ele acrescentar uma linha automaticamente para baixo (de maneira a que fique com as formulas da anterior)... urgente.... aguardo uma resposta.

Ola, boa tarde! Sou iniciante no programa Crystal Reports, e queria perguntar como é que eu insiro texto ou imagem numa Box! :rolleyes:

ola pessoal, e o seguinte, perciso fazer uma coisa no registar clientes da minha ecomerce. Tenho de criar uma password automatica, que vai ser enviada para o cliente por email, e depois o administrador vai ter de confirmar o registo.... não sei como fazer istuh... não encontro nada na internet... será k me podiam ajudar?? perciso dixu urgente.... obrigaduh... :)

Eles inda não estao na tabela, estao no array já consegui peskisei na Internet e descobri e fix istuh... pode ser que ajude alguém Sub apagar (ByVal idx) Produtos_info = session("matriz_produtos") Quantidade_info = session("matriz_quantidade") tabelas=session("matriz_tabela") val= UBound(produtos_info) for i=1 to val if (idx=Produtos_info(i)) then posicao=i end if Next Produtos_num = UBound(produtos_info) - 1 for i=posicao to produtos_num produtos_info(i) = produtos_info(i + 1) Quantidade_info(i)=Quantidade_info(i+1) Next ReDim Preserve produtos_info(Produtos_num) ReDim Preserve quantidade_info(Produtos_num) session("matriz_produtos")=produtos_info session("matriz_quantidade")=quantidade_info response.Redirect("carrinho.asp?como=ver_carrinho") End Sub

<!--#include file="lIgacao.asp"--> <% if not session("acesso")=true then response.Write("<script>alert('Tem de efetuar login!'); window.location=('Apre.asp')</script>") else %> <%sub actualizar() Produtos_info = session("matriz_produtos") Quantidade_info = session("matriz_quantidade") Produtos_num = ubound(produtos_info) Temporario = 0 if produtos_num>0 then for i=1 to produtos_num quantidade_info(i)= request.form("quant"&i) next end if session("matriz_produtos")=produtos_info session("matriz_quantidade")= quantidade_info response.redirect "carrinho.asp" end sub%> <%Sub ver_carrinho() Produtos_info = session("matriz_produtos") Quantidade_info = session("matriz_quantidade") tabelas=session("matriz_tabela") produtos_num = ubound(produtos_info) if produtos_num <1 then response.write "<p>&nbsp</P><p>&nbsp</p><p><center>" response.write "<font size='4'color='#6666CC '>O Carrinho ainda está vazio...</font>" response.write"</center></p><P>&nbsp</P><P>&nbsp</p>" exit sub end if num_produtos = 0 response.write "<div align='center'>" response.write "<table width='582' border='1'><tr>" response.write "<td width='20'>" response.write "<SPAN class=pagetitle><b>Q</span><span class=pagetitle2>t.</b></span>" response.write "</td>" response.write "<td>" response.write "<SPAN class=pagetitle><b>N</span><span class=pagetitle2>ome</b></span>" response.write "</td>" response.write "<td>" Response.Write "<SPAN class=pagetitle><b>D</span><span class=pagetitle2>escricao</b></span>" response.write "</td>" response.write "<td width='40'>" response.write "<SPAN class=pagetitle><b>P</span><span class=pagetitle2>reço&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></span>" response.write "</td>" response.write "<td width='10'>" response.write "<SPAN class=pagetitle><b>T</span><span class=pagetitle2>otal&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></span>" response.write "</td>"%> <form action="carrinho.asp?como=calcula" method=POST> <%total_preco = 0 total_produtos = 0 Set rs= Server.CreateObject("ADODB.Recordset") for i=1 to produtos_num SQLStmt = "Select * from dbo.Produtos where Cod_Prod="&Produtos_info(i) rs.Open SQlstmt,variavel response.write"<tr><td width='10'>"%> <input type=text name="<%="quant"&i%>" value="<%=quantidade_info(i)%>" size=2 maxlength=3 class="pagetitle2" style="background-color:#EEEEEE"> <%response.write "</td>" response.write "<td><span class=pagetitle2>" response.write rs.fields("nome_prod") response.write "</span></td>" response.write "<td><span class=pagetitle2><b>" response.write rs.fields("descrisao") response.write "</b></span></td>" response.write "<td><span class=pagetitle2>" total=rs.fields("Preco_siva")*(1-(cint(session("desconto"))/100))*(1+(Rs.fields("iva")/100)) response.write (total&" €") Response.Write "</span></td>" response.write "<td><span class=pagetitle2>" valor = (total * quantidade_info(i) ) response.write (valor&" €") response.write "</span></td>" total_preco = total_preco + (total* quantidade_info(i)) total_produtos = total_produtos + quantidade_info(i) rs.close next response.write "</table>" response.write "</p></div>" response.write "<table width='582'><tr><td><input type='submit' name='Submit' value='Actualizar' class='pagetitle3'></td>" response.write "</form>"%> <form action="encomenda_final.asp?a=<%=request.form("select")%>&b=<%=request.form("limite")%>"> <% session("passar")=1 response.Write "<td><div align='right'><input type='submit' name='Submit' value='Efectuar encomenda >>' class='pagetitle3'></div></td></tr></table>" response.write "</form>" End Sub sub adicionar(qual) ta=request.querystring("ta") Produtos_info = session("matriz_produtos") Quantidade_info = session("matriz_quantidade") tabelas=session("matriz_tabela") Produtos_num = ubound(produtos_info) Temporario = 0 if produtos_num>0 then for i=1 to produtos_num if produtos_info(i) = qual then temporario = i exit for end if next end if if temporario = 0 then temporario = produtos_num + 1 redim preserve produtos_info(temporario) redim preserve quantidade_info(temporario) redim preserve tabelas(temporario) produtos_info(temporario)=qual quantidade_info(temporario) = 1 tabelas(temporario)=ta else quantidade_info(temporario)= quantidade_info(temporario) + 1 tabelas(temporario)=ta end if session("matriz_produtos")=produtos_info session("matriz_quantidade")= quantidade_info session("matriz_tabela")=tabelas end sub Sub voltar() response.write "<form>" Response.write"<p><a href='Pag_Marcas.asp' target='principal'>" Response.write"<font face='arial'size='2'><b>Continuar a comprar</b></font></a></p>" Response.write"<p><a href='carrinho.asp'>" Response.write"<font face='arial'size='2'><b>Ver as compras efectuadas</b></font></a></p>" response.write "</form>" End Sub Como = Request.QueryString("como") Select Case como Case "adicionar" adicionar(request.querystring("qual")) voltar() case "apagar" apagar() case "calcula" actualizar() Case Else ver_carrinho() End Select%> <HTML><HEAD><TITLE>C.Lamp,Lda - Loja on-line - Finalizar encomenda</TITLE> <%end if%> tenho esse codigo.... como faxuh para adicionar um Sub para apagar o item?? aguardo resposta...

Já consegui... Arranjei um na net com um ficheiro .asa depois foi so colocar o asa na raiz alterar as intruçoes Sql e já funciona.... so persico acrescentar um apagar agora.... Obrigado ai pela força

não estou a conseguir adpatar isso no meu projecto.... Se lhe enviar o meu projecto alguém me pode adptar isso?? urgente... tenho que entregar isso amanha e não sei como o fazer... pff ajudem me

Olá boa tarde, perciso de fazer um carrinho de compras em asp para o meu projecto, e não sei como o fazer, será que alguém me poderia ajudar com isto é que estou mesmo a nadar com isto. aguardo uma resposta.... Urgente

<body> <% Set VProduto = Server.CreateObject("ADODB.Recordset") strSQL="Select * from dbo.Produtos order by Cod_Prod" VProduto.open strSQL, variavel %> <% moveLeft = -1 moveTop = 0 i = 0 while not VProduto.eof moveLeft = moveLeft + 1 i = i + 1 if (i > 3) then moveTop = moveTop + 1 moveLeft = 0 i = 1 end if %> <span style="position: absolute; top: <%=(moveTop*200)%>px; left: <%=(moveLeft*250)%>px"> <table width="151" height="94" border="0"> <tr> <td width="89" height="22"><img src="teste/<%=VProduto.fields("Imagem")%>" width="75" height="68" name="Img" /></td> <center> <td width="52"><%=VProduto.fields("Nome_prod")%>&nbsp;</td> </center> </tr> <tr> <td><%=Vproduto.fields("dimensao") %>&nbsp;</td> <center> <td><%=VProduto.fields("Preco_siva")%>&nbsp;</td> </center> </tr> <td width="89"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="54" height="15"> <param name="movie" value="text4.swf"> <param name="quality" value="high"><param name="BGCOLOR" value="#0099CC"> <embed src="text4.swf" width="54" height="15" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#0099CC" ></embed> </object></td> <td width="52"><img src="images/Compras.gif" align="right">&nbsp;</td> </table> </span> <p> <% VProduto.movenext Wend VProduto.close %> resolvi o meu problema da seguinte forma, e resolvi postar aki o codigo, pois pode vir a ajudar alguém.... obrigadu por tudo pessoal.

Ola boa Noite!!! sim e isso Loko da Web... por akaso não tenho k faxer um contador dentro do while?!

eu perciso é que le manda a mesma tabela para o lado direito.... até chegar a terceira e depois mudar de linha. perciso mesmo de ajuda... so me falta isto, e tenho limite até quinta, se me podessem ajudar agradecia pessoal!! :( obrigado quero que apareca como este link http://worten.pt/ProductList.aspx?oid=10&c=1024271

tenho este codigo, mas este codigo lista-me os produtos para baixo, eu quero k os liste para o lado de 3 em 3 <% Set VProduto = Server.CreateObject("ADODB.Recordset") strSQL="Select * from dbo.Produtos order by Cod_Prod" VProduto.open strSQL, variavel %> <% while not VProduto.eof %> <table width="151" height="94" border="0"> <tr> <td width="89" height="22"><img src="teste/<%=VProduto.fields("Imagem")%>" width="75" height="68" name="Img" /></td> <center> <td width="52"><%=VProduto.fields("Nome_prod")%>&nbsp;</td> </center> </tr> <tr> <td><%=Vproduto.fields("dimensao") %>&nbsp;</td> <center> <td><%=VProduto.fields("Preco_siva")%>&nbsp;</td> </center> </tr> <td width="89"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="54" height="15"> <param name="movie" value="text4.swf"> <param name="quality" value="high"><param name="BGCOLOR" value="#0099CC"> <embed src="text4.swf" width="54" height="15" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#0099CC" ></embed> </object></td> <td width="52"><img src="images/Compras.gif" align="right">&nbsp;</td> <% VProduto.movenext Wend VProduto.close %> </table> aguardo a resposta.... obrigadu :)

Boas pessoal... sera k alguém me poderia dar uma força aki?? e o seguinte, estou desenvolvendo uma loja Online, e quero k na secção do utilizador me mostre os produtos da seguinte forma: numa linha 3 produtos k estao na base de dados, depois na outra linha outros 3 produtos, e assim por diante?? será k alguém me poderia ajudar?? Obrigado pessoal. :unsure: