Jump to content


nccs's Content

There have been 4 items by nccs (Search limited from 20/04/2023)


Ordernar por                Order  

#381926 Configuração De Iis

Posted by nccs on 09/06/2004, 18:12 in ASP

Doug
Dá uma olhada nesse link:
http://www.crieseuwe...alando_xp.shtml
Espero ter ajudado, boa sorte.



#305008 Alguem precisa de uma lojavirtual ou scripts????

Posted by nccs on 22/02/2004, 21:06 in ASP

Também tô precisando de uma loja virtual em asp FREE.
n-ccs@ig.com.br



#302917 Conexão Com Banco De Dados

Posted by nccs on 19/02/2004, 10:48 in ASP

tanta assim:

Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("Pasta_do_Banco/Nome_do_Banco") & "; uid=sa; pwd=;"




#202766 Recuperar Dados De Tabelas Com Campos Iguais

Posted by nccs on 06/10/2003, 13:45 in ASP

Olá pessoal!
Sou novo em ASP, estou com o seguinte problema:
Tenho no BD as tabelas "Layout" e "Produtos" com os campos de mesmo nome "codProduto, nomeProduto, estoque, categoria, preco, precoDesconto e codCategoria" preciso que quando o cliente vá no carrinho para ver o que tem dentro, seja recuperado os itens que ele selecionou até o momento tendo ele seleciona os produtos da tabela Layout ou da tabela Produtos, mas não estou conseguindo. Segue abaixo o código para que se possível vocês me ajudem.

<!--#include file="conecta.asp"-->
<!--#include file="topo.asp"-->
    <td width=80%>
<%	AbreConexao
	Dim Sql, RS
	if Request.Form("excluindo") = "sim" then
  	Dim N,I, Nomec
  	N = cint(Request.Form("QtItens"))
  	for I=1 to N
    Nomec = "C"&I
    if Request.Form(Nomec) <> false then
    	Sql = "DELETE * FROM Carrinho WHERE codCarrinho =" & cint(Request.Form(Nomec))
    	conexao.execute(Sql)
    end if
  	next
	end if  
  Sql = "SELECT Layout.nomeProduto, Layout.Categoria, Produtos.nomeProduto, Produtos.Categoria, Quantidade, Carrinho.preco, Carrinho.codCarrinho, NomeCategoria " 
  Sql = Sql & " FROM Carrinho, Layout, Produtos, Categorias WHERE Produtos.CodCategoria = Layout.CodCategoria = Categorias.CodCategoria "
  Sql = Sql & " AND Produtos.codProduto = Layout.codProduto = Carrinho.CodProduto AND Carrinho.codCliente = " & Session("codCliente") 
  set Rs = conexao.Execute(Sql) 
	%>  <font face=verdana size=2> <b> Produto(s) 
      escolhido(s) até o momento:</b></font><br> <br> 
      <table border=1 width=100% cellpadding=1><form method=post action="comprados.asp">
        <input type=hidden name=excluindo value=sim>
        <tr> 
          <th align=center><font face=verdana size=2> Item </font></th>
          <th align=center><font face="verdana" size="2">Produto</font></th>
          <th align=center><font face=verdana size=2> Categoria</font></th>
          <th align=center><font face="verdana" size="2">Empresa</font></th>
          <th align=center><font face=verdana size=2> Quantidade </font></th>
          <th align=center><font face=verdana size=2> Preço<br>
            Unitário </font></th>
          <th align=center><font face=verdana size=2> Total </font></th>
        </tr>
        <%	Dim total,totalGeral,Num
  while not Rs.eof 
  	Num = Num + 1	%>
        <tr> 
          <td align=center><input type=checkbox name="C<%=Num%>" value="<%=Rs("codCarrinho")%>"></td>
          <td><font face=verdana size=2><%=RS("nomeProduto")%> </font></td>
          <td><font face=verdana size=2><%=RS("categoria")%></font></td>
          <td align=right><font face=verdana size=2><%=RS("nomeCategoria")%> </font></td>
          <td align=right><font face=verdana size=2><%=RS("quantidade")%> </font></td>
          <td align=right><font face=verdana size=2>R$ 
            <% = FormatNumber(Rs("preco"),2)%>
            </font></td>
          <% total = Rs("quantidade") * Rs("Preco")%>
          <td align=right><font face=verdana size=2>R$ <%= FormatNumber(total,2)%> </font></td>
        </tr>
        <%totalGeral = totalGeral + total
  	Rs.MoveNext
  wend  %>
        <tr> 
          <td colspan=6 align=right><font face=verdana size=2>Total Geral </font></td>
          <td align=right><font face=verdana size=2>R$ <%= FormatNumber(totalGeral,2)%> </font></td>
        <tr> 
          <td align=center> <p> 
              <input border="0" src="arquivos/imagens/excluir.gif" name="I1" width="65" height="21" type="image">
              &nbsp;</p></td>
          <td colspan=6 align=center> <p><a href = pesquisa.asp><img border="0" src="arquivos/imagens/continuar.gif"  width="70" height="23"></a>&nbsp;&nbsp;&nbsp; 
              <a href = finaliza.asp><img border="0" src="arquivos/imagens/finalizar.gif"  width="70" height="23" ></a></p></td>
        </tr>
      </table>
      <input type=hidden name=QtItens value="<%=Num%>"> </form> 
      <%fechaConexao %> 
</table>
<!--#include file="rodape.asp"-->




IPB Skin By Virteq