<% s_url = Request.ServerVariables("server_name") s_url = lcase(s_url) s_page = Request.ServerVariables("url") s_page = lcase(s_page) b_found = InStr(1,s_url, "tickleshocker",1) if (b_found <> 0) then b_found = InStr(1,s_url, "www",1) if (b_found = 0) then response.redirect ("http://www.tickleshocker.com/usbwts.asp") else response.redirect ("usbwts.asp") end if end if 'b_found = InStr(1,s_url, "oceanmedia",1) 'if (b_found <> 0) then b_found = InStr(1,s_url, "www",1) if (b_found < 1) then response.redirect ("http://www.oceanmedia.net" & s_page) else 'yay stay here end if 'end if s_colors = "#5273ff,#39bcf9,#a8cbdb,#00acfb,#604bfd,#925efb" s_files = "bkg_2012_all_blue.jpg,bkg_2012_all_aqua.jpg,bkg_2012_all_greyblue.jpg,bkg_2012_all_darkaqua.jpg,bkg_2012_all_purpleblue.jpg,bkg_2012_all_purple.jpg" randomize second(time) array_colors = Split(s_colors,",",-1,1) array_files = Split(s_files,",",-1,1) i_number_colors = ubound(array_colors)+1 i_random_number = int((i_number_colors)*Rnd+1) s_color = array_colors(i_random_number-1) s_file = array_files(i_random_number-1) %> <%=s_title_page%> at OceanMedia.net