Add a Banner

<%
	set objConn = Server.CreateObject("ADODB.Connection")
	set objRS = Server.CreateObject("ADODB.Recordset")
	objConn.Open "Data Source=" & Server.Mappath("/cgi/myadstuff.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
	objRS.ActiveConnection = objConn
	objRS.Open "select * from camp"
%>
Campaign: 
<%
	while not objRS.EOF
		Response.Write (""& objRS("campURL") &"")
	objRS.MoveNext
	wend
%>
		



Month:  
			January
			February
			March
			April
			May
			June
			July
			August
			September
			October
			November
			December
		

Year:	
			<%

			For i=0 to 3
			  Response.Write (""& Year(now)-i &"")
			Next

			%>