Link to home
Start Free TrialLog in
Avatar of hdainc
hdaincFlag for United States of America

asked on

CodeBehind page not updating web page with new code updates

I have a aspx.vb page that I have updated.  I save the changes and upload them to the server but, when you browse to the corresponding aspx page that uses the aspx.vb code, the web page does not update.

The change to the code was simple.  We converted a bunch of images from .gif to .jpg.  So, on the aspx.vb page I changed the extension from .gif to .jpg.

I have tried deleting the CodeBehind page off the server - The web page still functions.
I have tried referencing a new CodeBehind page - The web page would not find the new CodeBehind page.
I have tried removing the reference to the CodeBehind page and writing all of the VB code onto the aspx page - The page works but no data.

Any ideas to help would me greatly appreciated.  I will include the code of the aspx.vb page:
Partial Class print_plan_page_new
    Inherits System.Web.UI.Page
 
    Private loFP_Price As HDAProcessing.FP_Ref_Price
    Private FP_ID As Guid
    Private loFP As HDAProcessing.FP
    Private lsPostalCode As String = ""
    Private loConn As SqlClient.SqlConnection
 
 
#Region " Web Form Designer Generated Code "
 
    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
 
    End Sub
 
    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object
 
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub
 
#End Region
 
    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
        FP_ID = New Guid(Request("FP_ID"))
 
        loFP = New HDAProcessing.FP(FP_ID)
 
        loConn = New SqlClient.SqlConnection(ConfigurationSettings.AppSettings("dbConnectionString"))
        loConn.Open()
 
        Me.lblFeatures.Text = "<ul>"
        displaySpecialFeatures()
        displayBasicData()
        displayPricing()
        displayPriceData()
        Me.lblFeatures.Text &= "</ul>"
    End Sub
 
    Private Function getCostToBuild() As Double
        If Not postalCodeExists() Then
            Return 0
            Exit Function
        End If
 
        Dim loSearch As HDAProcessing.FPNewSearch
        Dim lsPC As String
 
 
        Dim lsSQL As String
        lsSQL = "select multiplier from tblfp_ref_multiplier where '" & lsPostalCode & "' between postalcode_begin and postalcode_end"
        Dim loConn As New SqlClient.SqlConnection(ConfigurationSettings.AppSettings("dbConnectionString"))
 
        loConn.Open()
        Dim loCmd As New SqlClient.SqlCommand(lsSQL, loConn)
 
        Dim loRdr As SqlClient.SqlDataReader = loCmd.ExecuteReader()
 
        Dim ldMultiplier As Double = 0
        If loRdr.Read() Then ldMultiplier = loRdr("Multiplier")
 
        loRdr.Close()
        loCmd.Dispose()
        loConn.Close()
        loConn.Dispose()
 
        Return ldMultiplier * loFP.EstimatedPriceToBuild
    End Function
 
    Private Sub displayPricing()
        If postalCodeExists() Then
            Me.lblFeatures.Text = "<br><br><li>Estimated Cost To Build In Postal Code " & lsPostalCode & " Is $" & Format(getCostToBuild(), "#,###,###,###")
            'Me.lblPricing.Visible = True
        End If
    End Sub
 
    Private Function postalCodeExists() As Boolean
        Dim loCustomer As eCommerce.Customer
        Dim lbResult As Boolean = False
        If Not Session("lsEmailAddress") Is Nothing Then
            loCustomer = New eCommerce.Customer
            loCustomer.Connection = ConfigurationSettings.AppSettings("dbCartConnection")
            loCustomer.EmailAddress = Session("lsEmailAddress")
            loCustomer.Retrieve()
            If loCustomer.PostalCode.Length > 0 Then
                lbResult = True
                lsPostalCode = loCustomer.PostalCode
            End If
        End If
 
        Dim loSearch As HDAProcessing.FPNewSearch
        If Not Session("loLastSearch") Is Nothing Then
            loSearch = Session("loLastSearch")
            If loSearch.PostalCode.Length > 0 Then
                lbResult = True
                lsPostalCode = loSearch.PostalCode
            End If
        End If
 
        Return lbResult
    End Function
 
    Private Sub displaySpecialFeatures()
        Dim loConn As New SqlClient.SqlConnection(ConfigurationSettings.AppSettings("dbConnectionString"))
        loConn.Open()
 
        Dim lsSQL As String
        lsSQL = "select SpecialFeature from tblFP_SpecialFeatures Where FP_ID = '" & loFP.FP_ID.ToString & "' and enabled = 1 order by specialfeatureorder"
        Dim loCmd As New SqlClient.SqlCommand(lsSQL, loConn)
        Dim loRdr As SqlClient.SqlDataReader = loCmd.ExecuteReader
 
        'Me.dtlFeatures.DataSource = loRdr
        'Me.dtlFeatures.DataBind()
 
        While loRdr.Read
            Me.lblFeatures.Text &= "<br><br><li>" & loRdr("SpecialFeature")
        End While
    End Sub
 
    Private Sub displayPriceData()
 
        loFP_Price = New HDAProcessing.FP_Ref_Price(loFP.Price_ID)
        Me.lblSetOf8.Text = Format(loFP_Price.Price8Set, "#,####")
        Me.lblSetOf5.Text = Format(loFP_Price.Price5Set, "#,####")
        Me.lblSetOf1.Text = Format(loFP_Price.Price1Set, "#,####")
        Me.lblReproducible.Text = Format(loFP_Price.PriceReproducables, "#,####")
        Me.lblcad.Text = Format(loFP_Price.PriceCad, "#,###")
 
        If loFP.reproducible Then
            Me.tblPackage.Rows(0).Visible = True
        Else
            Me.tblPackage.Rows(0).Visible = False
        End If
        If loFP.eight_sets Then
            Me.tblPackage.Rows(1).Visible = True
        Else
            Me.tblPackage.Rows(1).Visible = False
        End If
        If loFP.five_sets Then
            Me.tblPackage.Rows(2).Visible = True
        Else
            Me.tblPackage.Rows(2).Visible = False
        End If
        If loFP.one_set Then
            Me.tblPackage.Rows(3).Visible = True
        Else
            Me.tblPackage.Rows(3).Visible = False
        End If
        If loFP.MaterialList Then
            Me.tblPackage.Rows(4).Visible = True
            If loFP.SignatureSeries_Flag Then
                Me.lblMaterialList.Text = Format(loFP_Price.PriceMaterialList, "#,###")
            Else
                Me.lblMaterialList.Text = Format(HDAProcessing.HDAConst.MATERIALLISTPRICE, "#,###")
            End If
        Else
            Me.tblPackage.Rows(4).Visible = False
        End If
        If loFP.cad Then
            Me.tblPackage.Rows(5).Visible = True
        Else
            Me.tblPackage.Rows(5).Visible = False
        End If
    End Sub
 
    Private Function getBaths() As String
        Dim lsBaths As String = ""
        If loFP.Mfam = True Then
            lsBaths = ""
        Else
 
            If loFP.HalfBaths > 0 Then
                If loFP.HalfBaths > 1 Then
                    If loFP.FullBaths > 1 Then
                        lsBaths = loFP.FullBaths & " Full Baths, " & loFP.HalfBaths & " Half Baths"
                    Else
                        lsBaths = loFP.FullBaths & " Full Bath, " & loFP.HalfBaths & " Half Baths"
                    End If
                Else
                    lsBaths = loFP.FullBaths & ".5 Baths"
                End If
            Else
                If loFP.FullBaths > 1 Then
                    lsBaths = loFP.FullBaths & " Baths"
                Else
                    lsBaths = loFP.FullBaths & " Bath"
                End If
            End If
        End If
 
 
        Return lsBaths
    End Function
 
    Private Function getBeds() As String
        Dim lsBeds As String = ""
        If loFP.Mfam = True Then
            lsBeds = ""
        Else
            If loFP.Bedrooms = 1 Then
                lsBeds = loFP.Bedrooms.ToString & " Bedroom, "
            Else
                lsBeds = loFP.Bedrooms.ToString & " Bedrooms, "
            End If
        End If
        Return lsBeds
    End Function
 
    Private Function getGarages() As String
        Dim loPlacement As New HDAProcessing.FP_Ref_GaragePlacement(loFP.GaragePlacement_ID)
        Dim loEntry As New HDAProcessing.FP_Ref_GarageEntry(loFP.GarageEntry_ID)
 
        Dim lsGarages As String = ""
        If loFP.GarageCars > 0 Then
            lsGarages &= ", "
            If loFP.GarageOptional_Flag Then lsGarages &= "Optional "
            lsGarages &= loFP.GarageCars & "-car "
            If loPlacement.GaragePlacement = "Carport" Then
                lsGarages &= " carport"
            ElseIf loPlacement.GaragePlacement = "Drive Under" Then
                If loEntry.GarageEntry = "Rear" Then
                    lsGarages &= " rear entry drive under garage"
                ElseIf loEntry.GarageEntry = "Side" Then
                    lsGarages &= " side entry drive under garage"
                Else
                    lsGarages &= " drive under garage"
                End If
            ElseIf loPlacement.GaragePlacement = "Detached" Then
                If loEntry.GarageEntry = "Rear" Then
                    lsGarages &= " rear entry detached"
                ElseIf loEntry.GarageEntry = "Side" Then
                    lsGarages &= " side entry detached"
                Else
                    lsGarages &= " detached"
                End If
                lsGarages &= " garage"
            Else
                If loEntry.GarageEntry = "Rear" Then
                    lsGarages &= " rear entry"
                ElseIf loEntry.GarageEntry = "Side" Then
                    lsGarages &= " side entry"
                Else
                    lsGarages &= ""
                End If
                lsGarages &= " garage"
            End If
        End If
        Return lsGarages
    End Function
 
    Private Sub displaySquareFeet()
        Me.lblFeatures.Text &= "<br><br><li>" & Format(loFP.LowerLevelSQFT + loFP.Floor1SQFT + loFP.Floor2SQFT + loFP.Floor3SQFT, "#,###,###") & " Total Square Feet"
        'Me.imgSFBullet.Visible = False
        'Me.lblFloorSF.Text = ""
        Dim lsFloorSF As String = ""
        If loFP.LowerLevelSQFT > 0 Or loFP.Floor1SQFT > 0 Or loFP.Floor2SQFT > 0 Or loFP.Floor3SQFT > 0 Then
            If loFP.LowerLevelSQFT > 0 Then
                'Me.imgSFBullet.Visible = True
                'Me.lblFloorSF.Visible = True
                lsFloorSF &= "<br><br><li>Lower Level - " & Format(loFP.LowerLevelSQFT, "#,###,###")
            End If
            If loFP.Floor1SQFT > 0 And (loFP.LowerLevelSQFT > 0 Or loFP.Floor2SQFT > 0 Or loFP.Floor3SQFT > 0) Then
                'Me.imgSFBullet.Visible = True
                'Me.lblFloorSF.Visible = True
                If lsFloorSF.Length > 0 Then
                    lsFloorSF &= "<br>1st Floor - " & Format(loFP.Floor1SQFT, "#,###,###")
                Else
                    lsFloorSF &= "<br><br><li>1st Floor - " & Format(loFP.Floor1SQFT, "#,###,###")
                End If
 
            End If
            If loFP.Floor2SQFT > 0 Then
                'Me.imgSFBullet.Visible = True
                'Me.lblFloorSF.Visible = True
                lsFloorSF &= "<br>2nd Floor - " & Format(loFP.Floor2SQFT, "#,###,###")
            End If
            If loFP.Floor3SQFT > 0 Then
                'Me.imgSFBullet.Visible = True
                'Me.lblFloorSF.Visible = True
                lsFloorSF &= "<br>3rd Floor - " & Format(loFP.Floor3SQFT, "#,###,###")
            End If
        Else
            'Me.imgSFBullet.Visible = False
            'Me.lblFloorSF.Visible = False
        End If
        Me.lblFeatures.Text &= lsFloorSF
        'If lblFloorSF.Text.Length > 0 Then
        'lblTotalSF.Text &= "<br><BR>"
        'lblFloorSF.Text &= "<BR>"
        'End If
    End Sub
 
    Private Sub displayBasicData()
        Me.lblPlanNumber.Text = HDAProcessing.HDAUtility.PLANPREFIX & "-" & loFP.PlanNumber
 
        If loFP.SignatureSeries_Flag Then
            Me.imgSigSeries.Visible = True
        End If
 
        'beds, baths, and garages
        Dim lsBaths As String = getBaths()
        Dim lsBeds As String = getBeds()
        Dim lsGarages As String = getGarages()
        If loFP.Mfam = True Then
            Me.lblFeatures.Text = lsGarages
        Else
            Me.lblFeatures.Text &= "<br><br><li>" & lsBeds & lsBaths & lsGarages
        End If
 
 
        displaySquareFeet()
        'Me.lblTotalSF.Text = Format(loFP.LowerLevelSQFT + loFP.Floor1SQFT + loFP.Floor2SQFT + loFP.Floor3SQFT, "#,###,###") & " Total Square Feet"
        'Me.lblFloorSF.Text = ""
        'If loFP.LowerLevelSQFT > 0 Or loFP.Floor1SQFT > 0 Or loFP.Floor2SQFT > 0 Or loFP.Floor3SQFT > 0 Then
        '	Me.imgSFBullet.Visible = True
        '	Me.lblFloorSF.Visible = True
        '	If loFP.LowerLevelSQFT > 0 Then
        '		Me.lblFloorSF.Text = Me.lblFloorSF.Text & "Lower Level - " & Format(loFP.LowerLevelSQFT, "#,###,###") & "<BR>"
        '	End If
        '	Me.lblFloorSF.Text &= " 1st Floor - " & Format(loFP.Floor1SQFT, "#,###,###")
        '	If loFP.Floor2SQFT > 0 Then
        '		Me.lblFloorSF.Text &= "<br>2nd Floor - " & Format(loFP.Floor2SQFT, "#,###,###")
        '	End If
        '	If loFP.Floor3SQFT > 0 Then
        '		Me.lblFloorSF.Text &= "<br>3rd Floor - " & Format(loFP.Floor3SQFT, "#,###,###")
        '	End If
        'Else
        '	Me.imgSFBullet.Visible = False
        '	Me.lblFloorSF.Visible = False
        'End If
 
        'Me.lblTotalSF.Text = Format(loFP.Floor1SQFT + loFP.Floor2SQFT + loFP.Floor3SQFT, "#,###,###") & " Total Square Feet."
        'Me.lblFloorSF.Text = ""
        'If loFP.Floor1SQFT > 0 Then
        '	Me.lblFloorSF.Text = " 1st Floor - " & Format(loFP.Floor1SQFT, "#,###,###")
        '	Me.imgSFBullet.Visible = False
        '	Me.lblFloorSF.Visible = True
        'End If
        'If loFP.Floor2SQFT > 0 Then
        '	Me.lblFloorSF.Text = Me.lblFloorSF.Text & "<br>2nd Floor - " & Format(loFP.Floor2SQFT, "#,###,###")
        '	Me.imgSFBullet.Visible = True
        '	Me.lblFloorSF.Visible = True
        'End If
        'If loFP.Floor3SQFT > 0 Then
        '	Me.lblFloorSF.Text = Me.lblFloorSF.Text & "<br>3rd Floor - " & Format(loFP.Floor3SQFT, "#,###,###")
        '	Me.imgSFBullet.Visible = True
        '	Me.lblFloorSF.Visible = True
        'End If
 
        Me.imgFrontLarge.ImageUrl = "../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/" & loFP.PlanNumber & "-front-lg.jpg"
        If loFP.Floor2SQFT > 0 Then
            Me.pnlFirstFloor.Visible = True
            Me.imgFloor1.ImageUrl = "../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/" & loFP.PlanNumber & "-FLR1.gif"
            Me.imgFloor2.ImageUrl = "../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/" & loFP.PlanNumber & "-FLR2.gif"
            Me.pnlSecondFloor.Visible = True
            Me.imgFloor1.Visible = True
            Me.imgFloor2.Visible = True
        Else
            Me.pnlFirstFloor.Visible = True
            Me.imgFloor1.ImageUrl = "../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/" & loFP.PlanNumber & "-FLR.gif"
            Me.imgFloor2.Visible = False
            Me.pnlSecondFloor.Visible = False
        End If
 
        If loFP.Floor3SQFT > 0 Then
            Me.pnlThirdFloor.Visible = True
            Me.imgFloor3.ImageUrl = "../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/" & loFP.PlanNumber & "-FLR3.gif"
            Me.imgFloor3.Visible = True
        End If
 
        Dim lsPath As String = Server.MapPath("../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/")
        Dim lsMainImage As String = lsPath & loFP.PlanNumber & "-front-lg.jpg"
        Dim lsLowerImage As String = lsPath & loFP.PlanNumber & "-LL.gif"
        Dim lsFirstOnlyImage As String = lsPath & loFP.PlanNumber & "-FLR.gif"
        Dim lsFirstImage As String = lsPath & loFP.PlanNumber & "-FLR1.gif"
        Dim lsSecondImage As String = lsPath & loFP.PlanNumber & "-FLR2.gif"
        Dim lsRearImage As String = lsPath & loFP.PlanNumber & "-rear.gif"
        Dim lsThirdImage As String = lsPath & loFP.PlanNumber & "-FLR3.gif"
        Dim lsLeftImage As String = lsPath & loFP.PlanNumber & "-left.gif"
        Dim lsRightImage As String = lsPath & loFP.PlanNumber & "-right.gif"
 
        Me.pnlFirstFloor.Visible = False
        Me.imgFloor1.Visible = False
        Me.pnlSecondFloor.Visible = False
        Me.imgFloor2.Visible = False
        Me.pnlThirdFloor.Visible = False
        Me.imgFloor3.Visible = False
        Me.pnlRear.Visible = False
        Me.pnlLeft.Visible = False
        Me.pnlRight.Visible = False
 
        If System.IO.File.Exists(lsFirstOnlyImage) Then
            Me.pnlFirstFloor.Visible = True
            Me.imgFloor1.ImageUrl = "../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/" & loFP.PlanNumber & "-FLR.gif"
            Me.imgFloor1.Visible = True
        End If
        If System.IO.File.Exists(lsFirstImage) Then
            Me.pnlFirstFloor.Visible = True
            Me.imgFloor1.ImageUrl = "../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/" & loFP.PlanNumber & "-FLR1.gif"
            Me.imgFloor1.Visible = True
        End If
        If System.IO.File.Exists(lsSecondImage) Then
            Me.pnlSecondFloor.Visible = True
            Me.imgFloor2.ImageUrl = "../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/" & loFP.PlanNumber & "-FLR2.gif"
            Me.imgFloor2.Visible = True
        End If
        If System.IO.File.Exists(lsThirdImage) Then
            Me.pnlThirdFloor.Visible = True
            Me.imgFloor3.ImageUrl = "../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/" & loFP.PlanNumber & "-FLR3.gif"
            Me.imgFloor3.Visible = True
        End If
        Me.imgLeftElevation.ImageUrl = "../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/" & loFP.PlanNumber & "-left.gif"
        Me.imgRearElevation.ImageUrl = "../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/" & loFP.PlanNumber & "-rear.gif"
        Me.imgRightElevation.ImageUrl = "../floorplans/" & Left(loFP.PlanNumber, 4) & "/" & loFP.PlanNumber & "/" & loFP.PlanNumber & "-right.gif"
 
        Me.pnlRight.Visible = System.IO.File.Exists(lsRightImage)
        Me.pnlLeft.Visible = System.IO.File.Exists(lsLeftImage)
        Me.pnlRear.Visible = System.IO.File.Exists(lsRearImage)
 
        'foundations
        displayFoundations(True)
        displayFoundations(False)
 
    End Sub
 
    Private Function getFoundations(Optional ByVal pbStandard As Boolean = False) As SqlClient.SqlDataReader
        Dim liStandard As Int32
        If pbStandard Then liStandard = 1 Else liStandard = 0
        Dim lsSQL As String
        lsSQL = "select foundationname from tblfp f, tblfp_foundations fd, tblfp_ref_foundationnames fdn where f.fp_id = fd.fp_id and fd.foundationname_id = fdn.fp_ref_foundationnames_id and f.fp_id = '" & loFP.FP_ID.ToString() & "' and standard = " & liStandard & " order by foundationnumber"
        Dim loCmd As New SqlClient.SqlCommand(lsSQL, loConn)
        Return loCmd.ExecuteReader(CommandBehavior.Default)
    End Function
 
    Private Sub displayFoundations(Optional ByVal pbStandard As Boolean = False)
        Dim loFoundations As SqlClient.SqlDataReader = getFoundations(pbStandard)
        Dim loBullet As System.Web.UI.WebControls.Image
        Dim loLabel As System.Web.UI.WebControls.Label
 
        Dim lsText As String
 
        If pbStandard Then
            'loBullet = Me.imgFoundationBullet
            loLabel = Me.lblFeatures
            lsText &= "<br><br><li>Standard Foundation - "
        Else
            'loBullet = Me.imgAvailFoundationBullet
            loLabel = Me.lblFeatures
            lsText &= "<br><br><li>Alternate Foundation_PLURAL_ - "
        End If
 
        If loFoundations.HasRows Then
            'loBullet.Visible = True
            'loLabel.Visible = True
        Else
            loFoundations.Close()
            Exit Sub
        End If
 
        Dim i As Int32 = 0
        While loFoundations.Read()
            i += 1
            lsText &= loFoundations("foundationname") & ", "
        End While
        lsText = Left(lsText, lsText.Length - 2)
        If i > 1 Then lsText = lsText.Replace("_PLURAL_", "s") Else lsText = lsText.Replace("_PLURAL_", "")
        loLabel.Text &= lsText
 
        loFoundations.Close()
    End Sub
 
