'Fantasia iMate Script file Created by Xiaxin 2000.1.21
 'Latest Modified at 2000.1.25
 <SCRIPT LANGUAGE="VBScript">
      Sub AddContent(htmlstr,img,links,Title) 
	On Error Resume Next
	set IEStraw=CreateObject("Fantasia")
	if err<>0 then
		MsgBox("IEStraw Fail in get data"+ vbCrLf+"Please reinstall Straw")
	else
		call IEStraw.AddContent(htmlstr,img,links,title)
        end if
      end sub
      
     set parentwin = external.menuArguments
     set doc = parentwin.document
	set imglist = external.menuArguments.document.activeElement.document.images
	img=external.menuArguments.document.Url+vbCrLf
	for i = 0 to imglist.length-1
	  img=img+imglist(i).href+vbCrLf
	next 

	set links = external.menuArguments.document.activeElement.document.links
	for i = 0 to links.length-1
	  str=str+links(i).href+vbCrLf
	next 
	
     	set rgn = doc.selection.createRange()
     	cap = rgn.text
        if len(cap) =0 then
         cap =doc.title
        end if
     Call AddContent(doc.activeElement.innerHTML,img,str,cap)
 </SCRIPT>