<%
	function executeUpdate(query)
		dim con
		err.clear
		on error resume next
		set con=server.createObject("adodb.connection")
		con.open Application("Product")
		'con.open "product1"

		con.execute query

		con.close
		set con=nothing
		response.write err.description
    end function

%>
<html>
<body>
OK
</body>
</html>