How to select and write records from a GridView

[tsubasa]

I am working on a wish list where users add products to their list for future purhcases. I am using a GridView to display the records by users after they have login to the shopping cart. How can I program a method so that a user can select items from the wish list and have them placed in the shopping cart?

See Attachment!

Thank you!

[tsubasa]

I have a gridview that I am using as a wishlist, but I want to have the functionality of allowing users to add their items from their wishlist to their respective shopping cart. I have programmed the user login to pull up the respective user's wishlist and I have programmed a button to remove unwanted items. How can I program a checkbox that can be selected by the user, then have the user click on the CheckOut button to copy those items and the associated information to the shopping cart?

See Code Below

<%@ Page MasterPageFile="eCommerce.master" Language="vb" Debug="True"%>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Drawing" %>
 
<SCRIPT Runat="Server">
 
Sub Page_Load
 
  If Session("LoggedIn") <> True Then
  Response.Redirect("Loginwl.aspx")
  End If
 
  If Not Page.IsPostBack Then
    Dim User As String
    TheAccountLabel.Text = Session("LoginName")
  End If
 
End Sub
 
Sub Get_Rows (Src As Object, Args As SqlDataSourceStatusEventArgs)
 
  If Args.AffectedRows = 0 Then
    NoItemsMessage.Visible = True
  End If
 
End Sub
 
 
Sub Submit_Form (Src As Object, Args As EventArgs)
 
  Dim OrderTotal As Label = ShopCartGrid.FooterRow.FindControl("OrderTotal")
  Session("OrderTotal") = OrderTotal.Text
  Response.Redirect("SubmitForm.aspx")
 
End Sub
 
</SCRIPT>
 
<asp:Content id="WishList" ContentPlaceHolderID="CONTENT" Runat="Server">
 
<asp:Label Text="Wish List for" Font-Size="14pt" ForeColor="#990000" 
Runat="Server"/><br/>
<br/>
<table border="0">
<tr>
  <td><asp:Label id="TheAccountLabel" Runat="Server"/></td>
</tr>
</table>
 
<asp:Label id="NoItemsMessage" Runat="Server"
  Text="Zero Items!" EnableViewState="False" Visible="False"
  Width="180" Height="40" BackColor="#E0E0E0" ForeColor="#990000"
  BorderStyle="Solid" BorderWidth="1" BorderColor="#C0C0C0" 
  Style="margin-top:10px; padding:15px"/>
 
<asp:Panel Width="550" Runat="Server"
ForeColor="#990000" HorizontalAlign="Right">
  <asp:Label id="ErrMessage" Text=" " EnableViewState="False" Runat="Server"/>
</asp:Panel>
 
<asp:AccessDataSource id="ShopCartSource" Runat="Server"
  DataFile="/Databases/BooksDB.mdb"
  OnSelected="Get_Rows"
 
  SelectCommand="SELECT * FROM WishList WHERE TheAccount = TheAccountLabel ORDER BY BookId"
 
    DeleteCommand="DELETE FROM WishList
                 WHERE TheAccount=@TheAccount AND BookID=@BookID"
>
  <SelectParameters>
    <asp:ControlParameter Name="TheAccount" ControlId="TheAccountLabel"
    PropertyName="Text"/>
  </SelectParameters>
  <DeleteParameters>
    <asp:ControlParameter Name="TheAccount" ControlId="TheAccountLabel"
    PropertyName="Text"/>
  </DeleteParameters>
 
</asp:AccessDataSource>
 
