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

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), "gr.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
wStream.Write "<br>"
wStream.Write "<hr>"
Loop
TextStream.Close
wStream.Write "</html></body>"
wStream.close