sub PrintPreviewDialogCall(productId,categoryId,ProductName)
   dim emailValue1
   
  
   emailValue1=window.showModalDialog("PrintPreview.asp?ProductId=" & productId,null,"dialogWidth:694px;dialogHeight:600px;status:no;help:no;")
     
end sub