株式会社メッセサンオー避難所

if 0 < InStr(1, a(2), "Yahoo", 1) Then
pm = Split(a(2), "@")
wStream.Write "　　　　　　　　　<a href=""http://photos.yahoo.co.jp/" & pm(0) & """>yahoo photos </a>"
End If
if 0 < InStr(1, a(2), "lycos", 1) Then
pm = Split(a(2), "@")
wStream.Write "　　　　　　　　　<a href=""http://profile.lycos.co.jp/pView.asp?member=" & pm(0) & """>lycos profile </a>"
End If
if 0 < InStr(1, a(2), "hotmail", 1) Then
pm = Split(a(2), "")
wStream.Write "　　　　　　　　　<a href=""http://members.msn.com/?pgmarket=ja-jp&mem=" & pm(0) & """>msn members </a>"
End If
if 0 < InStr(1, a(2), "goo", 1) Then
pm = Split(a(2), "@")
wStream.Write "　　　　　　　　　<a href=""http://members.goo.ne.jp/home/" & pm(0) & """>goo members </a>"
End If
if 0 < InStr(1, a(2), "ac.jp", 1) Then
pm = Split(a(2), "")
wStream.Write "　　　　　　　　　<a href=""http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q=" & pm(0) & """>大学系教育機関 </a>"
End If
if 0 < InStr(1, a(2), "ed.jp", 1) Then
pm = Split(a(2), "")
wStream.Write "　　　　　　　　　<a href=""http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q=" & pm(0) & """>小・中・高 </a>"
End If
if 0 < InStr(1, a(2), "go.jp", 1) Then
pm = Split(a(2), "")