E-Comerce

[Guest --Junior --]

E ai moçada,

Será que alguém pode me dar uma dica de como fazer pra quando o usuário acessar o site ser gerado um código de identificação da página e o mesmo ser gravado num db para que ele possa usar o carrinho de compra sem interferir na compra de outros usuários que estejam acessando o site e fazendo compras também?

Já tentei usando asp e javascript mas não consegui!

Se alguém puder ficarei agradecido.

Te mais.

Junior Soares.

macro.contato@gmail.com

[Marcos-rj]

no meu caso eu crio uma sessão.

sempre q alguém entra crio uma sessao com um nº e gravo em uma tabela "pedidos" quando o cliente clica em comprar.

[Guest --Junior --]

Ok meu querido, mas como fazer isso?!

[dno_info]

use essa opção de pegar o IP do cliente

ip_con = Request.ServerVariables("remote_addr")

[Guest --Junior --]

:lol:

dno_info meu caro, sua dica funcionaria se não fosse o provedor local da minha cidade que distribui um único IP pra todos os clientes. Já pensou?! :angry:

Descobri isso por que um dia estava fazendo uma enquete e queria que os usuários votassem apenas uma vez, só que depois de muitos testes e dores de cabeça e !!!!????, acabei descobrindo que após o primeiro voto ninguém mais da cidade que usa o provedor conseguia votar, justamente por conta de todos terem o mesmo endereço IP.

Mas agradeço muito a você e ao Marcos -rj, até porque se não fosse por ele eu não pensaria em usar Session, valeu mesmo!

Estou resolvendo assim:

Criei uma Tabela com os campos :

Cod_Temp:Autonumerico;

Data:Date;

Hora:Time.

Ai fiz esse código:

<%

If(Session("id_pagina") = "") Then

Set Conn = Server.CreateObject("adodb.connection")

conn.Open Dados

SQLstmt = "INSERT INTO temp (data,hora)"

SQLstmt = SQLstmt & " VALUES ("

SQLstmt = SQLstmt & "'" & date() & "',"

SQLstmt = SQLstmt & "'" & time() & "'"

SQLstmt = SQLstmt & ")"

Set RS = conn.execute(SQLstmt)

Conn.Close

Set Conn = Server.CreateObject("adodb.connection")

conn.Open Dados

SQL = "SELECT MAX(cod_temp) as codigo FROM temp"

Set Reg = Server.CreateObject("ADODB.Recordset")

Reg.Open SQL, Dados, 3, 3

usuario = Reg("codigo")

Session("id_pagina") = usuario

end if

%>

Até agora está dando certo! Graças a meu Deus, e a vocês é lógico.

Mas qualquer coisa eu apareço novamente.

Valeu galera!

Fiquem com Deus!

:D