Set RsMenu = Server.CreateObject("ADODB.RecordSet")
	RsMenu.Open "products", database, 2, 2
	RsMenu.AddNew
	RsMenu("title") = Request.Form("title")
	RsMenu("link") = Request.Form("link")
	RsMenu.Update
	RsMenu.Close
	Set RsMenu= Nothing