<%@ 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
%>
:: Pedras Esotéricas e Bijouterias ::
