<!--#include file="includes.asp" -->
<%
	Dim nr_views
	Response.Expires = 0
	Call AbreConexao()
	Set Tabela=Conexao.Execute("SELECT view FROM tbl_BANNERS USE INDEX(Primary) WHERE codigo="&fl(Request.QueryString("cod")))
	If Not(Tabela.EOF) Then
	   nr_views=Tabela.Fields("view")+1
	End If
	Call FechaConexao()
	Call AbreConexao()
    Conexao.Execute("UPDATE tbl_banners USE INDEX(Primary) SET view="&fl(nr_views)&", ultview='"&SQLDate(date)&" "&time&"' WHERE codigo="&Request.QueryString("cod")) 
    Call FechaConexao()
	' create instance of AspJpeg
	Set Jpeg = Server.CreateObject("Persits.Jpeg")
	' Open source file
	path=Server.MapPath(Request("path"))
	Jpeg.Open(path)
	' Set new height and width
	Jpeg.PreserveAspectRatio = True
	If Jpeg.OriginalWidth > Cint(Request("Width")) Then
       Jpeg.Width = Request("Width")
    End If
	Jpeg.Quality=100
	Jpeg.SendBinary
%>