Dim sb1 As New System.Text.StringBuilder
        sb1.Append("<script type='text/javascript' language='javascript'>")
        sb1.Append("window.open('../reports/Receipt.aspx?receiptno=" & Me.txtReceiptNo.Text.Trim & "&payorno=" & Me.txtPHospitalNo.Text.Trim & "&payorname=" & Me.txtPName.Text.Trim.Replace("'", """") & "&totalamount=" & amt & "&inwords=" & inwords & "&paytype=" & ddlPaymentType.SelectedItem.Text & "&payref=" & txtRef.Text.Trim & "&user=" & ViewState("username") & "&type=2&datecollected='" & datecollected & "'&company=" & company & "&roleid=" & ViewState("RoleId") & "&isRefund=false")
        sb1.Append("','EncounterForm','toolbar=no,menubar=no,location=no');")
        sb1.Append("</script>")

        ScriptManager.RegisterStartupScript(Page, Me.GetType, "test", sb1.ToString, False)