Creating A CSV File But Can't Read It.

Hi, I wrote a report builder that creates a CSV file but I can't redirect to the file to view it. ERROR Cannot find the Server!. This works fine on the dev machine but deploy it and it does not.





Dim Conn As New SqlConnection(ConfigurationSettings.AppSettings("ConStr"))


Dim Cm As SqlCommand


Dim dr As SqlDataReader


Dim FileName As String = Guid.NewGuid.ToString & ".csv"


Dim FilePath As String = Server.MapPath("") & "CSVFiles" & FileName





Dim fs As FileStream = New FileStream(FilePath, FileMode.Create, FileAccess.Write)


Dim sw As StreamWriter = New StreamWriter(fs)


Dim Line As String


Dim lItem As System.Xml.XmlElement


Dim i As Int16


If ValidatePage() Then


Cm = New SqlCommand(BuildQuery, Conn)


Conn.Open()


dr = Cm.ExecuteReader()





Dim lXmlDoc As New System.Xml.XmlDocument()


lXmlDoc.LoadXml(txtHXml.InnerText)





For Each lItem In lXmlDoc.DocumentElement.SelectSingleNode("SELECT").ChildNodes


Select Case lItem.InnerText


Case "chkPRId"


Line &= "PR Id,"


Case "chkDateIssued"


Line &= "Date Issued,"


Case "chkOriginator"


Line &= "Originator,"


Case "chkBuyer"


Line &= "Buyer,"


Case "chkVendor"


Line &= "Vendor,"


Case "chkCostCode"


Line &= "Cost Code,"


Case "chkOracleRef"


Line &= "Oracle Reference,"


Case "chkTotal"


Line &= "Total,"


End Select


Next


Line = Line.Substring(0, Line.Length - 1)


sw.WriteLine(Line)





Line = ""


While dr.Read


For i = 0 To dr.FieldCount - 1


Line = Line & dr(i) & ","


Next


sw.WriteLine(Line)


Line = ""


End While





dr.Close()


Conn.Close()


sw.Close()


fs.Close()


Response.Redirect(FilePath)


End If


ResetPage()


PopulateListBoxFromXML()