<asp:GridView id="ShopCartGrid" DataSourceID="ShopCartSource" Runat="Server"
  AutoGenerateColumns="False"
  DataKeyNames="TheAccount, BookID"
  Cellpadding="3"
  ShowFooter="True"
  HeaderStyle-BackColor="#990000"
  HeaderStyle-ForeColor="#FFFFFF"
  EditRowStyle-BackColor="#E0E0E0">
 
   <Columns>
 
  <asp:TemplateField
    ItemStyle-Width="50">
    <ItemTemplate>
      <asp:CheckBox UnChecked='<%# Eval("id") %>' Runat="Server"/>
    </ItemTemplate>
  </asp:TemplateField>
 
  <asp:TemplateField
    HeaderText="ID"
    ItemStyle-Width="50">
    <ItemTemplate>
      <asp:Label Runat="Server"
        Text='<%# Eval("BookID") %>'/>
    </ItemTemplate>
  </asp:TemplateField>
 
  <asp:TemplateField
    HeaderText="Title"
    ItemStyle-Width="350">
    <ItemTemplate>
      <asp:Label Runat="Server"
        Text='<%# Eval("BookTitle") %>'/>
    </ItemTemplate>
 </asp:TemplateField>
 
 <asp:TemplateField
    HeaderText="Price"
    ItemStyle-HorizontalAlign="Right"
    ItemStyle-Width="60">
    <ItemTemplate>
      <asp:Label Runat="Server"
        Text='<%# String.Format("{0:N}", Eval("BookPrice")) %>'/>
    </ItemTemplate>
 </asp:TemplateField>
 
<asp:TemplateField
    HeaderText="Ui"
    ItemStyle-Width="60">
    <ItemTemplate>
      <asp:Label Runat="Server"
        Text='<%# Eval("ui") %>'/>
    </ItemTemplate>
    <ItemTemplate>
      <asp:Label Runat="Server"
        Text='<%# Eval("Ui") %>'
        Width="25" Font-Size="9pt" Style="text-align:right"/>
    </ItemTemplate>    
  </asp:TemplateField>
 
  <asp:TemplateField
    HeaderText="Edit"
    ItemStyle-Width="175"
    FooterStyle-BackColor="#E0E0E0">
    <ItemTemplate>
      <asp:Button Text="Remove" CommandName="Delete" Runat="Server"
        Font-Size="10pt" Width="75"/>
    </ItemTemplate>
    <FooterTemplate>
      <asp:Button Text="Checkout »" OnClick="Submit_Form" Runat="Server"
        Font-Size="10pt" Width="75" Style="margin-top:5px"/>
    </FooterTemplate>
  </asp:TemplateField>
 
 </Columns>
</asp:GridView>
 
</asp:Content>

[Frinavale]

Hi Tsubasa,

I think I've come across your question before but because I didn't know what you were using as a "Shopping Cart" I didn't know what a good starting point for answering your question would be.

Now that you've posted your code it's a Little more clear as to what you're trying to do but I still don't see a shopping cart.

What is your "Shopping Cart"?
Is it an Object stored in session?
Is it a table in a database?
Is it something else??
Do you even have a shopping cart?

Anyways, the first thing I'm going to suggest is adding a ID for the checkbox so that you can locate it using the FindControl method.

Then when the user clicks the "checkout" button, loop through all of the rows in the GridView and check if the checkbox is checked....if so, do whatever you need to do to add the item to this "shopping cart".

-Frinny

[Frinavale]

I did run across this question before.
I've merged the questions together.

-Frinny

[tsubasa]

Hello Frinny!

Thank you for responding. Yes, I am using a table called "ShopCart" in MS. Access as my shopping cart. I am using an ID in the table for each row, if you look just after the Column you will see this code:

<asp:TemplateField 
    ItemStyle-Width="50"> 
    <ItemTemplate> 
      <asp:CheckBox UnChecked='<%# Eval("id") %>' Runat="Server"/> 
    </ItemTemplate> 
  </asp:TemplateField> 

Here is where I have associated the ID in the WishList table. Is this correct so far?

-Gabe

[Frinavale]

This code doesn't make sense.

First of all a ASP.NET CheckBox does not have an UnChecked property so I'm not really sure what you're doing here.

Secondly, you should be using a static ID for the CheckBox because you will want to know the ID you used so that you can use it to retrieve the CheckBox from the GridViewRow using the GridView's FindControl method....