End Class

Open in new window

Avatar of Cedric Obinna A.
Cedric Obinna A.
Flag of Nigeria image

What webserver are you using? Where is it hosted... locally or on the internet. Chances are your webserver 'locked' the files. For instance in IIS, there is a folder called _vti_cnf which is HIDDEN inside the folder containing your web pages. You will need to delete the old file from here too. Your webserver very likely has something like that, so let's know which one you use.
I think this is caching. Try one of the following (or all of them):
1. Delete the temporary internet files
2. When you open your page, click on ctrl + F5 (this will delete cached pages and refreshes the page)
3. Do "IIS reset"
Avatar of hdainc

ASKER

cedlinx:

We are running IIS 6.0.  I had already deleted all of the _vti_cnf folders from the entire site.

The_eagle:

I have deleted my browser's internet cache several times.  The ctrl +F5 refresh did not work.  And if you mean by "IIS reset" by stopping and starting the IIS web site instance, I have done that too.
What if you deployed the aspx.vb file into the wrong location? Please double check
Avatar of hdainc

ASKER

The_eagle:

The aspx.vb file is in the same directory as the aspx file that calls it.
What are the images that you converted from gif to jpg?
1. Stop IIS Admin from Control Panel -> Administrative Tools -> Services. 2. Stop Your Webserver from Control Panel -> Administrative Tools ->Internet Information Services. 3. Make sure you can view hidden files/folders. 4. Delete the file you want to replace from your webpages' folder. 5. Delete the file too from _vti_cnf. 6. WITHOUT restarting IIS Admin and WITHOUT restarting your webserver, restart your computer. 7. WITHOUT restarting IIS Admin and WITHOUT restarting your webserver, Open the website so that it tell that The Page Cannot Be Displayed. 8. Restart IIS Admin and REFRESH AND RESTART your webserver BUT DON'T replace the file. 9. Try to access the page again. It should fail. If it does, then replace the file, refresh again and restart the webserve. Hope this helps.
Don't forget to delete all OFFLINE CONTENT.
Avatar of hdainc

ASKER

cedlinx:

I have followed your directions and it is still not updating.
Avatar of hdainc

ASKER

Could the page not be updating if there are a lot of compile errors on it?  When I run the aspx.vb code through a debug, lots of errors appear.

Can a aspx page still display when there are a lot of errors in the CodeBehind page?
If there are compile errors then it will give an error, it will not run. That's why I think that this is not a caching problem. So, let's review all the details. I have the feeling that there is a small thing missing here.
Avatar of hdainc

ASKER

Okay.  So, what do I need to do?
ASKER CERTIFIED SOLUTION
Avatar of Salim Fayad
Salim Fayad
Flag of Lebanon image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of hdainc

ASKER

I tried what you asked but, it still did not update.  What I am doing is reprogramming a new page.