See Source Code

Ball Game
Ryan and Alex
at a Baseball game
My baby Brandon, 1 YR
2nd Birthday
Ryan & Alex 3rd birthday
Dad and Brandon
Daddy & Brandon swimming
Ryan and Alex
Just 2 kids having fun

Who is Dennis Day?

All my life people have been asking me if I know who the "real" Dennis Day is. He must've been a great guy because 95% of the people older than me remember him like it was yesterday. For the uninformed, the "real" Dennis Day was an actor and singer who is most known for his performances with Jack Benny. The weirdest thing was when he died on my birthday in 1988.

Not the Dennis Day
you're looking for?

Try these:
Dennis Day
Jack Benny
Criminal Defense

Please link to my site!!

Want me to add a link?
Contact me!

Click on some adds
while you're here!
I get paid a little
so just click away!
Home Pictures Software Media My Links Guests
Thank you for viewing the source code to MySource.aspx. If you see any bugs in this code, please Let me know! I will be happy to correct the problem.

Imports System.IO

Partial Class MySource
  Inherits System.Web.UI.Page

  Private relPath As String = "Source/"

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not Request.QueryString("File") Is Nothing Then
      Call DisplaySource(Request.QueryString("File"))
    End If
  End Sub

  Private Sub DisplaySource(ByVal strSourceFile As String)
    ' Me.ltChar.Text = ""
      Dim path As String = Server.MapPath(relPath) '& "\"
      Me.lblFileName.Text = strSourceFile

      'declaring a FileStream to open the file named file.doc with access mode of reading
      Dim fs As New FileStream(path & strSourceFile, FileMode.Open, FileAccess.Read)
      Dim d As New StreamReader(fs)

      Dim strChat As String = ""
      While d.Peek() > -1
        'peek method of StreamReader object tells how much more data is left in the file
        strChat &= Server.HtmlEncode(d.ReadLine()).Replace(" ", "&nbsp;") & "<br/>" & vbCrLf
      End While


      'displaying text from doc file in the Panel
      Me.ltSource.Controls.Add(New LiteralControl(strChat))
    Catch ex As Exception
      Me.ltSource.Controls.Add(New LiteralControl("An Error has Occurred:<br/><br/> " & ex.Message))
      Call EMailer.SendMail("", "", "Error in MySource.aspx", ex.Message)
    End Try
  End Sub

End Class

Copyright © 1984-2024 Dennis Day
All rights reserved