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