I gave full rights but still the same problem. How do you use ACL in .net? thank you

It's not Vista. Both environment are using Windows thank you

Hi, We have 2 separate servers, one for development and one for testing. The OS is Windows 2000 and IIS version 5. thank you

Hi, I have a development and testing environment. I have set the the following on my web.config file: authentication mode="Windows" identity impersonate="true" And I'm trying to list directories and its subfolders and files from a different file_server/shared on my page. In my development environment, it is working fine. I was able to see the folders and files, but in the testing it is giving me: System.UnauthorizedAccessException: Access to the path "file_server/shared" is denied. On both development and testing IIS, I have the "Integrated Windows authentication" checked only. I granted "Everyone" and "Authenticated Users" read only to the file_server/shared. My codes are exactly the same on both environments. I'm also able to get the "WindowsIdentity.GetCurrent.Name" on both environments. I'm totally puzzled. Can anyone help me on how to troubleshoot this? Thank you very much May

Yes I did

Hi I'm trying to do file listings on separate folders and display it on a datagrid. However, for some reasons the sorting is not working. Below is my code. Can anyone help? thank you Sub createDataSource() Dim DV As DataView Dim DS As New DataSet Dim DT As New DataTable Dim DR As DataRow DT.Columns.Add("Category", GetType(String)) DT.Columns.Add("Filename", GetType(String)) Dim DirInfo1 As DirectoryInfo Dim FileInfos1() As FileInfo Dim Fi1 As FileInfo Dim DirInfo2 As DirectoryInfo Dim FileInfos2() As FileInfo Dim Fi2 As FileInfo '----------------------------- DirInfo1 = New DirectoryInfo("C:\TEMP\") FileInfos1 = DirInfo1.GetFiles("*.*") For Each Fi1 In FileInfos1 DR = DT.NewRow() DR(0) = "Guide" DR(1) = "" & Fi1.Name.ToString & "" DT.Rows.Add(DR) Next '----------------------------- DirInfo2 = New DirectoryInfo("c:\temp\forms_radsql\") FileInfos2 = DirInfo2.GetFiles("*.*") For Each Fi2 In FileInfos2 DR = DT.NewRow() DR(0) = "Guide" DR(1) = Fi2.Name.ToString DT.Rows.Add(DR) Next DS.Tables.Add(DT) DV = New DataView(DS.Tables(0)) DV.Sort = "Filename ASC" Me.DataGrid1.DataSource = DV Me.DataGrid1.DataBind() End Sub

Yes I do, but it didn't wrap. thanks

Hi I added it but it didn't work. so I changed my sql statement (select replace(file_name, ' ',' ') from table) and it worked. However, the datagrid does not wrapped even though I have ItemStyle-Wrap="True". Any ideas? thank you

Hi Mike I had modified my sql statement - select replace(filename, ' ',' ') from table It displays the extra spaces correctly, however, my datagrid does not wrap (I have ItemStyle-Wrap="True"). Any ideas? thank you

"Contain Three spaces" There are 3 spaces between the word 'Three' and 'spaces'. thank you

I want the datagrid to display all the spaces. thank you

Hi I'm trying to populate a datagrid with records that contains spaces. Ex: I have a record that has a value of "Contain Three spaces". However, when it binds, it shows up as "Contain Three spaces". Any ideas? Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Put user code to initialize the page here grddatabind() End Sub Sub grddatabind() Dim strConn As String = ConfigurationSettings.AppSettings("CONN_STR") Dim objOraConn As New OracleConnection(strConn) Dim objDV As DataView Dim objDS As New DataSet Dim objOraCmd As OracleCommand Dim objOraAdapter As OracleDataAdapter Dim sqlStr As String sqlStr = "select * from table" Try objOraCmd = New OracleCommand(sqlStr, objOraConn) objOraAdapter = New OracleDataAdapter(objOraCmd) objOraConn.Open() objOraAdapter.Fill(objDS) objDV = New DataView(objDS.Tables(0)) Me.DataGrid1.DataSource = objDV Me.DataGrid1.DataBind() Catch ex As Exception Finally If objOraConn.State = ConnectionState.Open Then objOraConn.Close() End If End Try End Sub thank you

THANK YOU

Hi When a datagrid that is in edit mode, it creates TextBox controls in each edit cell of the table. How do you change these Textboxes' width size? thank you

I apologize for not being clear. What I was trying to say is that "[" & file.Name & "](" & Server.UrlEncode(file.FullName) & ")" gives me page cannot be found message. I'm trying to open a file on a separate file server: \\server\shared\file#file.tif Instead I get http://host/home/\\server\sharedfile%23.tif thanks

I mean it did not encode. thanks

I tried it and it did encode. If the file is on my web server, it will be fine. However, the file that I'm trying to open is on a different server. thanks

Function createDataSource() As ICollection Dim objDirInfo As New DirectoryInfo("\\fileserver\shared") Dim file As FileInfo Dim objDV As DataView Dim objDS As DataSet = New DataSet Dim objDT As DataTable = New DataTable("Files") Dim objDR As DataRow objDT.Columns.Add("Filename", GetType(String)) Try Dim fileInfos() As FileInfo = objDirInfo.GetFiles("*.*") Dim fileLength As Integer = fileInfos.Length If fileLength > 0 Then 'file(s) found For Each file In fileInfos objDR = objDT.NewRow() objDR(0) = "[" & file.Name & "](" & Server.HtmlEncode(file.FullName) & ")" objDT.Rows.Add(objDR) Next objDS.Tables.Add(objDT) objDV = New DataView(objDS.Tables("Files")) objDV.Sort = "Filename asc" createDataSource = objDV End If

Hi I'm trying to do a create a datagrid to list files on a remote shared. My files'names contain special characters such as the # sign. Below is the code that I used to generate my data table. The filenames are displayed correctly. However, the link did not work. Ex: if my filename is "xxx # xxx.tif", the link is \\fileserver\shared\xxx. Any ideas? Function createDataSource() As ICollection Dim objDirInfo As New DirectoryInfo("\\fileserver\shared") Dim file As FileInfo Dim objDV As DataView Dim objDS As DataSet = New DataSet Dim objDT As DataTable = New DataTable("Files") Dim objDR As DataRow objDT.Columns.Add("Filename", GetType(String)) Try Dim fileInfos() As FileInfo = objDirInfo.GetFiles("*.*") Dim fileLength As Integer = fileInfos.Length If fileLength > 0 Then 'file(s) found For Each file In fileInfos objDR = objDT.NewRow() objDR(0) = "[" & file.Name & "](" & file.FullName & ")" objDT.Rows.Add(objDR) Next objDS.Tables.Add(objDT) objDV = New DataView(objDS.Tables("Files")) objDV.Sort = "Filename asc" createDataSource = objDV End If Catch ex As Exception End Try End Function thank you

How do you configure the session variables to expire only when the user close his/her browser instead of setting a time limit? I'm trying to impersonate this user/password, that are stored in the seesion variables, to execute a specific section of code. If the user stays idle for more than the session timeout, the impersonation does not work. thank you