sono dei file in spagnolo.. non riesco a trovare in quale file sta il percorso del database .mdb
ho trovato nel file funcoes.asp:
'************************************************* *******************
' Bases de dados do sistema
'************************************************* *******************
Application("te_conexao") = "Data Source=" & endereco_fisico & "\mdb-database\te_database.mdb;Provider=Microsoft.Jet.OL EDB.4.0;"
Application("te_conexao_cep") = "Data Source=" & endereco_fisico & "\mdb-database\te_cep.mdb;Provider=Microsoft.Jet.OLEDB.4 .0;"
Application("te_banners") = "Data Source=" & endereco_fisico & "\mdb-database\te_banners.mdb;Provider=Microsoft.Jet.OLE DB.4.0;"
mi da sempre errore quando vado per aggiungere al carrello..
Microsoft JET Database Engine error '80004005'
Operation must use an updateable query.
/totalecommerce/cesta.asp, line 138
cesta.asp:
codice:
<html>
<head>
<title><%=Application("te_titulo_browser")%></title>
<link href="estilos/index.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function verifica_cep(form){
if (document[form].cep1.value == ""){
document[form].cep1.focus();
alert('Informe corretamente o cep');
}
else if (document[form].cep2.value == ""){
document[form].cep2.focus();
alert('Informe corretamente o cep');
}
else{
document[form].target="iframe_cep";
document[form].action="cesta_cep.asp";
document[form].submit();
}
}
//-->
</script>
</head>
<body leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0">
<table border="0" align="center" cellpadding="0" cellspacing="0" class="pagina">
<tr>
<td></td>
</tr>
<%
recalcula_cep = False
If Application("te_alinhamento_secoes") = 2 Then
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open Application("te_conexao")
%>
<tr>
<td colspan="3">
<table border="0" align="center" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="1%">[img]imagens/antes_secoes.gif[/img]</td>
<td class="menu_secoes" style="width:100%"></td>
<td width="1%">[img]imagens/depois_secoes.gif[/img]</td>
</tr>
</table>
</td>
</tr>
<%
objCon.Close
Set objCon = Nothing
End If
If Application("te_exibe_busca") = 1 Then
%>
<tr>
<td colspan="3"></td>
</tr>
<%
End If
%>
<tr>
<td>
<%
'# Declara as variaveis do objeto XML
Dim XMLDoc, XMLItems
Dim produtos, total
'# Executa rotina para criar o objeto XML e recuperar os produtos da cesta
Set XMLItems = VerificaXML()
'# Se for clicado no botão comprar do catálogo de compras
If Request.Form("id") <> "" Then
'# Executa rotina para incluir o produto na cesta
IncluirItemXML
End If
'# Rotina para incluir um produto na cesta
SUB IncluirItemXML
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open Application("te_conexao")
Set objRS_produtos = Server.CreateObject("ADODB.Recordset")
objRS_produtos.CursorLocation = 3
objRS_produtos.CursorType = 0
objRS_produtos.LockType = 3
ComandoSQL = "SELECT * FROM produtos WHERE id = " & Request("id")
objRS_produtos.Open ComandoSQL, objCon, , , &H0001
Dim Procura 'Declara as variaveis
Set XMLDoc = XMLItems.ownerDocument
Dim nome_produto
'# Captura as especificações do produto para adicionar na cesta
If Request.Form("especificacao") <> "" Then
ComandoSQL = " SELECT * FROM produtos_especificacoes_detalhes WHERE id_especificacao = " & Request.Form("especificacao")
Set objRS_especificacoes = Server.CreateObject("ADODB.Recordset")
objRS_especificacoes.CursorLocation = 2
objRS_especificacoes.CursorType = 1
objRS_especificacoes.LockType = 1
objRS_especificacoes.Open ComandoSQL, objCon,,, &H0001
If Not objRS_especificacoes.EOF Then
strQ = "SELECT valor_acrescimo FROM produtos_especificacoes WHERE id=" & Request.Form("especificacao")
Set objRS_valor_acrescimo = objCon.Execute(strQ)
If objRS_valor_acrescimo("valor_acrescimo") > 0 Then
valor_acrescimo = objRS_valor_acrescimo("valor_acrescimo")
Else
valor_acrescimo = 0
End If
Set objRS_valor_acrescimo = Nothing
especificacoes = ""
While Not objRS_especificacoes.EOF
especificacoes = especificacoes & objRS_especificacoes("titulo") & ": " & objRS_especificacoes("valor") & "; "
objRS_especificacoes.MoveNext
Wend
End If
objRS_especificacoes.Close
Set objRS_especificacoes = Nothing
Set ComandoSQL = Nothing
nome_produto = objRS_produtos("produto") & "
" & especificacoes & ""
Set especificacoes = Nothing
Else
nome_produto = objRS_produtos("produto")
valor_acrescimo = 0
End If
'# Realiza uma busca no objeto XML para verificar se o produto já contém na cesta
Set Procura = XMLItems.selectNodes("produto[@nome=""" & Replace(nome_produto,"""","") & """]")
'# Se o produto não contér na cesta
If Not Procura.length > 0 Then
strQ = "UPDATE produtos SET num_cesta=num_cesta+1 WHERE id=" & Request.Form("id")
Set objRS = objCon.Execute(strQ)
'# Cria um novo elemento no objeto XML para incluir o produto
Set produto = XMLDoc.createElement("produto")
Set id = XMLDoc.createAttribute("id")
id.Text = Request.Form("id")
produto.attributes.setNamedItem(id)
Set referencia = XMLDoc.createAttribute("referencia")
referencia.Text = Request.Form("referencia")
produto.attributes.setNamedItem(referencia)
Set nome = XMLDoc.createAttribute("nome")
nome.Text = nome_produto
produto.attributes.setNamedItem(nome)
Set especificacao = XMLDoc.createAttribute("especificacao")
especificacao.Text = Request.Form("especificacao")
produto.attributes.setNamedItem(especificacao)
Set valor = XMLDoc.createAttribute("valor")
If objRS_produtos("promocao_inicio") <= Date() AND objRS_produtos("promocao_final") >= Date() Then
var_valor = ccur(objRS_produtos("promocao_valor")) + ccur(valor_acrescimo)
valor.Text = var_valor
Else
var_valor = ccur(objRS_produtos("valor_venda")) + ccur(valor_acrescimo)
valor.Text = var_valor
End If
produto.attributes.setNamedItem(valor)
Set entregas_disponiveis = XMLDoc.createAttribute("entregas_disponiveis")
If Trim(objRS_produtos("entregas_disponiveis")) <> "" Then
entregas_disponiveis.Text = objRS_produtos("entregas_disponiveis")
Else
entregas_disponiveis.Text = ""
End If
produto.attributes.setNamedItem(entregas_disponiveis)
Set peso = XMLDoc.createAttribute("peso")
var_valor = FormatNumber(objRS_produtos("peso"))
peso.Text = var_valor
produto.attributes.setNamedItem(peso)
Set isento_frete = XMLDoc.createAttribute("isento_frete")
If objRS_produtos("isento_frete") = True Then isento_frete.Text = "isento" Else isento_frete.Text = ""
produto.attributes.setNamedItem(isento_frete)
Set isento_frete_qtd = XMLDoc.createAttribute("isento_frete_qtd")
isento_frete_qtd.Text = objRS_produtos("isento_frete_qtd")
produto.attributes.setNamedItem(isento_frete_qtd)
Set VISA_iniciojuros = XMLDoc.createAttribute("VISA_iniciojuros")
VISA_iniciojuros.Text = objRS_produtos("VISA_iniciojuros")
produto.attributes.setNamedItem(VISA_iniciojuros)
Set MASTERCARD_iniciojuros = XMLDoc.createAttribute("MASTERCARD_iniciojuros")
MASTERCARD_iniciojuros.Text = objRS_produtos("MASTERCARD_iniciojuros")
produto.attributes.setNamedItem(MASTERCARD_iniciojuros)
Set DINERS_iniciojuros = XMLDoc.createAttribute("DINERS_iniciojuros")
DINERS_iniciojuros.Text = objRS_produtos("DINERS_iniciojuros")
produto.attributes.setNamedItem(DINERS_iniciojuros)
Set AMERICAN_iniciojuros = XMLDoc.createAttribute("AMERICAN_iniciojuros")
AMERICAN_iniciojuros.Text = objRS_produtos("AMERICAN_iniciojuros")
produto.attributes.setNamedItem(AMERICAN_iniciojuros)
produto.Text = 1
'# Atualiza o objeto XML com o produto já incluido
XMLItems.AppendChild(produto)
recalcula_cep = True
End If
'# Fecha a conexão com o banco de dados após incluir o produto na cesta
objCon.Close
'# Libera variaveis da memória
Set objRS_produtos = Nothing
Set objCon = Nothing
Set ComandoSQL = Nothing
Set Procura = Nothing
END SUB
'# Função que captura os produtos da cesta caso existam
FUNCTION VerificaXML()
'# Cria um objeto XML
Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM")
'# Se a variável de sessão contendo os produtos da cesta exitir
If Not IsEmpty(Session("cesta")) And Session("cesta") <> "" Then
'# Atribui os produtos da variável de sessão para o objeto XML criado
XMLDoc.loadXML CStr(Session("cesta"))
Set XMLItems = XMLDoc.documentElement
'# E se a variável de sessão contendo os produtos da cesta ainda não exitir
Else
'# Cria um elemento em branco para o objeto XML caso não existam produtos na cesta
Set XMLItems = XMLDoc.createElement("cesta")
Set XMLDoc.documentElement = XMLItems
End If
'# Retorna para onde foi chamada a função com o conteudo do XML capturado
Set VerificaXML = XMLItems
END FUNCTION
If Not IsEmpty(Request.Form("qtd_1")) Then
n = 0
For Each item in XMLItems.childNodes
n = n + 1
'# Recupera a quantidade do produto enviada pelo formulário
qtd = Request.Form("qtd_" & n)
If qtd = "" Then qtd = 0
If item.attributes.getNamedItem("isento_frete").text <> "" AND Int(item.attributes.getNamedItem("isento_frete_qtd").text) > 0 Then
If Int(qtd) > Int(item.attributes.getNamedItem("isento_frete_qtd").text) Then
qtd = item.attributes.getNamedItem("isento_frete_qtd").text
Response.Write "
<span class='texto'>[img]admin/imagens/unchecked.gif[/img] Disponível somente " & item.attributes.getNamedItem("isento_frete_qtd").text & " unidade(s) por cliente para o produto com frete grátis:
<font color=red>" & item.attributes.getNamedItem("nome").text & "</font></span>
"
End If
End If
'# Se o a quantidade do produto for diferente de zero e for um valor numérico
If qtd > 0 Then
'# Grava a quantidade do produto no objeto XML
item.text = qtd
Else
'# Elimina o produto do objeto XML
XMLItems.removeChild item
recalcula_cep = True
End If
Next
Set qtde = Nothing
Set item = Nothing
End If
'# Se existirem produtos dentro do objeto XML
If XMLItems.hasChildNodes Then
If Not IsEmpty(Request.Form("cep")) Then
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open Application("te_conexao")
%>
<%
objCon.Close
Set objCon = Nothing
End If
%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" background="IMAGENS/passos_fundo.gif" class="texto">
<tr align="center">
<td width="20%" class=textb>[img]IMAGENS/passo1_selected.gif[/img]</td>
<td width="20%" class=textb>[img]IMAGENS/passo2.gif[/img]</td>
<td width="20%" class=textb>[img]IMAGENS/passo3.gif[/img]</td>
<td width="20%" class=textb>[img]IMAGENS/passo4.gif[/img]</td>
<td width="20%" class=textb>[img]IMAGENS/passo5.gif[/img]</td>
</tr>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="4" class="texto" align="center">
<form name="cesta_produtos" method="post" action="cesta.asp">
<tr align="right" bgcolor="whitesmoke">
<td colspan="6"></td>
</tr>
<tr>
<td colspan="2" bgcolor="gainsboro">DESCRIÇÃO</td>
<td align="center" bgcolor="gainsboro">QUANTIDADE</td>
<td align="center" bgcolor="gainsboro">REMOVER</td>
<td width="1%" align="center" nowrap bgcolor="gainsboro">PREÇO(<%=Application("te_moeda_sigla")%>)</td>
<td width="1%" align="center" nowrap bgcolor="gainsboro">TOTAL(<%=Application("te_moeda_sigla")%>)</td>
</tr>
Permessi di invio
Rispondi quotando