<!-- #include file="funcoes.asp" -->
<%
If Len(Day(Date)) = 1 Then
dia = "0" & Day(Date)
Else
dia = Day(Date)
End If
If Len(Month(Date)) = 1 Then
mes = "0" & Month(Date)
Else
mes = Month(Date)
End If

set rsglobal = conexao.execute("SELECT * FROM compras Order by idcompra desc")
if rsglobal.eof then
Session("orderID") = ""
end if
rsglobal.close
set rsglobal = nothing
if Session("orderID") = "" then
set rs = conexao.execute("SELECT * FROM compras Order by idcompra desc")
if rs.eof then
Session("orderID") = 1
session("valor_cpdesconto") = null
session("valor_cpvalor") = null
session("utilizando_cupomdesconto") = "nao"
conexao.Execute("INSERT INTO compras (cotacao, idcompra, datacompra, status) values ('"&loja("cotacao_dia")&"','" &session("orderID") & "', '" & dia & "/"&mes&"/"&year(date)&"', 'Compra em Aberto')")
else
Session("orderID") = rs("idcompra") + 1
conexao.Execute("INSERT INTO compras (cotacao, idcompra, datacompra, status) values ('"&loja("cotacao_dia")&"', " &session("orderID") & ", '" & dia & "/"&mes&"/"&year(date)&"','Compra em Aberto')")
end if
session.timeout = 180
else
end if


Sub adicionac(nOrderID, nProductID, nQuant, nEspecificacoes)
if nEspecificacoes <> "" then
	textosql = "INSERT INTO pedidos (idcompra, idprod, quantidade, especificacoes) values ("&nOrderID&", "&nProductID&", "&nQuant&", "&nEspecificacoes&")"
elseif nEspecificacoes = "" then
zero = "0"
	textosql = "INSERT INTO pedidos (idcompra, idprod, quantidade, especificacoes) values ("&nOrderID&", "&nProductID&", "&nQuant&", "&zero&")"
end if
conexao.Execute(textosql)
Response.Redirect "carrinhodecompras.asp"
End Sub


intProdID = Request("intProdID")
intQuant = "1"
intOrderID = cstr(Session("orderID"))
intEspecificacoes = Request.form("especificacoes")
if intEspecificacoes = "" then
intEspecificacoes = "0"
end if


ver = "SELECT * FROM pedidos WHERE idcompra ='" & intOrderID & "' AND idprod ='" & intProdID & "' and especificacoes='"&intEspecificacoes&"';"
set verificar = conexao.Execute(ver)
if verificar.bof or verificar.eof then
adicionac intOrderID, intProdID, intQuant, intEspecificacoes
else
response.redirect "carrinhodecompras.asp?erro=O produto que vocę tenta adicionar já encontra-se em seu carrinho de compras."
end if


'Fecha banco de dados
conexao.Close
set conexao = Nothing
%>