<SCRIPT LANGUAGE="VBSCRIPT" defer>
set conn2 = CreateObject("Systran.IEConfigure")
conn2.ClearTempDir
set parentwin = external.menuArguments
set doc = parentwin.document
set path = doc.location
set conn = CreateObject("Systran.IETranslate")
rem // don't really know why this has to be done, but for some reason
rem // IE5 won't let you open a dialog of your own without first opening
rem // a modal dialog first
version = LCase(parent.navigator.appVersion)
ver_number = InStr(1,version,"msie 4")
if ver_number = 0 then
parent.showModalDialog(conn.GetRegistry("Default Page"))
end if
parentwin.status = conn.GetString(2202)
conn.MimeType = "text/html"
savedfile = conn.TranslateDoc(path)
window.open savedfile
parentwin.status = ""
</script>

Rispondi quotando