or
window.radopen(temp.aspx,
"radwinSearchAddress");
to open the radwindow.
I would very appriciate if you could answer this for me.
Thanks,
Deepa


Protected Sub btnCreateRates_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCreateRates.Click If txtCards.Text = Nothing Then MsgBox("Please type number of cards, in order to continue.", MsgBoxStyle.OkOnly, "ERROR") Exit Sub Else 'Confirmation() dtValues = DirectCast(Session("tblPendingOrders"), DataTable) ' retrieve DataTable from session Dim drValues As DataRow = dtValues.NewRow() GridID = grdData.MasterTableView.Items.Count + 1 drValues("ID") = GridID drValues("Address1") = txtAddress1.Text drValues("Address2") = txtAddress2.Text drValues("Address3") = txtAddress3.Text drValues("Cards") = txtCards.Value drValues("CardType") = "Virtual" drValues("CareOf") = txtCareOf.Text drValues("Charge") = txtCards.Value * GetCharge() drValues("City") = txtCity.Text drValues("Country") = txtCountry.Text drValues("MasterOf") = cbVessels.SelectedItem.Text drValues("Notes") = txtNotes.Text drValues("OrderRef") = txtOrderRef.Text drValues("Owning") = txtOwning.Text drValues("Price") = GetCharge() drValues("Provider") = cbProviders.SelectedItem.Text drValues("Units") = cbUnits.SelectedItem.Text drValues("Vessel") = cbVessels.SelectedItem.Text drValues("VesselID") = cbVessels.SelectedValue drValues("ZipCode") = txtZipCode.Text dtValues.Rows.Add(drValues) dtValues.AcceptChanges() Session("tblPendingOrders") = dtValues 'store DataTable in session grdData.Rebind() grdData.MasterTableView.IsItemInserted = False grdData.MasterTableView.Rebind() lblPendingOrders.Text = "Pending CCC Orders: " & grdData.MasterTableView.Items.Count End IfEnd SubProtected Sub grdData_ItemDeleted(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridDeletedEventArgs) Handles grdData.ItemDeleted Dim item As GridDataItem = DirectCast(e.Item, GridDataItem) Dim id As String = item.GetDataKeyValue("ID").ToString() If Not e.Exception Is Nothing Then e.ExceptionHandled = True SetMessage("Product with ID " + id + " cannot be deleted. Reason: " + e.Exception.Message) Else SetMessage("Product with ID " + id + " is deleted!") End IfEnd SubPrivate Sub SetMessage(ByVal message As String) gridMessage = messageEnd SubProtected Sub grdData_NeedDataSource(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles grdData.NeedDataSource dtValues = New DataTable() dtValues.Columns.Add("ID") dtValues.Columns.Add("CardType") dtValues.Columns.Add("Provider") dtValues.Columns.Add("Vessel") dtValues.Columns.Add("VesselID") dtValues.Columns.Add("Units") dtValues.Columns.Add("Cards") dtValues.Columns.Add("Price") dtValues.Columns.Add("Charge") dtValues.Columns.Add("Address1") dtValues.Columns.Add("Address2") dtValues.Columns.Add("Address3") dtValues.Columns.Add("CareOf") dtValues.Columns.Add("City") dtValues.Columns.Add("Country") dtValues.Columns.Add("MasterOf") dtValues.Columns.Add("Notes") dtValues.Columns.Add("OrderRef") dtValues.Columns.Add("Owning") dtValues.Columns.Add("ZipCode") If Session("tblPendingOrders") IsNot Nothing Then ' retrieve DataTable from session dtValues = DirectCast(Session("tblPendingOrders"), DataTable) End If grdData.DataSource = dtValues Session("tblPendingOrders") = dtValuesEnd SubProtected Sub grdData_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles grdData.ItemDataBound If TypeOf e.Item Is GridHeaderItem Then Dim header As GridHeaderItem = DirectCast(e.Item, GridHeaderItem) End If If TypeOf e.Item Is GridDataItem Then Dim dataItem As GridDataItem = CType(e.Item, GridDataItem) Price += dataItem("Price").Text Charge += dataItem("Charge").Text Cards += dataItem("Cards").Text End If If (TypeOf e.Item Is GridFooterItem) Then Dim footerItem As GridFooterItem = CType(e.Item, GridFooterItem) footerItem("Price").Text = Price footerItem("Charge").Text = Charge footerItem("Cards").Text = Cards footerItem("Provider").Controls.Add(New LiteralControl("<span style='color: Black; font-weight: bold;'>Totals:</span> ")) End IfEnd Sub