% Dim sInDom Dim sPath Dim sQstring Dim sReDom Const sMyDom = "www.kasbahouse.com" sInDom = Request.ServerVariables("HTTP_HOST") sPath = Request.ServerVariables("PATH_INFO") sQstring = Request.ServerVariables("QUERY_STRING") If sQstring <> "" Then sQstring = "?"&sQstring End If sReDom = "http://"&sMyDom&sPath&sQstring If inStr(sInDom,sMyDom) = 0 Then Response.Redirect sReDom End If %>
![]() |
||||||||
|
|
*******
|
|
|||||||
|
|
Villaware AllProducts NewlyAdded World Imports Pizell Krumkake NuovaPoint Beebo Imperia Tomatostrainer PorkertMeatGrinder Tetsubin Globes
JoyceChen ModernoSeries CE shrimpbutler shellmaster PizzaGrill® BBQ Pizza Maker Froogle Tilia Christmas2005 Kitchenartss Teapot
SendtoaFriend Searchourpages GoogleSearch Zyliss Swiss Army Food Processor CucinaPro Roma Kasbahousexml OlivaOilCan Pierogi Inca Vintage