<%
dim vproduto2
dim vcodigo
dim vproduto
dim vpreco
dim SQL
dim rs
dim OBJdbConnection
if Session("email_carrinho") = "" then
vemail = Request.ServerVariables("remote_addr")
else
vemail = Session("email_carrinho")
end if
if Session("senha_carrinho") = "" then
Randomize
nr = (rnd * 4)
vsenha = nr
else
vsenha = Session("senha_carrinho")
end if
'Response.Write "DADOS : " & VEMAIL & "/ " & VSENHA & "
"
vmsg = ""
vcadastro = "0"
IF trim(REQUEST.FORM("CODIGO")) <> "" THEN
vcodigo = REQUEST.FORM("CODIGO")
ELSE
vcodigo = Request("codigo")
END IF
if mid(vcodigo,1,8) = "CADASTRO" then
vcadastro = "1"
vcodigo = trim(mid(vcodigo,9,100))
end if
if trim(vcodigo) = "" then
vcodigo = Request.Form ("codigo")
end if
vpreco = 0
Set Ocn = Server.CreateObject("ADODB.Connection")
Ocn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/banco/okey.mdb") & ";Persist Security Info=False"
erro = ""
if trim(vcodigo) <> "" then
MySQL_STRING="Driver={MySQL ODBC 5.1 Driver};Server=robb0501.publiccloud.com.br;Port=3306;Database=OKEY_produtos;User=OKEY_usuario; Password=#okbd2017#;Option=3;"
set OBJdbConnection = Server.CreateObject("ADODB.Connection")
set rslwxy = Server.CreateObject("ADODB.Recordset")
OBJdbConnection.Open MySQL_STRING
rslwxy.ActiveConnection = OBJdbConnection
SQL = "SELECT * FROM tabela_preco WHERE codigo ='" & vcodigo & "'"
Set rslwxy=OBJdbConnection.Execute(SQL)
if not rslwxy.eof then
vcodigo = rslwxy("codigo")
vdescricao = rslwxy("descricao")
vpreco = rslwxy("PRECO_EXIBICAO")
if vimagem = "-" or vimagem = "" or isnull(vimagem) then
vimagem = "imagens/semimagem.gif"
end if
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = Ocn
RS.CursorType = 1
RS.LockType = 3
RS.Source = "CARRINHO"
RS.Open
RS.AddNew
RS("data") = date()
RS("email") = vemail
RS("senha") = vsenha
RS("codigo") = vcodigo
RS("quantidade") = 1
RS("descricao") = mid(vdescricao,1,45)
RS("valor") = vpreco
RS("subtotal") = vpreco
rs.Update
rs.Close
Session("email_carrinho") = vemail
Session("senha_carrinho") = vsenha
Response.Redirect "carrinho.asp"
else
Session("email_carrinho") = vemail
Session("senha_carrinho") = vsenha
Response.Redirect "carrinho.asp?mensagem="&vcodigo
end if
OBJdbConnection.close
else
strMsg = "ATENÇÃO, PRODUTO NÃO ENCONTRADO OU SEM ESTOQUE..."
Response.Write ""
end if
Ocn.close
%>