Visa från db en viss tid

Finns det någon möjlighet att i nedanstående script få så att sponsorerna uppdateras efter ett visst antal sekunder så att en ny sponsor visas?

<%
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	Visa_slumpvis_sponsor = "SELECT * FROM sponsor"
	RecSet.Open Visa_slumpvis_sponsor, Connect, adOpenStatic, adLockOptimistic 
	Antal = RecSet.RecordCount
	RecSet.Close
	Randomize
	Siffra = Int(Rnd * Antal)
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	DagensSponsor = "SELECT * FROM sponsor"
	RecSet.Open DagensSponsor, Connect, adOpenStatic, adLockOptimistic
	RecSet.Move Siffra, adBookmarkFirst
	VisaSponsor = RecSet("Sponsornamn")
	RecSet.Close
	Connect.Close 
	Set Connect = Nothing
	%>
	<% =VisaSponsor %>