sub EmailFriendDialogCall(productId,categoryId,ProductName)
   dim emailValue
   dim objMessage
   dim arrayEmail
   dim BodyText
   dim objConf
   dim objFields
  
   emailValue=window.showModalDialog("EmailFriend.asp?ProductId=" & productId,null,"dialogWidth:694px;dialogHeight:600px;status:no;help:no;")
   
   if(emailValue <> "")then
      document.frmSendEmail.hdnEmailValues.value = emailValue
	  document.frmSendEmail.submit
   end if
end sub