That way you can loop through all of the rows in your GridView, use the FindControl method to retrieve the CheckBox (via it's ID) and determine whether or not it has been checked.

If so, do the logic to remove the item from the wishlist and add the item to the shopping cart (which requires you updating both tables).

-Frinny

[tsubasa]

Ok, I have removed the code and have written it this way:

 <asp:CheckBoxField
    HeaderText="ID"
    DataField="ID"
    ItemStyle-HorizontalAlign="Center"/>

Will this work with a FindControl loop?

-Gabe

[tsubasa]

Here is what I have changed, since I want the records to come from a dynamic source or column such as ID.

<asp:TemplateField HeaderText="ID" InsertVisible="False">
      <ItemTemplate>
         <asp:CheckBox ID="id" runat="server" Text='<%# Eval("id") %>' />
       </ItemTemplate>
    </asp:TemplateField>

Then what I have done is used the following code to loop through the selected checkboxes.

Sub Submit_Form (Src As Object, Args As EventArgs)
 
Dim Grd As String = "GridView Items Checked:<br />"
For Each gvr As GridViewRow In ShopCartGrid.Rows
  Dim chk As CheckBox = DirectCast(gvr.FindControl("id"), CheckBox)
  If chk.Checked Then
    Grd += (chk.Text + "<br />")
  End If
Next
GrdLiteral.Text = Grd
 
 
End Sub

I added this at the bottom of my page to view my data

<asp:Label id="GrdLiteral" Runat="Server"  ForeColor="#0000FF"/>

And here is what I have come up with when I select a few records:

GridView Items Checked:
4
3
2

So I think that from here I need to write the code so that the selected records can be inserted into the ShopCart table. I will work on this next.

-Gabe

[Frinavale]

Sounds like you got it to work!
Congrats :)

-Frinny

[tsubasa]

LOL...OK, I need your help. How can I also pull the associated information, then insert them into another table. Thanks!

-Gabe

I got stuck!

[Frinavale]

In your submit_form method, when your're the CheckBox.Checked value....

If the CheckBox is checked then you know that that GridViewRow has been selected by the user.

You need to retrieve the data you need from the GridViewRow and then "do stuff" with it to add it to the shopping cart. (By "do stuff" I mean retrieve data for the item from the database if you need to...or update the shopping cart table...or whatever you need to do to add the item to your shopping cart..and perhaps remove it from the wish list).

I'm not sure what you're using as the DataSource for your wish list (you may have said something) but it is probably easier to grab this information from the DataSource based on the "ID" of the row that is checked rather than trying to extract the data from the GridViewRow itself...either way will work but I just find it easier to use the data source.


So, for example...

Sub Submit_Form (Src As Object, Args As EventArgs)
 
