Arsenio

Setembro 17, 2009

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.

Abril 29, 2009

Ola, boa tarde!

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

:rolleyes:

Abril 1, 2009

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... :)

Fevereiro 27, 2009

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

for i=posicao to produtos_num

produtos_info(i) = produtos_info(i + 1)

Quantidade_info(i)=Quantidade_info(i+1)

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

Fevereiro 26, 2009

<!--#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...

Fevereiro 26, 2009

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

Fevereiro 26, 2009

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

Fevereiro 25, 2009

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

Fevereiro 4, 2009

<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.

Fevereiro 3, 2009

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

Fevereiro 3, 2009

Bom dia olha esse link .... Veja se te ajuda
http://www.mvirtual.com.br/jcanistrum/Sist...PorColunas.html

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

Fevereiro 3, 2009

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 :)

Fevereiro 1, 2009

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:

Entrar

Arsenio

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por Arsenio

Acrescentar uma linha

Crystal Report

PassWord Automática

Carrinho de Compras

Carrinho de Compras

Carrinho de Compras

Carrinho de Compras

Carrinho de Compras

(Resolvido) Listar Produtos

(Resolvido) Listar Produtos

(Resolvido) Listar Produtos

(Resolvido) Listar Produtos

(Resolvido) Listar Produtos

Navegação

Atividades