troubleshooting Question

aspx page does not load in Windows 2003/IIS

Avatar of ddei
ddei asked on
Microsoft IIS Web ServerWindows Server 2003ASP.NET
14 Comments3 Solutions485 ViewsLast Modified:
We are working on  reporting project in asp.net.
I have a page that is working perfectly fine in Windows XP/IIS setup. But it does not work in Windows 2003/IIS.

There are no errors displayed. The page never loads.

I guess the problem is regarding permissions, and probably it is with the 'GetObject' call.  I have given all the permissions to the
NETWORK SERVICE account in Win2003 server, and did modify DCOM configuration.

Your help is greatly appreciated. Please let me know if you need more information.

This is the code:
-----------------------
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="gantt.aspx.vb" Inherits="gantt" Debug="true" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
   
    <form id="form1" runat="server">
    <div>
        <br />
        <asp:Label ID="Label1" runat="server" BackColor="#C0C000" BorderColor="Black" BorderStyle="Solid"
            BorderWidth="1px" Text="Gantt Chart For:" Width="112px"></asp:Label>&nbsp;
        <asp:DropDownList ID="DropDownList1" runat="server" DataSourceID="GanttConn" DataTextField="Airline"
            DataValueField="Airline" AutoPostBack="true">
        </asp:DropDownList>
        <asp:RadioButtonList ID="RadioButtonList1" runat="server">
       
        </asp:RadioButtonList>
        <!-- Start Milestone code --><%
                                         Dim oMiles
                                         Dim ImageName
                                         Dim FullPathImageName
                                         Dim WWWPathImageName
               
                                         Dim szTaskName
                                         Dim szStartDate
                                         Dim szEndDate
                                         Dim szDuration
                                         Dim schStartDate
                                         Dim schEndDate
                                         Dim RowNumber As Integer = 0
                                                               
                                         ' Create the Milestones object using a file on the web server
                                         oMiles = GetObject("c:\Inetpub\wwwroot\WebChart\worknew\Gantt Chart for Milestones.mla")
                                         'Activate Milestones
                                         oMiles.Activate()
                                         oMiles.Refresh()
                                     
                                         ' Get schedule start date and end date
                                         schStartDate = Date.Now()
                                         schEndDate = Date.Now ()
                                         Dim startDateList As System.Data.DataView = CType(SqlDataSource2.Select(DataSourceSelectArguments.Empty), System.Data.DataView)
                                         For Each rowStartDate As System.Data.DataRowView In startDateList
                                             schStartDate = rowStartDate("minStartDate")
                                         Next
           
                                         Dim endDateList As System.Data.DataView = CType(SqlDataSource3.Select(DataSourceSelectArguments.Empty), System.Data.DataView)
                                         For Each rowEndDate As System.Data.DataRowView In endDateList
                                             schEndDate = rowEndDate("maxEndDate")
                                         Next
       
                                         oMiles.setStartAndEndDates(schStartDate, schEndDate)
                                         ' Read data from data source
                                         Dim taskList As System.Data.DataView = CType(SqlDataSource1.Select(DataSourceSelectArguments.Empty), System.Data.DataView)

                                       
                                       
                                         'Loop through each record
                                         For Each rowTask As System.Data.DataRowView In taskList
                                             RowNumber = RowNumber + 1
                   
                                             szTaskName = rowTask("Milestone").ToString()
                                             szStartDate = rowTask("Start_Date")
                                             szEndDate = rowTask("Finish_Date")
                                             szDuration = rowTask("Duration")
                   
                                                                     
                                             oMiles.PutCell(RowNumber, 1, szTaskName)
                                             'oMiles.SetOutlineLevel(RowNumber, "1")
                                             If (IsDate(szStartDate)) Then
                                                 oMiles.AddSymbol(RowNumber, szStartDate, 1, 1, 2)
                                             End If

                                             If (IsDate(szEndDate)) Then
                                                 oMiles.AddSymbol(RowNumber, szEndDate, 2)
                                             End If
                                         Next
               
                                         oMiles.Refresh()
                                                                 
                                         Randomize()
                                         ImageName = "filtout" + CStr(Rnd()) + ".jpg"
                                         FullPathImageName = "C:\Inetpub\wwwroot\images\" + ImageName
                                         WWWPathImageName = "http://localhost/images/ " + ImageName
                                         'Generate Bitmap
                                         oMiles.SaveBitmap(FullPathImageName)
                                         oMiles.Close ("NoSave")

                                         'Show the Bitmap in the user's browser
                                         Response.Write("<p><img src=""" + WWWPathImageName + """></p>")

        %><!-- End Milestone code --><br />
        <br />
        <asp:SqlDataSource ID="GanttConn" runat="server" ConnectionString="<%$ ConnectionStrings:CMSConnectionString %>"
            ProviderName="<%$ ConnectionStrings:CMSConnectionString.ProviderName %>" SelectCommand="SELECT DISTINCT Airline FROM rpt_fact_gantt">
        </asp:SqlDataSource>
        &nbsp;&nbsp;
        <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:CMSConnectionString %>"
            ProviderName="<%$ ConnectionStrings: CMSConnectionString.ProviderName %>" SelectCommand="SELECT * FROM rpt_fact_gantt WHERE (Airline = ?)">
            <SelectParameters>
                <asp:ControlParameter ControlID="DropDownList1" Name="Airline" PropertyName="SelectedValue"
                    Type="String" />
            </SelectParameters>
        </asp:SqlDataSource>
        <asp:SqlDataSource ID="SqlDataSource2" runat="server" ConnectionString="<%$ ConnectionStrings:CMSConnectionString %>"
            ProviderName="<%$ ConnectionStrings:CMSConnectionString.ProviderName %>" SelectCommand="SELECT MIN(Start_Date) As minStartDate FROM rpt_fact_gantt WHERE (Airline = ?)">
            <SelectParameters>
                <asp:ControlParameter ControlID="DropDownList1" Name="Airline" PropertyName="SelectedValue"
                    Type="String" />
            </SelectParameters>
        </asp:SqlDataSource>
        <asp:SqlDataSource ID="SqlDataSource3" runat="server" ConnectionString="<%$ ConnectionStrings:CMSConnectionString %>"
            ProviderName="<%$ ConnectionStrings: CMSConnectionString.ProviderName %>" SelectCommand="SELECT MAX(Finish_Date) As maxEndDate FROM rpt_fact_gantt WHERE (Airline = ?)">
            <SelectParameters>
                <asp:ControlParameter ControlID="DropDownList1" Name="Airline" PropertyName="SelectedValue"
                    Type="String" />
            </SelectParameters>
        </asp:SqlDataSource>
       
   
    </div>
    </form>
</body>
</html>
ASKER CERTIFIED SOLUTION
DarkoLord

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 3 Answers and 14 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 3 Answers and 14 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros