<%
'ブラウザセレクター
cln=Request.ServerVariables("HTTP_USER_AGENT")
if instr(cln,"UP￥.Browser") then
ktai=1
Response.Write "From EZWeb"
BROKHTML
end if
if instr(cln,"UPSim") then
ktai=1
Response.Write "From UP.Sim"
BROKHTML
end if
if instr(cln,"KDDI") then
ktai=1
Response.Write "From KDDI"
BROKHTML
end if
if instr(cln,"DoCoMo") then
ktai=1
Response.Write "From i-mode"
BROKHTML
end if
if instr(cln,"J-PHONE") then
ktai=1
Response.Write "From J-Sky"
BROKHTML
end if
if ktai=0 then
Response.Write "From any ["+cln+"]"
BROKHTML
' BRNGHTML
end if
sub BROKHTML
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write "ひまわりフレンズ
"
Response.Write "たのしい出会い
"
Response.Write "
"
Response.Write "
"
Response.Write "初めての方
"
Response.Write "ﾛｸﾞｲﾝ
"
Response.Write "
"
Response.Write "ﾊﾟｽﾜｰﾄﾞを忘れた
"
Response.Write "
"
Response.Write "
"
Response.Write ""
Response.Write ""
end sub
sub BRNGHTML
Response.Write ""
Response.Write ""
Response.Write "警告
"
Response.Write "ご覧のブラウザでは閲覧できません、"
Response.Write "このサイトは携帯電話専用です。
"
Response.Write "ｱｸｾｽを記録しました
"
Response.Write ""
end sub
%>