<script runat=server>
 
        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            RandomFactNumber()
            RandomFact()
 
        End Sub
 
  Sub RandomFactNumber()
 
 
            strSQL = "SELECT ID FROM tFact"
 
        Dim objDataReader as OledbDataReader
 
 
        DBconnect()
 
        objConnection.Open()
        objDataReader  = objCommand.ExecuteReader()
 
 
        Dim iRecordNumber = 0
        do while objDataReader.Read()=True
            iRecordNumber += 1
        loop
 
        objDataReader.Close()
        objConnection.Close()
 
 
        Randomize()
        do
            iRandomFact = (Int(RND() * iRecordNumber))
        loop until iRandomFact <> 0
 
 
  End Sub
 
 
 
 
  Sub RandomFact()
 
            strSQL = "SELECT ID, vFact FROM tFact as @ID, @vFact"
 
         Dim objDataReader as OledbDataReader
 
 
        DBconnect()
 
        objConnection.Open()
        objDataReader  = objCommand.ExecuteReader()
 
        Dim i = 0
 
 
        do while i<>iRandomFact
            objDataReader.Read()
            i += 1
        loop
 
 
 
 
 
            Label1.Text = objDataReader("@ID")
            Label2.Text = objDataReader("@vFact")
 
 
        objDataReader.Close()
        objConnection.Close()
 
  End Sub
 
 
 
 
 Sub DBconnect()
 
     objConnection = New OledbConnection(strConnection)
     objCommand = New OledbCommand(strSQL, objConnection)
 
 End Sub
 
 
 
    Public strDBLocation = DB_Path()
    Public strConnection as string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBLocation
    Public objConnection
    Public objCommand
    Public strSQL as string
    Public strRatingimg as Integer
    Public iRandomFact as integer
 
 
    Function DB_Path()
 
            If InStr(Context.Request.ServerVariables("PATH_TRANSLATED"), "tFact") Then
                DB_Path = System.Web.HttpContext.Current.Server.MapPath("App_Data\QEI.mdb")
            Else
                DB_Path = System.Web.HttpContext.Current.Server.MapPath("App_Data\QEI.mdb")
            End If
 
    End Function
 
    </script>