<% RdTo = request("r") If InStr(lcase(RdTo),"time4learning") >= 1 Then Response.Redirect RdTo Else Response.Redirect "http://www.time4learning.com/?rd=homeschool" End If %>