Demo of Displaying 10 Random Records

This demo illustrates how to modify the SQL statement to select ten random records. You can refresh this page and you will see ten random FAQs displayed in the DataGrid...

FAQ IDQuestionViews
93How can I quickly determine if a string exists within an array?73272
41How can I delete an existing cookie?82522
76How can I run a stored procedure from ASP using only the ADO connection object?63507
108How can I delete a file from the Web server's file system?63028
38How can I dynamically change the action of a form?92236
214How do I send the information a user enters into a form as an email message?47491
151How can I count the total number of words that appear in a string?88303
20What is recursion?43629
130How can I use regular expressions to help validate that a user-entered value is in a proper format?55747
23What, exactly, is the FileSystemObject?80731

Source Code
<%@ Import Namespace = "System.Data" %>
<%@ Import Namespace = "System.Data.SQLClient" %>
<script language="VB" runat="server">
  Sub Page_Load(sender as Object, e as EventArgs)
  End Sub
  Sub BindData()
    '1. Create a connection
    Dim myConnection as New SqlConnection(ConfigurationSettings.AppSettings("connectionString"))

    '2. Create the command object, passing in the SQL string
    Const strSQL as String = "SELECT TOP 10 FAQID, Description, ViewCount FROM tblFAQ ORDER BY NEWID()"
    Dim myCommand as New SqlCommand(strSQL, myConnection)

    'Set the datagrid's datasource to the datareader and databind
    dgRandOrder.DataSource = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
  End Sub

  <asp:DataGrid runat="server" id="dgRandOrder"
         Font-Name="Verdana" Width="85%"
         Font-Size="11pt" HorizontalAlign="Center">
    <HeaderStyle BackColor="Navy" ForeColor="White" HorizontalAlign="Center"
                 Font-Size="14pt" Font-Bold="True" />
      <asp:BoundColumn DataField="FAQID" HeaderText="FAQ ID" />
      <asp:BoundColumn DataField="Description" HeaderText="Question" />
      <asp:BoundColumn DataField="ViewCount" HeaderText="Views" />

[Return to the article]