Partial Class GetTextFile Inherits System.Web.UI.Page Dim pFun As New PageFunction Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then If Not pFun.IsUserLoggedIn Then Response.Redirect("Login.aspx") Else Dim dt As New Data.DataTable Dim strViewDate As String = String.Empty Dim dVDate As DateTime = Now Dim strAcctNo As String = String.Empty Dim strTelNo As String = String.Empty Dim strEmail As String = String.Empty Dim strPostDate As String = String.Empty Dim dPostDate As DateTime = Now Dim strRef As String = String.Empty Dim sDelimiter As String = "" Dim delimiter As String = "" Dim sDateFormat As String = "" If Page.Request.Item("delimiter") Is Nothing Then sDelimiter = "tab" Else sDelimiter = Page.Request.Item("delimiter").ToString.ToLower End If If sDelimiter = "comma" Then delimiter = "," ElseIf sDelimiter = "tab" Then delimiter = vbTab Else delimiter = vbTab End If If Page.Request.Item("dateformat") Is Nothing Then sDateFormat = Format(CDate(Date.Now.ToShortDateString), "yyyyMMdd") Else sDateFormat = Page.Request.Item("dateformat").ToString End If dt = CType(Session("dt"), Data.DataTable)
System.Windows.Navigation
Imports System.Windows.Navigation
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)