Dim Grd As String = "GridView Items Checked:<br />"
For Each gvr As GridViewRow In ShopCartGrid.Rows
  Dim chk As CheckBox = DirectCast(gvr.FindControl("id"), CheckBox)
  If chk.Checked Then
    'Grd += (chk.Text + "<br />")
 
    'Here, retrieve the ID of the item...hopefully you have an ID...
    'say your the ID of your item is stored in the last cell in the GridView
    'you would retrieve it like:
   Dim itemID As Integer
   Integer.TryParse(gvr.Cells(gvr.Cells.Count - 1).Text, itemID)
 
    'Now that you know the ItemID you can do Stuff
 
    'If you need more than just the ItemID you can use the same
    'method to retrieve information from the GridViewRow...the thing is
    'that you need to know what cell that the information exists in.
 
   'That is why I recommend using the DataSource for the GridView instead
   'Because if you're using the DataSource (and it's a table) then you can
   'more easily access the data (because you can use column names).
   'For example, your data source was a DataTable stored in a variable
   'named _theWishListDataSource:
 
   'Grabbing the rows in the data source with the ItemID:
   Dim selectedRows() As DataRow = _
        _theWishListDataSource.Select('ID='" + itemID.ToString + "'")
   If selectedRows IsNot Nothing AndAlso selectedRows.Count >0 Then
     Dim theDataRow As DataRow = selectedRows(0)
     Dim moreInfo As String =  theDataRow.Item("columnName")
    '......
   End If
 
  End If
Next
End Sub

Hope this makes sense.

-Frinny

[tsubasa]

Hi Frinny!

Let me give this a try and see what I can do. I will get back to you later, ok. Also, my reply might be a little late because of the upcoming holiday. As always, much thanks!

-Tsu

[tsubasa]

Hi Frinny!

I worked out the code, but my management has changed their mind on how they would like the functions presented in the wishlist. They would rather that I have a link that will present the item along with details. This I have managed to workout. As for the checkboxes, I would like to code a checkall to place a checkmark in all of the items listed, then I would like to click on the CheckOut button to place a copy of these items in a table called ShopCart. The ShopCart table has the same fields as the WishList.

-Tsu

<%@ Page MasterPageFile="eCommerce.master" Language="vb" Debug="True"%>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Drawing" %>
 
<SCRIPT Runat="Server">
 
Sub Page_Load
 
  If Session("LoggedIn") <> True Then
  Response.Redirect("Loginwl.aspx")
  End If
 
  If Not Page.IsPostBack Then
    Dim User As String
    TheAccountLabel.Text = Session("LoginName")
  End If
 
End Sub
 
Sub Get_Rows (Src As Object, Args As SqlDataSourceStatusEventArgs)
 
  If Args.AffectedRows = 0 Then
    NoItemsMessage.Visible = True
  End If
 
End Sub
 
Sub View_Details (Src As Object, Args As CommandEventArgs)
 
  Response.Redirect("Details.aspx?BookID=" & Args.CommandName)
 
End Sub
 
 
Sub Submit_Form (Src As Object, Args As EventArgs)
 
Dim Grd As String
For Each gvr As GridViewRow In ShopCartGrid.Rows
  Dim chk As CheckBox = DirectCast(gvr.FindControl("id"), CheckBox)
  If chk.Checked Then
    Grd += (chk.Text + "<br />")
  End If
Next
GrdLiteral.Text = Grd
 
End Sub
 
</SCRIPT>
 
<asp:Content id="WishList" ContentPlaceHolderID="CONTENT" Runat="Server">
 
<asp:Label Text="Wish List for" Font-Size="14pt" ForeColor="#990000" 
Runat="Server"/>
<br/>
<table border="0">
<tr>
  <td><asp:Label id="TheAccountLabel" Font-Size="12pt" ForeColor="#990000" Runat="Server"/></td>
</tr>
</table>
 
<asp:Label id="NoItemsMessage" Runat="Server"
  Text="Zero Items!" EnableViewState="False" Visible="False"
  Width="180" Height="40" BackColor="#E0E0E0" ForeColor="#990000"
  BorderStyle="Solid" BorderWidth="1" BorderColor="#C0C0C0" 
  Style="margin-top:10px; padding:15px"/>
 
<asp:Panel Width="550" Runat="Server"
ForeColor="#990000" HorizontalAlign="Right">
  <asp:Label id="ErrMessage" Text=" " EnableViewState="False" Runat="Server"/>
</asp:Panel>
 
<asp:AccessDataSource id="ShopCartSource" Runat="Server"
  DataFile="/Databases/BooksDB.mdb"
  OnSelected="Get_Rows"
 
  SelectCommand="SELECT * FROM WishList WHERE TheAccount = TheAccountLabel ORDER BY BookId"
 
    DeleteCommand="DELETE FROM WishList
                 WHERE TheAccount=@TheAccount AND BookID=@BookID"
>
  <SelectParameters>
    <asp:ControlParameter Name="TheAccount" ControlId="TheAccountLabel"
    PropertyName="Text"/>
  </SelectParameters>
  <DeleteParameters>
    <asp:ControlParameter Name="TheAccount" ControlId="TheAccountLabel"
    PropertyName="Text"/>
  </DeleteParameters>
 
</asp:AccessDataSource>
 
<asp:GridView id="ShopCartGrid" DataSourceID="ShopCartSource" Runat="Server"
  AutoGenerateColumns="False"
  DataKeyNames="TheAccount, BookID"
  Cellpadding="3"
  ShowFooter="True"
  HeaderStyle-BackColor="#990000"
  HeaderStyle-ForeColor="#FFFFFF"
  EditRowStyle-BackColor="#E0E0E0">
 
   <Columns>
 
  <asp:TemplateField
    HeaderText="BookID"
    ItemStyle-Width="50">
    <ItemTemplate>
      <asp:Label Runat="Server"
        Text='<%# Eval("BookID") %>'/>
    </ItemTemplate>
  </asp:TemplateField>
 
  <asp:TemplateField
    HeaderText="Title"
    ItemStyle-Width="350">
    <ItemTemplate>
      <asp:Label Runat="Server"
        Text='<%# Eval("BookTitle") %>'/>
    </ItemTemplate>
 </asp:TemplateField>
 
 <asp:TemplateField
    HeaderText="Price"
    ItemStyle-HorizontalAlign="Right"
    ItemStyle-Width="60">
    <ItemTemplate>
      <asp:Label Runat="Server"
        Text='<%# String.Format("{0:N}", Eval("BookPrice")) %>'/>
    </ItemTemplate>
 </asp:TemplateField>
 
<asp:TemplateField
    HeaderText="Ui"
    ItemStyle-Width="60">
    <ItemTemplate>
      <asp:Label Runat="Server"
        Text='<%# Eval("ui") %>'/>
    </ItemTemplate>
    <ItemTemplate>
      <asp:Label Runat="Server"
        Text='<%# Eval("Ui") %>'
        Width="25" Font-Size="9pt" Style="text-align:right"/>
    </ItemTemplate>    
  </asp:TemplateField>
 
  <asp:TemplateField
    HeaderText="Check All">
    <ItemTemplate>
      <asp:CheckBox ID="id" Runat="Server"/>
    </ItemTemplate>
 </asp:TemplateField>
 
  <asp:TemplateField
    ItemStyle-Width="120"
    FooterStyle-BackColor="#E0E0E0">
    <ItemTemplate>
      <asp:Button Text="Remove" CommandName="Delete" Runat="Server"
        Font-Size="10pt" Width="75"/>
      <asp:LinkButton Text="Details" Runat="Server"
        OnCommand="View_Details"
        CommandName='<%# Eval("BookID") %>'/>
    </ItemTemplate>
    <FooterTemplate>
      <asp:Button Text="Checkout »" OnClick="Submit_Form" Runat="Server"
        Font-Size="10pt" Width="75" Style="margin-top:5px"/>
    </FooterTemplate>
  </asp:TemplateField>
 
 </Columns>
</asp:GridView>
 
<asp:Label id="GrdLiteral" Runat="Server"
 
  ForeColor="#0000FF"/>
 
 
</asp:Content>

-Tsu

[Frinavale]

I would write the "check all checkboxes" function using JavaScript.

You'll have to place a checkbox in the Header of the "checkbox column" to let the user "select/unselect all checkboxes".

You'll have to write a JavaScript method that will "check" all of the checkboxes.

Then in your GridView's RowDataBound event you will have to indicate that the JavaScript method should be called when the "select/unselect all" checkbox is clicked.

For example:

    Protected Sub MyGridView_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles MyGridView.RowDataBound
 
  If e.Row.RowType = DataControlRowType.Header Then
    Dim checkAllCkbxs As CheckBox = Ctype(e.Row.FindControl("checkAllCheckbox"), CheckBox)
    If checkAllCkbxs IsNot Nothing
      checkAllCkbxs.Attributes.Add("onclick","checkAllCheckBoxes(this,'"+MyGridView.ClientID+"');")
    End If
  End If
End Sub
 

The JavaScript function "checkAllCheckBoxes" is passed 2 parameters: "this" which refers to the checkbox element, and the ClientID of the GridView.

The JavaScript function will have to get a reference to the GridView (which is an HTML table client side), loop through all of the rows check/uncheck the check boxes in the GridView/Table depending on whether or not the "check All" checkbox was checked.

The following JavaScript code is not guaranteed to work but is meant to be a guideline to help you:

function checkAllCheckBoxes(checkAllCheckBoxElement, gridViewClientID)
  var gridViewElement = document.getElementById(gridViewClientID);
  var checked = checkAllCheckBoxElement.checked;
 
  if(gridViewElement.rows.length > 0){
    for(i = 0; i < gridViewElement.rows.length; i++)
    {
      cell = gridViewElement.rows[i].cells[0]; //<--the cell the checkbox is in
      for(j = 0; j < cell.childNotes.length; j++)
      { //looping through the childNodes of the cell looking for the checkbox
        if(cell.childNodes[j].type == "checkbox"){
          cell.childNodes[j].checked = checked;
        }
    }
  }

-Frinny

[tsubasa]

Thanks Frinny! I will work on this.

-Tsu

[tsubasa]

Hello Frinny!

I have managed to work out the checkall and uncheck all script. See below:

Private Sub ToggleCheckState(ByVal checkState As Boolean)
    ' Iterate through the ShopCartGrid.Rows property
    For Each row As GridViewRow In ShopCartGrid.Rows
        ' Access the CheckBox
        Dim cb As CheckBox = row.FindControl("id")
        If cb IsNot Nothing Then
            cb.Checked = checkState
        End If
    Next
End Sub
 
 
Protected Sub CheckAll_Click(sender As Object, e As EventArgs) _
    Handles CheckAll.Click
 
    ToggleCheckState(True)
End Sub
 
Protected Sub UncheckAll_Click(sender As Object, e As EventArgs) _
    Handles UncheckAll.Click
 
    ToggleCheckState(False)
End Sub

And as we have converse in our previous postings. I have managed to write the BookID that are selected manually or with the checkall. What I need help in is trying to figure out how I can write the BookID, BookTitle, BookPrice, Ui from the records selected in the GridView to a another table called ShopCart with the same fields "BookID, BookTitle, BookPrice, Ui.

-Tsu

[tsubasa]

Hi Frin!

I have been looking over the code and I want to try and figure this out on my own. I will get back with you brother if I can't make it happen.

-Tsu

[Frinavale]

:) I think that you should have enough knowledge to get this one.
Let me know if you get stuck on anything specific :)

-Frinny

[tsubasa]

Hi Frinny!

Sorry to bug you brother, but I got stuck. If you can, show me how you would insert the selected checkbox records and the associated datat into another table with the same fields called ShopCart. Thanks!

-Tsu

[Frinavale]

It's pretty much the same thing as post number 11 in this thread.

Loop through all of the rows in your GridView and for the ones that are checked implement code that retrieves data from that row and moves/merges it into the other table.

What do you have so far for this moving process?

-Frinny

[tsubasa]

This is what I have so far, but when I attempt this I automatically get this error. "Object reference not set to an instance of an object"

Sub Submit_Form (Src As Object, Args As EventArgs)
 
Dim Grd As String
For Each gvr As GridViewRow In ShopCartGrid.Rows
  Dim chk As CheckBox = DirectCast(gvr.FindControl("id"), CheckBox)
  If chk.Checked Then
    Grd = (chk.Text)
  End If
 
  Dim FVBookID As Label = FormViewDisplay.FindControl("BookID")
  Dim FVBookTitle As Label = FormViewDisplay.FindControl("BookTitle")
  Dim DBConnection As OleDbConnection
  Dim DBCommand As OleDbCommand
  Dim SQLString As String
  Dim SQLAddString As String
 
  DBConnection = New OleDbConnection( _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.MapPath("/Databases/BooksDB.mdb"))
  DBConnection.Open()
 
'-----------Check for Duplicate records first --------------------
  SQLString = "SELECT Count(*) FROM ShopCart " & _
              "WHERE OrderNumber = '" & Session("OrderNumber") & "' " & _
              "AND BookID = '" & FVBookID.Text & "'"
  DBCommand = New OleDbCommand(SQLString, DBConnection)
  If DBCommand.ExecuteScalar() = 0 Then
'--------------Add Records to Shopcart table ----------------------
 
     SQLAddString = "INSERT INTO ShopCart (OrderDate, BookID, BookTitle) WHERE BookID = 'Grd' VALUES (Today, FVBookID.Text, FVBookTitle.Text)"
    DBCommand = New OleDbCommand(SQLAddString, DBConnection)
    DBCommand.ExecuteNonQuery()
 
 
  End If
Next
DBConnection.Close()
 
End Sub

If you can help me solve, I would really appreciate it. Thanks Frinny!

-Tsu

[Frinavale]

Somewhere you are attempting to use something that has not been instantiated yet. You get a null reference exception ("Object reference not set to an instance of an object") when you try to use something that does not exist. Make sure that your objects have been instantiated (using the keyword "new" to instantiate them). If your objects are being instantiated by some other code, make sure that they exist by testing if they are nothing before you try to use them.

Here's an example of checking if an object has been instantiated in VB.NET:

If myObject IsNot Nothing Then
  'then the object exists.
Else
 'then the object does not exist.
End If
 

Or you could use:

If myObject Is Nothing Then
 'then the object does not exist.
Else
  'then the object exists.
End If
 

In your case, make sure that anything retrieved from the database exists before you attempt to use it.

-Frinny