function myfun1()

Dim MyString, MyArray, st, st1, r, stringNo, stringNoT
st = document.myform1.my9.value
if document.myform1.my9.value="" then
msgbox("Required Keywords!")
else
stringNo="am is are was be been have had would may might can could of on for and"
stringNo1="? [ ] ( ) { } % &"
stringNo=Replace(stringNo," ","##")
stringNo1=Replace(stringNo1," ","##")
stringNoT=Split(stringNo,"##",-1,1)
stringNoT1=Split(stringNo1,"##",-1,1)
r=st
do while i<30
on Error resume next
r = Replace(r,stringNoT(i)&" ", "")
r = Replace(r," "&stringNoT(i), "")
i=i+1
loop 
r=r
do while s<30
on Error resume next
r = Replace(r,stringNoT1(s), "")
s=s+1
loop 

MyArray = Replace(r, " ", "##")
MyString = Split(MyArray, "##", -1, 1)

If MyString(0)="" Then
	document.myform1.my2.value="NULL"
else
	document.myform1.my2.value=MyString(0)
end if
on Error resume next
if MyString(1)="" then
	document.myform1.my3.value="NULL"
else
	document.myform1.my3.value=MyString(1)
end if
on Error resume next
if MyString(2)="" then
	document.myform1.my4.value="NULL"
else
	document.myform1.my4.value=MyString(2)
end if
on Error resume next
if MyString(3)="" then
	document.myform1.my5.value="NULL"
else
	document.myform1.my5.value=MyString(3)
end if
on Error resume next
if MyString(4)="" then
	document.myform1.my6.value="NULL"
else
	document.myform1.my6.value=MyString(4)
end if
on Error resume next
if MyString(5)="" then
	document.myform1.my7.value="NULL"
else
	document.myform1.my7.value=MyString(5)
end if
document.myform1.my1.value=r
document.myform1.action="img_search.asp"
document.myform1.submit()
end if
end function