<%
If InStr( UCase(Request.ServerVariables("SERVER_NAME")), UCase("whimsycards.com") ) > 0 Then
Response.Redirect("http://www.whimsycards.com")
ElseIf InStr( UCase(Request.ServerVariables("SERVER_NAME")), UCase("simplywhimsy.com") ) > 0 Then
Response.Redirect("http://www.whimsycards.com")
ElseIf InStr( UCase(Request.ServerVariables("SERVER_NAME")), UCase("whimsicallyyours.com") ) > 0 Then
Response.Redirect("http://www.whimsycards.com")
Else
Response.Write("You came to an unknown domain. Please try whimsycards.com")
End If
%>