<html>
<body>
<%
	function createTable(db,query)
	    dim con
	    on error resume next
	    err.clear
	    set con=server.createObject("adodb.connection")
	    con.open db
	    con.execute query
	    con.close
	    set con=nothing
	    response.write err.description
	end function
	
	function dropTable(db,table)
	    dim con
	    on error resume next
	    err.clear
	    set con=server.createObject("adodb.connection")
	    con.open db
	    
	    con.execute "drop table " & table
	    
	    con.close
	    set con=nothing
	end function
	
	
	dropTable Application("Product"),"test1"
	createTable Application("Product"),"create table test1 (name text(20))"
	
	
	
%>
</body>
</html>
