%@ Language=VBScript%> <% session.Timeout = 30 Dim vComando,Vreferencia, Rs,Vdata,Vcont,Vid Vreferencia=request.ServerVariables("HTTP_REFERER") If Vreferencia <> "" then %><% Vdata=Now() Vcont=1 Set Rs=Con.Execute("select * from Referencia Where referencia='"&Vreferencia&"'") If Rs.eof then Con.Execute("insert into referencia (referencia,ultima,contador) values('"&Vreferencia&"','"&Vdata&"','"&Vcont&"')") else Vid=Rs("ID") Vcont=Rs("Contador")+1 Con.Execute("Update Referencia Set Contador='"&Vcont&"' , Ultima='"&Vdata&"' Where Referencia='"&Vreferencia&"'") End if Rs.Close Set Rs = Nothing Con.Close Set Con = Nothing End If %><% ' -------------------------------------------------- Mostra as Ofertas Set RecSet = Server.CreateObject("ADODB.RecordSet") vComando = "SELECT NCAT, CODPROD, PRODUTO, IMAGEMPEQ, PRECO, UNIDADE, SITUACAO FROM PRODUTOS WHERE OFERTA<>'0'" & " ORDER BY OFERTA" RecSet.Open vComando, Con, 3, 1 Dim Ofertas(51,6) For I = 0 to 51 Ofertas(I,0) = RecSet("CODPROD") Ofertas(I,1) = RecSet("PRODUTO") Ofertas(I,2) = RecSet("SITUACAO") Ofertas(I,3) = "R$ " + FormatNumber(RecSet("PRECO"),2) Ofertas(I,4) = RecSet("UNIDADE") Ofertas(I,5) = RecSet("IMAGEMPEQ") Ofertas(I,6) = RecSet("NCAT") RecSet.MoveNext Next RecSet.Close Set RecSet = Nothing Con.Close Set Con = Nothing %>
|