Find email from LDAP

Imports System.DirectoryServices
Sub GetEmailAddress()
Dim EMailAddress As String = String.Empty
Dim Root As New DirectoryEntry("LDAP://RootDSE")
Dim DomainNC As String = Root.Properties("defaultNamingContext").Value
Root = New DirectoryEntry("LDAP://" & DomainNC)
Dim Searcher As New DirectorySearcher(Root)
With Searcher
.Filter = "(sAMAccountName=" & Environment.UserName & ")"
.SearchScope = SearchScope.Subtree
.PropertiesToLoad.Add("mail")
End With
Dim Result As SearchResult = Searcher.FindOne
If Not Result Is Nothing Then
EMailAddress = Result.GetDirectoryEntry.Properties("mail").Value
End If
txtRequestorName.Text = Environment.UserName.ToString()
txtEmail.Text = EMailAddress
End Sub

Export Crystal report to pdf file without showing report

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Dim daPref As New SqlDataAdapter
Dim dsPref As New DataSet
Dim clsCom As New clsCommon
Dim PDFFilename As String = String.Empty
Dim SqlConn As New SqlConnection
Dim crtableLogoninfos As New CrystalDecisions.Shared.TableLogOnInfos
Dim crtableLogoninfo As New CrystalDecisions.Shared.TableLogOnInfo
Dim crConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo
Dim CrTables As Tables
Dim CrTable As Table
Dim crpReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
'Try
crpReport.Load(Server.MapPath("~") & "\PDFView.rpt")
With crConnectionInfo
.ServerName = System.Configuration.ConfigurationManager.AppSettings("ServerAddress")
.DatabaseName = System.Configuration.ConfigurationManager.AppSettings("ServerDB")
.UserID = System.Configuration.ConfigurationManager.AppSettings("ServerUser")
.Password = System.Configuration.ConfigurationManager.AppSettings("ServerPassword")
End With
CrTables = crpReport.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
CrTable.Location = System.Configuration.ConfigurationManager.AppSettings("ServerDB") & ".dbo." & CrTable.Location.Substring(CrTable.Location.LastIndexOf(".") + 1)
Next
crpReport.SetParameterValue(0, ProjectId)
'CRViewer.ReportSource = crpReport
crpReport.ExportOptions.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
crpReport.ExportOptions.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
PDFFilename = Server.MapPath("~") & "\" & ProjectId & " - Project Request - " & txtProjectTitle.Text.Trim() & ".pdf"
crpReport.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, PDFFilename)

Downloading file from server using Save as dialouge

Dim strRequest As String = Request.QueryString(0) '
If strRequest <> "" Then
Dim path As String = Request.QueryString(0)
Dim file As System.IO.FileInfo = New System.IO.FileInfo(path)
If file.Exists Then
Response.Clear()
Response.AddHeader("Content-Disposition", "attachment; filename=" & file.Name)
Response.AddHeader("Content-Length", file.Length.ToString())
Response.ContentType = "application/octet-stream"
Response.WriteFile(file.FullName)
Response.End()
Else
Response.Write("This file does not exist.")
End If
Else
Response.Write("Please provide a file to download.")
End If