<%Dim Dayx(7)
Dayx(1)="Sunday"
Dayx(2)="Monday"
Dayx(3)="Tuesday"
Dayx(4)="Wednesday"
Dayx(5)="Thursday"
Dayx(6)="Friday"
Dayx(7)="Saturday"
Dim Mesx(12)
Mesx(1)="January"
Mesx(2)="February"
Mesx(3)="March"
Mesx(4)="April"
Mesx(5)="May"
Mesx(6)="June"
Mesx(7)="July"
Mesx(8)="August"
Mesx(9)="September"
Mesx(10)="October"
Mesx(11)="November"
Mesx(12)="December"
%>
|
|
www.miamionsale.com
 |
South Florida,
<%=Dayx(Datepart("w",now+(1/12)))%> <%=Mesx(month(now+(1/12)))%> <%=Day(now+(1/12))%> <%=year(now+(1/12))%>, <%if hour(now+(1/12))<=9 then response.write "0"%><%=hour(now+(1/12))%>:<%if minute(now)<=9 then response.write "0"%><%=minute(now)%> |
|
<%
B_site="18"
Host=B_site
xpautas=16
Set control1 = Server.CreateObject("ADODB.Connection")
control1.ConnectionTimeout = Application("banners_ConnectionTimeout")
control1.CommandTimeout = Application("banners_CommandTimeout")
control1.Open Application("banners_ConnectionString"), Application("banners_RuntimeUserName"), Application("banners_RuntimePassword")
Set rscards = control1.Execute("SELECT Top "&xpautas&" IdBanner FROM V2BannersXSite a,V2Banners b WHERE ( (TipoBanner=2) and (b.Id=a.IdBanner) and (IdSite = '"&Host&"') and (Flag='1') and((TargetClicks > ContClicks)or TargetClicks is null or TargetClicks=0) and ((TargetImp > ContImp)or TargetImp is null or TargetImp=0) )" ,zrecs)
if zrecs=0 then
Set rscards = control1.Execute("SELECT Id FROM V2Banners WHERE ( TipoBanner=12) " ,zrecs)
codelist=rscards.getrows()
v2k=ubound(codelist,2)
else
codelist=rscards.getrows()
v2k=ubound(codelist,2)
if v2k < (xpautas-1) then
xpauta2=(xpautas)-(v2k+1)
Set rscards = control1.Execute("SELECT top "&xpautas&" (IdBanner) as id FROM V2BannersXSite a,V2Banners b WHERE ( (TipoBanner=2) and (b.Id=a.IdBanner) and (Flag='1') and (IdSite = '"&Host&"')and((TargetClicks > ContClicks) or TargetClicks is null or TargetClicks=0) and ((TargetImp > ContImp) or TargetImp is null or TargetImp=0)) union SELECT top "&xpauta2&" (IdBanner) as id FROM V2BannersXSite a,V2Banners b WHERE ( (TipoBanner=12) and (b.Id=a.IdBanner) and (Flag='1') and (IdSite = '"&Host&"')) order by id" ,zrecs)
codelist=rscards.getrows()
v2k=ubound(codelist,2)
'Set rscards = control1.Execute("SELECT top "&xpauta&" IdBanner FROM V2BannersXSite a,V2Banners b WHERE ( (TipoBanner=2) and (b.Id=a.IdBanner) and (IdSite = '"&Host&"')and((TargetClicks > ContClicks) or TargetClicks is null or TargetClicks=0) and ((TargetImp > ContImp) or TargetImp is null or TargetImp=0)) order by a.id union SELECT top "&xpauta2&" Id FROM V2Banners WHERE ( TipoBanner=12)" ,zrecs)
end if
end if
If zrecs <> 0 Then
randomize()
uno=int(rnd()*(v2k+1))
A1=codelist(0,uno)
Set rscards5 = control1.Execute("SELECT * FROM ""V2Banners"" WHERE Id = "&A1&"",zrecs)
B1=rscards5("URL_Img")
'C1=rscards5("ContImp")
'D1=CLng(C1)+1
Set rscards6 = control1.Execute("UPDATE ""V2BannersXSite"" SET ContImp = ContImp + 1 WHERE IdBanner = "&A1&" and IdSite= "&Host&"",zrecs)
Set rscards7 = control1.Execute("SELECT * FROM ""V2Contadores"" WHERE (IdBanner = "&A1&" AND IdSite="&Host&" AND Year(Fecha) = "&Year(now)&" AND Month(Fecha) = "&Month(now)&" AND Day(Fecha) = "&Day(now)&")",z1recs)
If z1recs = 0 then
Set rscardsa = control1.Execute("INSERT INTO ""V2Contadores"" (IdBanner,IdSite,Fecha,ContImp,ContClicks) VALUES ("&A1&","&Host&",'"&now&"',1,0)",z1recs)
Else
E1=rscards7("ContImp")
F1=CLng(E1)+1
Set rscards8 = control1.Execute("UPDATE ""V2Contadores"" SET ContImp = "&F1&" WHERE (IdBanner = "&A1&" AND IdSite="&Host&"AND Year(Fecha) = "&Year(now)&" AND Month(Fecha) = "&Month(now)&" AND Day(Fecha) = "&Day(now)&")",z1recs)
End if
%>
<%
End If
control1.Close
%>
|
Advertise
Here
|
|
|
|
|
|
|
Add your site
We ONLY accept sites which represent companies, organizations, or individuals
based or with a street address in Metropolitan Miami, and also sites with
content helpful for Miamians and Tourists traveling to Miami. (In this
last category, because of its subjectiveness, our criteria will determine
if they fit or not this directory)
|