ASP Rotates Banner

Script yang memungkinkan anda untuk memasang banner secara bergiliran secara random. Banner akan bergiliran setiap kali loading halaman.

<%

'Add This Code To Place To Add Banner

'<!--#include virtual="banner.asp"--&

' gt;

Response.Expires = -1

'Set TimeIt To TRUE If You Want A Diffre

' nt Banner Every Hour

'Or Else Your Gonna Get A Random Banner

TimeIt = True

if TimeIt = False Then

Dim RandNum

Randomize

RandNum = Int(Rnd * 4) + 1

if
RandNum
= 1 Then

Response.Write("<A HREF='link1.html'><IMG
SRC='banner1.gif' WIDTH=468 HEIGHT=60></A>'")

ElseIf RandNum = 2 Then

Response.Write("<A HREF='link2.html'><IMG
SRC='banner2.gif' WIDTH=468 HEIGHT=60></A>'")

ElseIf RandNum = 3 Then

Response.Write("<A HREF='link3.html'><IMG
SRC='banner3.gif' WIDTH=468 HEIGHT=60></A>'")

ElseIf RandNum = 4 Then

Response.Write("<A HREF='link4.html'><IMG
SRC='banner4.gif' WIDTH=468 HEIGHT=60></A>'")

End if

%>

<%

Else

MyTime = DatePart("h",Time())

Select Case MyTime

Case 1, 6, 9

Response.Write("<A HREF='link1.html'><IMG SRC='banner1.gif' WIDTH=468
HEIGHT=60></A>'")

Case 3, 8, 11

Response.Write("<A HREF='link2.html'><IMG SRC='banner2.gif' WIDTH=468
HEIGHT=60></A>'")

Case 2, 5, 10

Response.Write("<A HREF='link3.html'><IMG SRC='banner3.gif' WIDTH=468
HEIGHT=60></A>'")

Case 4, 7, 12

Response.Write("<A HREF='link4.html'><IMG SRC='banner4.gif' WIDTH=468
HEIGHT=60></A>'")

End Select

End if

End if

%>