通勤 通学中等のひまつぶしを目的に 最新ニュースや占い 面白動画等をきままに更新！
おはようございます
今日は世界のおもしろ情報！
まずは世界の面白い法律！
ちなみに既に法律が変わっていたり
100％正しい情報とは限りませんので
あくまでも面白情報としてですので
あしからず！
先ずは有名どこから
シンガポールでは、公共の場所で
ゴミを捨てたりしてはいけないのはもちろんですが
ガムの製造と販売も禁止されています。
原因は、電車のドアにガムが大量に貼られて
開かなくなった事が原因だそうです。
清潔を守るために地下鉄が開通した当初から
電車内での飲食は一切ダメです。
罰則は日本円で約4万円の罰金か
または最長6か月の懲役刑です。
またボウフラなどが育って
伝染病の元となるということから、
水の入ったバケツを放置しておくと罰せられます。
今いる場所の情報
GET!★ひまクリ★
インドで、税金を払わない悪質な人は
罰として家の前で太鼓を叩いて、
税金を払わない人の名前と金額を公表します。
イタリアでは1日3回
犬の散歩をさせないと罰金
イタリアのトリノでは、犬を毎日
散歩に連れ出さなければいけないという
条例を定めています。
散歩していないという通報があると
罰せられてしまいます。
「日雇いﾀﾞﾙｲし…
今日もｺｺで稼ごっ」
アメリカでは性犯罪で有罪になった者が
刑期を終えた後もその情報を登録し
一般に公開する制度が有る。
アメリカのメガン法（Megan's Law）は、
本来1994年にアメリカのニュージャージー州で成立した
性犯罪者情報公開法の俗称。
一般に性犯罪者とよばれる人々をさまざまなメディア、
場合によってはインターネット上に公開して
身元を特定することを司法権力に要求するもの。
性犯罪者の再犯率の高さから出来た法律。
性犯罪の加害者が現住所を登録しなければいけない
近所に性犯罪歴のある人が引っ越してくると
解るシステムになっています。
詳細は州によって違ってくる。
えっ私の年収低すぎ？
業種別に無料年収診断
続いて世界の面白地名（笑）
クリックするとグーグルマップに行きます。
アルゼンチンの首都
ブエノスアイレスに有る地名
マルデアホ （Mar De Ajo）
一応カジノとかも有る観光地です！
続いて中国
中国黒竜江省牡丹江寧安市に有る
チンポー湖（笑）（鏡泊湖）
南には北朝鮮、 東にはロシアのある地域
ここも観光地になっています。
匿名でできる検査キット!
検査結果はﾈｯﾄで!
性病検査STDﾁｪｯｶｰ
最後まで読んで頂きまして有難う御座います
もし宜しければ参加中のブログランキング
クリックして応援して下さい！
にほんブログ村
今日は世界のおもしろ情報！
まずは世界の面白い法律！
ちなみに既に法律が変わっていたり
100％正しい情報とは限りませんので
あくまでも面白情報としてですので
あしからず！
先ずは有名どこから
シンガポールでは、公共の場所で
ゴミを捨てたりしてはいけないのはもちろんですが
ガムの製造と販売も禁止されています。
原因は、電車のドアにガムが大量に貼られて
開かなくなった事が原因だそうです。
清潔を守るために地下鉄が開通した当初から
電車内での飲食は一切ダメです。
罰則は日本円で約4万円の罰金か
または最長6か月の懲役刑です。
またボウフラなどが育って
伝染病の元となるということから、
水の入ったバケツを放置しておくと罰せられます。
今いる場所の情報
GET!★ひまクリ★
インドで、税金を払わない悪質な人は
罰として家の前で太鼓を叩いて、
税金を払わない人の名前と金額を公表します。
イタリアでは1日3回
犬の散歩をさせないと罰金
イタリアのトリノでは、犬を毎日
散歩に連れ出さなければいけないという
条例を定めています。
散歩していないという通報があると
罰せられてしまいます。
「日雇いﾀﾞﾙｲし…
今日もｺｺで稼ごっ」
アメリカでは性犯罪で有罪になった者が
刑期を終えた後もその情報を登録し
一般に公開する制度が有る。
アメリカのメガン法（Megan's Law）は、
本来1994年にアメリカのニュージャージー州で成立した
性犯罪者情報公開法の俗称。
一般に性犯罪者とよばれる人々をさまざまなメディア、
場合によってはインターネット上に公開して
身元を特定することを司法権力に要求するもの。
性犯罪者の再犯率の高さから出来た法律。
性犯罪の加害者が現住所を登録しなければいけない
近所に性犯罪歴のある人が引っ越してくると
解るシステムになっています。
詳細は州によって違ってくる。
えっ私の年収低すぎ？
業種別に無料年収診断
続いて世界の面白地名（笑）
クリックするとグーグルマップに行きます。
アルゼンチンの首都
ブエノスアイレスに有る地名
マルデアホ （Mar De Ajo）
一応カジノとかも有る観光地です！
続いて中国
中国黒竜江省牡丹江寧安市に有る
チンポー湖（笑）（鏡泊湖）
南には北朝鮮、 東にはロシアのある地域
ここも観光地になっています。
匿名でできる検査キット!
検査結果はﾈｯﾄで!
性病検査STDﾁｪｯｶｰ
最後まで読んで頂きまして有難う御座います
もし宜しければ参加中のブログランキング
クリックして応援して下さい！
にほんブログ村
[1回]
PR
Comment form
カウンター
広告2
おススメいろいろ
通勤中に運勢チェック！
占い おすすめ!!!
移動中はやっぱり
携帯 Game ゲーム げーむ
昨日の続きを読みながら
電子書籍
気になる新曲をチェック
着メロ・着うた おすすめ!!!
試合結果 最新ニュース
スポーツ速報 その他
1ヶ月無料★TSUTAYAのﾈｯﾄ宅配DVD/CDﾚﾝﾀﾙ♪
ﾀﾞｲｴｯﾄ失敗続きの
あなたに★ｵｽｽﾒ★
Yahoo!BBなら電話回線もってなくてもｲﾝﾀｰﾈｯﾄもIP電話も使えます。
お申込はこちら
フレッツ光
工事費＆最大２ヶ月無料！
最大50,000円ｷｬｯｼｭﾊﾞｯｸ中
お申し込みは⇒こちら
占い おすすめ!!!
移動中はやっぱり
携帯 Game ゲーム げーむ
昨日の続きを読みながら
電子書籍
気になる新曲をチェック
着メロ・着うた おすすめ!!!
試合結果 最新ニュース
スポーツ速報 その他
1ヶ月無料★TSUTAYAのﾈｯﾄ宅配DVD/CDﾚﾝﾀﾙ♪
ﾀﾞｲｴｯﾄ失敗続きの
あなたに★ｵｽｽﾒ★
Yahoo!BBなら電話回線もってなくてもｲﾝﾀｰﾈｯﾄもIP電話も使えます。
お申込はこちら
フレッツ光
工事費＆最大２ヶ月無料！
最大50,000円ｷｬｯｼｭﾊﾞｯｸ中
お申し込みは⇒こちら
ランキング
もし宜しかったらポチっと
バーコード
最新記事
広告3
エンタメサイト検索
おもしろ動画や音楽検索
広告4
わたしの事
広告5
★検索生中継[byYicha]
<% Function googleColor(value, random) Dim colorArray colorArray = Split(value, ",") googleColor = colorArray(random Mod (UBound(colorArray) + 1)) End Function Function googleScreenRes() Dim screenRes, delimiter, resArray screenRes = Request.ServerVariables("HTTP_UA_PIXELS") delimiter = "x" If IsEmpty(screenRes) Then screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS") delimiter = "," End If If IsEmpty(screenRes) Then screenRes = Request.ServerVariables("HTTP_X_JPHONE_DISPLAY") delimiter = "*" End If resArray = Split(screenRes, delimiter, 2) If (UBound(resArray) + 1) = 2 Then googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1) End If End Function Function googleMuid() Dim muid muid = Request.ServerVariables("HTTP_X_DCMGUID") If Not IsEmpty(muid) Then googleMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_UP_SUBNO") If Not IsEmpty(muid) Then googleMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_JPHONE_UID") If Not IsEmpty(muid) Then googleMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_EM_UID") If Not IsEmpty(muid) Then googleMuid = "&muid=" & muid End If End Function Function googleViaAndAccept(googleUserAgent) If Len(googleUserAgent) = 0 Then Dim via via = Server.URLEncode(Request.ServerVariables("HTTP_VIA")) If Not IsEmpty(via) Then googleViaAndAccept = "&via=" & via End If Dim accept accept = Server.URLEncode(Request.ServerVariables("HTTP_ACCEPT")) If Not IsEmpty(accept) Then googleViaAndAccept = googleViaAndAccept & "&accept=" & accept End If End If End Function Dim googleTime, googleDt, googleScheme googleTime = DateDiff("s", "01/01/1970 00:00:00", Now()) googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer))) googleScheme = "http://" googleUserAgent = Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) If StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://" Dim googleAdUrl, googleAdOutput googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_ "ad_type=text" &_ "&channel=4167417310" &_ "&client=ca-mb-pub-5520775704866326" &_ "&color_border=" & googleColor("0066CC", googleTime) &_ "&color_bg=" & googleColor("EEEEEE", googleTime) &_ "&color_link=" & googleColor("0000CC", googleTime) &_ "&color_text=" & googleColor("000000", googleTime) &_ "&color_url=" & googleColor("0066CC", googleTime) &_ "&dt=" & googleDt &_ "&format=mobile_double" &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&oe=utf8" &_ "&output=xhtml" &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")) &_ "&useragent=" & googleUserAgent &_ googleScreenRes() &_ googleMuid() &_ googleViaAndAccept(googleUserAgent) Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") googleAdOutput.Open "GET", googleAdUrl, false googleAdOutput.Send Response.Write(googleAdOutput.responseText) %>
リンク元アクセスランキング
ブログ内検索
広告6
忍者アド
お小遣い
アクセス解析
Yahoo ログロール