<%
Dim pushgo(2) 
 
pushgo(0) = "push-rates.asp"
pushgo(1) = "push-deals.asp"
pushgo(2) = "push-club.asp"
intRangeSize = UBound(pushgo)

Randomize

response.write("<!--#include file=""" & pushgo(INT(intRangeSize*Rnd())) & """-->") 

%>