<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim tipo__MMColParam
tipo__MMColParam = "1"
If (Request.QueryString("tipo") <> "") Then
tipo__MMColParam = Request.QueryString("tipo")
End If
%>
<%
Dim tipo
Dim tipo_numRows
Set tipo = Server.CreateObject("ADODB.Recordset")
tipo.ActiveConnection = MM_Loja_STRING
tipo.Source = "SELECT * FROM propnoar WHERE tipoPublicidade.nome = 'lateral' AND impressoes > 0"
tipo.CursorType = 3
tipo.CursorLocation = 3
tipo.LockType = 1
tipo.Open()
tipo_numRows = 0
%>
<%
if request.QueryString("modulo")<>"" then
tipo.filter = "modulos.id=" & request.QueryString("modulo")
elseif request.QueryString("pagina")<>"" then
tipo.filter = "titulos.id=" & request.QueryString("pagina")
else
response.End()
end if
if tipo.eof then
response.End()
end if
%>
<%
if Request.Cookies("banner" & tipo("titulos.id") & "tipo" & tipo("tipopublicidade.id"))="" then
prop = 1
else
prop = int(Request.Cookies("banner" & tipo("titulos.id") & "tipo" & tipo("tipopublicidade.id")))
end if
if int(prop) > tipo.recordcount then
prop=1
end if
response.cookies("banner" & tipo("titulos.id") & "tipo" & tipo("tipopublicidade.id")) = int(prop) + 1
response.cookies("banner" & tipo("titulos.id") & "tipo" & tipo("tipopublicidade.id")).expires = date + 30
tipo.absolutePosition = prop
%>
<%
set atualiza = Server.CreateObject("ADODB.Command")
atualiza.ActiveConnection = MM_Loja_STRING
atualiza.CommandText = "UPDATE Publicidade SET impressoes=impressoes-1 Where id=" & (tipo.Fields.Item("publicidade.id").Value)
atualiza.CommandType = 1
atualiza.CommandTimeout = 0
atualiza.Prepared = true
atualiza.Execute()
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 3
Repeat1__index = 0
tipo_numRows = tipo_numRows + Repeat1__numRows
%>
<%
largura = (tipo.Fields.Item("largura").Value)
altura = (tipo.Fields.Item("altura").Value)
arquivo = (tipo.Fields.Item("arquivo").Value)
ponto = InStrRev (arquivo,".",-1,1)
ext = mid(arquivo,(ponto + 1),len(arquivo))
Select case ext
case "swf"
banner = ""
case "jpg","jpeg","gif"
banner = " & arquivo & chr(34) & )
"
case else
banner = arquivo
end Select
%>
Untitled Document
<%
While ((Repeat1__numRows <> 0) AND (NOT tipo.EOF))
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
tipo.MoveNext()
Wend
%>
<%
tipo.Close()
Set tipo = Nothing
%>