Server Error in '/' Application.
 -------------------------------------------------------------------------------- 

Compilation Error 
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately. 

Compiler Error Message: BC30807: 'Let' and 'Set' assignment statements are no longer supported.

Source Error:

 

Line  25 : 
Line  26 : Dim fs 
Line  27 : Set fs = CreateObject("Scripting.FileSystemObject")
Line  28 : 
Line  29 : 	action = Request.Form("action")
 

Source File: C:\Ilya_test\download1.asp    Line:  27  



Show Detailed Compiler Output:


c:\windows\system32\inetsrv> "c:\windows\microsoft.net\framework\v1.1.4322\vbc.exe" /t:library /utf8output /R:"c:\windows\assembly\gac\system.web\1.0.5000.0__b03f5f7f11d50a3a\system.web.dll" /R:"c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e089\system.dll" /R:"c:\windows\assembly\gac\system.web.services\1.0.5000.0__b03f5f7f11d50a3a\system.web.services.dll" /R:"c:\windows\assembly\gac\system.xml\1.0.5000.0__b77a5c561934e089\system.xml.dll" /R:"c:\windows\assembly\gac\system.web.mobile\1.0.5000.0__b03f5f7f11d50a3a\system.web.mobile.dll" /R:"c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5f7f11d50a3a\system.drawing.dll" /R:"c:\windows\assembly\gac\system.data\1.0.5000.0__b77a5c561934e089\system.data.dll" /R:"c:\windows\assembly\gac\system.enterpriseservices\1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseservices.dll" /out:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\3b3ce5b2\4edb6f3c\nvmog3i3.dll" /debug- /win32resource:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\3b3ce5b2\4edb6f3c\nvmog3i3.res"  "C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\3b3ce5b2\4edb6f3c\nvmog3i3.0.vb"


Microsoft (R) Visual Basic .NET Compiler version  7 . 10 . 3052 . 4 
for Microsoft (R) .NET Framework version  1 . 1 . 4322 . 573 
Copyright (C) Microsoft Corporation  1987 - 2002 . All rights reserved.

C:\Ilya_test\download1.asp( 27 ) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

Set fs = CreateObject("Scripting.FileSystemObject")
~~~                                                
C:\Ilya_test\download1.asp( 29 ) : error BC30451: Name 'action' is not declared.

    action = Request.Form("action")
    ~~~~~~                         
C:\Ilya_test\download1.asp( 30 ) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

    Set f_gb = fs.OpenTextFile("/site/download.txt",  1 ,  0 )
    ~~~                                                   
C:\Ilya_test\download1.asp( 30 ) : error BC30451: Name 'f_gb' is not declared.

    Set f_gb = fs.OpenTextFile("/site/download.txt",  1 ,  0 )
        ~~~~                                              
C:\Ilya_test\download1.asp( 31 ) : error BC30451: Name 'gb_id' is not declared.

    gb_id = f_gb.ReadLine
    ~~~~~                
C:\Ilya_test\download1.asp( 31 ) : error BC30451: Name 'f_gb' is not declared.

    gb_id = f_gb.ReadLine
            ~~~~         
C:\Ilya_test\download1.asp( 33 ) : error BC30451: Name 'f_gb' is not declared.

                f_gb.Close
                ~~~~      
C:\Ilya_test\download1.asp( 34 ) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

    Set f_gb = Nothing
    ~~~               
C:\Ilya_test\download1.asp( 34 ) : error BC30451: Name 'f_gb' is not declared.

    Set f_gb = Nothing
        ~~~~          
C:\Ilya_test\download1.asp( 36 ) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

    Set f_gb = fs.OpenTextFile("/site/download.txt",  1 ,  0 )
    ~~~                                                   
C:\Ilya_test\download1.asp( 36 ) : error BC30451: Name 'f_gb' is not declared.

    Set f_gb = fs.OpenTextFile("/site/download.txt",  1 ,  0 )
        ~~~~                                              
C:\Ilya_test\download1.asp( 37 ) : error BC30451: Name 'gb_id' is not declared.

    gb_id = f_gb.ReadLine
    ~~~~~                
C:\Ilya_test\download1.asp( 37 ) : error BC30451: Name 'f_gb' is not declared.

    gb_id = f_gb.ReadLine
            ~~~~         
C:\Ilya_test\download1.asp( 39 ) : error BC30451: Name 'f_gb' is not declared.

                While not f_gb.AtEndOfStream
                          ~~~~              
C:\Ilya_test\download1.asp( 40 ) : error BC30451: Name 'gb_thema' is not declared.

        gb_thema = f_gb.ReadLine
        ~~~~~~~~                
C:\Ilya_test\download1.asp( 40 ) : error BC30451: Name 'f_gb' is not declared.

        gb_thema = f_gb.ReadLine
                   ~~~~         
C:\Ilya_test\download1.asp( 41 ) : error BC30451: Name 'gb_message' is not declared.

        gb_message = f_gb.ReadLine
        ~~~~~~~~~~                
C:\Ilya_test\download1.asp( 41 ) : error BC30451: Name 'f_gb' is not declared.

        gb_message = f_gb.ReadLine
                     ~~~~         
C:\Ilya_test\download1.asp( 43 ) : error BC30451: Name 'gb_thema' is not declared.

        if gb_thema="" then
           ~~~~~~~~        
C:\Ilya_test\download1.asp( 44 ) : error BC30451: Name 'out_thema' is not declared.

            out_thema = "Без названия"
            ~~~~~~~~~                 
C:\Ilya_test\download1.asp( 46 ) : error BC30451: Name 'out_thema' is not declared.

            out_thema = gb_thema
            ~~~~~~~~~           
C:\Ilya_test\download1.asp( 46 ) : error BC30451: Name 'gb_thema' is not declared.

            out_thema = gb_thema
                        ~~~~~~~~
C:\Ilya_test\download1.asp( 49 ) : error BC30451: Name 'f_gb' is not declared.

        While not ((f_gb.AtEndOfStream) or (left(gb_message,  1 )="#"))
                    ~~~~                                             
C:\Ilya_test\download1.asp( 49 ) : error BC30451: Name 'gb_message' is not declared.

        While not ((f_gb.AtEndOfStream) or (left(gb_message,  1 )="#"))
                                                 ~~~~~~~~~~          
C:\Ilya_test\download1.asp( 52 ) : error BC30451: Name 'out_thema' is not declared.

            __output.Write(out_thema)
                           ~~~~~~~~~ 
C:\Ilya_test\download1.asp( 54 ) : error BC30451: Name 'gb_message' is not declared.

            gb_message = f_gb.ReadLine
            ~~~~~~~~~~                
C:\Ilya_test\download1.asp( 54 ) : error BC30451: Name 'f_gb' is not declared.

            gb_message = f_gb.ReadLine
                         ~~~~         
C:\Ilya_test\download1.asp( 55 ) : error BC30809: 'Wend' statements are no longer supported; use 'End While' statements instead.

        Wend
        ~~~~
C:\Ilya_test\download1.asp( 56 ) : error BC30451: Name 'gb_id' is not declared.

        gb_id = gb_message
        ~~~~~             
C:\Ilya_test\download1.asp( 56 ) : error BC30451: Name 'gb_message' is not declared.

        gb_id = gb_message
                ~~~~~~~~~~
C:\Ilya_test\download1.asp( 57 ) : error BC30809: 'Wend' statements are no longer supported; use 'End While' statements instead.

    Wend
    ~~~~
C:\Ilya_test\download1.asp( 58 ) : error BC30451: Name 'f_gb' is not declared.

    f_gb.Close
    ~~~~      
C:\Ilya_test\download1.asp( 59 ) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

    Set f_gb = Nothing
    ~~~               
C:\Ilya_test\download1.asp( 59 ) : error BC30451: Name 'f_gb' is not declared.

    Set f_gb = Nothing
        ~~~~          

 



Show Complete Compilation Source:


Line  1 :    '------------------------------------------------------------------------------
Line 2:    ' <autogenerated>
Line  3 :    '     This code was generated by a tool.
Line 4:    '     Runtime Version:  1 . 1 . 4322 . 573 
Line  5 :    '
Line 6:    '     Changes to this file may cause incorrect behavior and will be lost if 
Line  7 :    '     the code is regenerated.
Line 8:    ' </autogenerated>
Line  9 :    ' ------------------------------------------------------------------------------ 
Line  10 :   
Line  11 :   Option Strict Off
Line  12 :   Option Explicit On
Line  13 :   
Line  14 :   Imports Microsoft.VisualBasic
Line  15 :   Imports System
Line  16 :   Imports System.Collections
Line  17 :   Imports System.Collections.Specialized
Line  18 :   Imports System.Configuration
Line  19 :   Imports System.Text
Line  20 :   Imports System.Text.RegularExpressions
Line  21 :   Imports System.Web
Line  22 :   Imports System.Web.Caching
Line  23 :   Imports System.Web.Security
Line  24 :   Imports System.Web.SessionState
Line  25 :   Imports System.Web.UI
Line  26 :   Imports System.Web.UI.HtmlControls
Line  27 :   Imports System.Web.UI.WebControls
Line  28 :   
Line  29 :   Namespace ASP
Line  30 :       
Line  31 :       Public Class ind_download1_aspx
Line  32 :           Inherits System.Web.UI.Page
Line  33 :           Implements System.Web.SessionState.IRequiresSessionState
Line  34 :           
Line  35 :           Private Shared __initialized As Boolean = false
Line  36 :           
Line  37 :           Private Shared __stringResource As Object
Line  38 :           
Line  39 :           Private Shared __fileDependencies As System.Collections.ArrayList
Line  40 :           
Line  41 :           Public Sub New()
Line  42 :               MyBase.New
Line  43 :               Dim dependencies As System.Collections.ArrayList
Line  44 :               If (ASP.ind_download1_aspx.__initialized = false) Then
Line  45 :                   ASP.ind_download1_aspx.__stringResource = System.Web.UI.TemplateControl.ReadStringResource(GetType(ASP.ind_download1_aspx))
Line  46 :                   dependencies = New System.Collections.ArrayList
Line  47 :                   dependencies.Add("C:\Ilya_test\ind_download1.aspx")
Line  48 :                   dependencies.Add("C:\Ilya_test\download1.asp")
Line  49 :                   ASP.ind_download1_aspx.__fileDependencies = dependencies
Line  50 :                   ASP.ind_download1_aspx.__initialized = true
Line  51 :               End If
Line  52 :           End Sub
Line  53 :           
Line  54 :           Protected Overrides ReadOnly Property SupportAutoEvents As Boolean
Line  55 :               Get
Line  56 :                   Return false
Line  57 :               End Get
Line  58 :           End Property
Line  59 :           
Line  60 :           Protected ReadOnly Property ApplicationInstance As System.Web.HttpApplication
Line  61 :               Get
Line  62 :                   Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line  63 :               End Get
Line  64 :           End Property
Line  65 :           
Line  66 :           Public Overrides ReadOnly Property TemplateSourceDirectory As String
Line  67 :               Get
Line  68 :                   Return "/"
Line  69 :               End Get
Line  70 :           End Property
Line  71 :           
Line  72 :           Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control)
Line  73 :               __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line  74 :           End Sub
Line  75 :           
Line  76 :           Private Sub __Render__control1(ByVal __output As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line  77 :               Me.WriteUTF8ResourceString(__output,  0 ,  23638 , false)
Line  78 :               Me.WriteUTF8ResourceString(__output,  23638 ,  683 , false)
Line  79 :               
Line  80 :               #ExternalSource("C:\Ilya_test\download1.asp", 24 )
Line  81 :               
Line  82 :   
Line  83 :   Dim fs 
Line  84 :   Set fs = CreateObject("Scripting.FileSystemObject")
Line  85 :   
Line  86 :   	action = Request.Form("action")
Line  87 :   	Set f_gb = fs.OpenTextFile("/site/download.txt",  1 ,  0 )
Line  88 :   	gb_id = f_gb.ReadLine
Line  89 :   
Line  90 :               
Line  91 :               #End ExternalSource
Line  92 :               
Line  93 :               #ExternalSource("C:\Ilya_test\download1.asp", 33 )
Line  94 :               	f_gb.Close
Line  95 :   	Set f_gb = Nothing
Line  96 :   	
Line  97 :   	Set f_gb = fs.OpenTextFile("/site/download.txt",  1 ,  0 )
Line  98 :   	gb_id = f_gb.ReadLine
Line  99 :   
Line  100 :              
Line  101 :              #End ExternalSource
Line  102 :              
Line  103 :              #ExternalSource("C:\Ilya_test\download1.asp", 39 )
Line  104 :              	While not f_gb.AtEndOfStream
Line  105 :  		gb_thema = f_gb.ReadLine
Line  106 :  		gb_message = f_gb.ReadLine
Line  107 :  		
Line  108 :  		if gb_thema="" then
Line  109 :  			out_thema = "Без названия"
Line  110 :  		else
Line  111 :  			out_thema = gb_thema
Line  112 :  			end if
Line  113 :  
Line  114 :  		While not ((f_gb.AtEndOfStream) or (left(gb_message,  1 )="#"))
Line  115 :  
Line  116 :              
Line  117 :              #End ExternalSource
Line  118 :              __output.Write(""&Microsoft.VisualBasic.ChrW( 13 )&Microsoft.VisualBasic.ChrW( 10 )&"<p><font face=""Verdana"" size=""2""><span style=""font-size:8.0pt;font-family:Verda"& _ 
Line  119 :  "na;"">        "&Microsoft.VisualBasic.ChrW( 13 )&Microsoft.VisualBasic.ChrW( 10 )&"<img border=""0"" src=""imag"& _ 
Line  120 :  "es/arhive.bmp"">  ")
Line  121 :              
Line  122 :              #ExternalSource("C:\Ilya_test\download1.asp", 52 )
Line  123 :              __output.Write(out_thema)
Line  124 :              
Line  125 :              #End ExternalSource
Line  126 :              __output.Write("</span></font></p>"&Microsoft.VisualBasic.ChrW( 13 )&Microsoft.VisualBasic.ChrW( 10 ))
Line  127 :              
Line  128 :              #ExternalSource("C:\Ilya_test\download1.asp", 53 )
Line  129 :              
Line  130 :  			gb_message = f_gb.ReadLine
Line  131 :  		Wend
Line  132 :  		gb_id = gb_message
Line  133 :  	Wend
Line  134 :  	f_gb.Close
Line  135 :  	Set f_gb = Nothing
Line  136 :  
Line  137 :  
Line  138 :              
Line  139 :              #End ExternalSource
Line  140 :              Me.WriteUTF8ResourceString(__output,  24321 ,  1624 , false)
Line  141 :              Me.WriteUTF8ResourceString(__output,  25945 ,  799 , false)
Line  142 :          End Sub
Line  143 :          
Line  144 :          Protected Overrides Sub FrameworkInitialize()
Line  145 :              SetStringResourcePointer(ASP.ind_download1_aspx.__stringResource,  26744 )
Line  146 :              Me.__BuildControlTree(Me)
Line  147 :              Me.FileDependencies = ASP.ind_download1_aspx.__fileDependencies
Line  148 :              Me.EnableViewStateMac = true
Line  149 :              Me.Request.ValidateInput
Line  150 :          End Sub
Line  151 :          
Line  152 :          Public Overrides Function GetTypeHashCode() As Integer
Line  153 :              Return - 683747614 
Line  154 :          End Function
Line  155 :      End Class
Line  156 :  End Namespace
Line  157 :  
 




 -------------------------------------------------------------------------------- 
Version Information: Microsoft .NET Framework Version: 1 . 1 . 4322 . 573 ; ASP.NET Version: 1 . 1 . 4322 . 573  

Compilation Error 
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately. 
Compiler Error Message: BC30807: 'Let' and 'Set' assignment statements are no longer supported.

Source Error:

 

Line  25 : 
Line  26 : Dim fs 
Line  27 : Set fs = CreateObject("Scripting.FileSystemObject")
Line  28 : 
Line  29 : 	action = Request.Form("action")

Source File: C:\Ilya_test\download1.asp    Line:  27  



Show Detailed Compiler Output:

c:\windows\system32\inetsrv> "c:\windows\microsoft.net\framework\v1.1.4322\vbc.exe" /t:library /utf8output /R:"c:\windows\assembly\gac\system.web\1.0.5000.0__b03f5f7f11d50a3a\system.web.dll" /R:"c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e089\system.dll" /R:"c:\windows\assembly\gac\system.web.services\1.0.5000.0__b03f5f7f11d50a3a\system.web.services.dll" /R:"c:\windows\assembly\gac\system.xml\1.0.5000.0__b77a5c561934e089\system.xml.dll" /R:"c:\windows\assembly\gac\system.web.mobile\1.0.5000.0__b03f5f7f11d50a3a\system.web.mobile.dll" /R:"c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5f7f11d50a3a\system.drawing.dll" /R:"c:\windows\assembly\gac\system.data\1.0.5000.0__b77a5c561934e089\system.data.dll" /R:"c:\windows\assembly\gac\system.enterpriseservices\1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseservices.dll" /out:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\3b3ce5b2\4edb6f3c\nvmog3i3.dll" /debug- /win32resource:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\3b3ce5b2\4edb6f3c\nvmog3i3.res"  "C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\3b3ce5b2\4edb6f3c\nvmog3i3.0.vb"


Microsoft (R) Visual Basic .NET Compiler version  7 . 10 . 3052 . 4 
for Microsoft (R) .NET Framework version  1 . 1 . 4322 . 573 
Copyright (C) Microsoft Corporation  1987 - 2002 . All rights reserved.

C:\Ilya_test\download1.asp( 27 ) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

Set fs = CreateObject("Scripting.FileSystemObject")
~~~                                                
C:\Ilya_test\download1.asp( 29 ) : error BC30451: Name 'action' is not declared.

    action = Request.Form("action")
    ~~~~~~                         
C:\Ilya_test\download1.asp( 30 ) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

    Set f_gb = fs.OpenTextFile("/site/download.txt",  1 ,  0 )
    ~~~                                                   
C:\Ilya_test\download1.asp( 30 ) : error BC30451: Name 'f_gb' is not declared.

    Set f_gb = fs.OpenTextFile("/site/download.txt",  1 ,  0 )
        ~~~~                                              
C:\Ilya_test\download1.asp( 31 ) : error BC30451: Name 'gb_id' is not declared.

    gb_id = f_gb.ReadLine
    ~~~~~                
C:\Ilya_test\download1.asp( 31 ) : error BC30451: Name 'f_gb' is not declared.

    gb_id = f_gb.ReadLine
            ~~~~         
C:\Ilya_test\download1.asp( 33 ) : error BC30451: Name 'f_gb' is not declared.

                f_gb.Close
                ~~~~      
C:\Ilya_test\download1.asp( 34 ) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

    Set f_gb = Nothing
    ~~~               
C:\Ilya_test\download1.asp( 34 ) : error BC30451: Name 'f_gb' is not declared.

    Set f_gb = Nothing
        ~~~~          
C:\Ilya_test\download1.asp( 36 ) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

    Set f_gb = fs.OpenTextFile("/site/download.txt",  1 ,  0 )
    ~~~                                                   
C:\Ilya_test\download1.asp( 36 ) : error BC30451: Name 'f_gb' is not declared.

    Set f_gb = fs.OpenTextFile("/site/download.txt",  1 ,  0 )
        ~~~~                                              
C:\Ilya_test\download1.asp( 37 ) : error BC30451: Name 'gb_id' is not declared.

    gb_id = f_gb.ReadLine
    ~~~~~                
C:\Ilya_test\download1.asp( 37 ) : error BC30451: Name 'f_gb' is not declared.

    gb_id = f_gb.ReadLine
            ~~~~         
C:\Ilya_test\download1.asp( 39 ) : error BC30451: Name 'f_gb' is not declared.

                While not f_gb.AtEndOfStream
                          ~~~~              
C:\Ilya_test\download1.asp( 40 ) : error BC30451: Name 'gb_thema' is not declared.

        gb_thema = f_gb.ReadLine
        ~~~~~~~~                
C:\Ilya_test\download1.asp( 40 ) : error BC30451: Name 'f_gb' is not declared.

        gb_thema = f_gb.ReadLine
                   ~~~~         
C:\Ilya_test\download1.asp( 41 ) : error BC30451: Name 'gb_message' is not declared.

        gb_message = f_gb.ReadLine
        ~~~~~~~~~~                
C:\Ilya_test\download1.asp( 41 ) : error BC30451: Name 'f_gb' is not declared.

        gb_message = f_gb.ReadLine
                     ~~~~         
C:\Ilya_test\download1.asp( 43 ) : error BC30451: Name 'gb_thema' is not declared.

        if gb_thema="" then
           ~~~~~~~~        
C:\Ilya_test\download1.asp( 44 ) : error BC30451: Name 'out_thema' is not declared.

            out_thema = "Без названия"
            ~~~~~~~~~                 
C:\Ilya_test\download1.asp( 46 ) : error BC30451: Name 'out_thema' is not declared.

            out_thema = gb_thema
            ~~~~~~~~~           
C:\Ilya_test\download1.asp( 46 ) : error BC30451: Name 'gb_thema' is not declared.

            out_thema = gb_thema
                        ~~~~~~~~
C:\Ilya_test\download1.asp( 49 ) : error BC30451: Name 'f_gb' is not declared.

        While not ((f_gb.AtEndOfStream) or (left(gb_message,  1 )="#"))
                    ~~~~                                             
C:\Ilya_test\download1.asp( 49 ) : error BC30451: Name 'gb_message' is not declared.

        While not ((f_gb.AtEndOfStream) or (left(gb_message,  1 )="#"))
                                                 ~~~~~~~~~~          
C:\Ilya_test\download1.asp( 52 ) : error BC30451: Name 'out_thema' is not declared.

            __output.Write(out_thema)
                           ~~~~~~~~~ 
C:\Ilya_test\download1.asp( 54 ) : error BC30451: Name 'gb_message' is not declared.

            gb_message = f_gb.ReadLine
            ~~~~~~~~~~                
C:\Ilya_test\download1.asp( 54 ) : error BC30451: Name 'f_gb' is not declared.

            gb_message = f_gb.ReadLine
                         ~~~~         
C:\Ilya_test\download1.asp( 55 ) : error BC30809: 'Wend' statements are no longer supported; use 'End While' statements instead.

        Wend
        ~~~~
C:\Ilya_test\download1.asp( 56 ) : error BC30451: Name 'gb_id' is not declared.

        gb_id = gb_message
        ~~~~~             
C:\Ilya_test\download1.asp( 56 ) : error BC30451: Name 'gb_message' is not declared.

        gb_id = gb_message
                ~~~~~~~~~~
C:\Ilya_test\download1.asp( 57 ) : error BC30809: 'Wend' statements are no longer supported; use 'End While' statements instead.

    Wend
    ~~~~
C:\Ilya_test\download1.asp( 58 ) : error BC30451: Name 'f_gb' is not declared.

    f_gb.Close
    ~~~~      
C:\Ilya_test\download1.asp( 59 ) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

    Set f_gb = Nothing
    ~~~               
C:\Ilya_test\download1.asp( 59 ) : error BC30451: Name 'f_gb' is not declared.

    Set f_gb = Nothing
        ~~~~          

 



Show Complete Compilation Source:


Line  1 :    '------------------------------------------------------------------------------
Line 2:    ' <autogenerated>
Line  3 :    '     This code was generated by a tool.
Line 4:    '     Runtime Version:  1 . 1 . 4322 . 573 
Line  5 :    '
Line 6:    '     Changes to this file may cause incorrect behavior and will be lost if 
Line  7 :    '     the code is regenerated.
Line 8:    ' </autogenerated>
Line  9 :    ' ------------------------------------------------------------------------------ 
Line  10 :   
Line  11 :   Option Strict Off
Line  12 :   Option Explicit On
Line  13 :   
Line  14 :   Imports Microsoft.VisualBasic
Line  15 :   Imports System
Line  16 :   Imports System.Collections
Line  17 :   Imports System.Collections.Specialized
Line  18 :   Imports System.Configuration
Line  19 :   Imports System.Text
Line  20 :   Imports System.Text.RegularExpressions
Line  21 :   Imports System.Web
Line  22 :   Imports System.Web.Caching
Line  23 :   Imports System.Web.Security
Line  24 :   Imports System.Web.SessionState
Line  25 :   Imports System.Web.UI
Line  26 :   Imports System.Web.UI.HtmlControls
Line  27 :   Imports System.Web.UI.WebControls
Line  28 :   
Line  29 :   Namespace ASP
Line  30 :       
Line  31 :       Public Class ind_download1_aspx
Line  32 :           Inherits System.Web.UI.Page
Line  33 :           Implements System.Web.SessionState.IRequiresSessionState
Line  34 :           
Line  35 :           Private Shared __initialized As Boolean = false
Line  36 :           
Line  37 :           Private Shared __stringResource As Object
Line  38 :           
Line  39 :           Private Shared __fileDependencies As System.Collections.ArrayList
Line  40 :           
Line  41 :           Public Sub New()
Line  42 :               MyBase.New
Line  43 :               Dim dependencies As System.Collections.ArrayList
Line  44 :               If (ASP.ind_download1_aspx.__initialized = false) Then
Line  45 :                   ASP.ind_download1_aspx.__stringResource = System.Web.UI.TemplateControl.ReadStringResource(GetType(ASP.ind_download1_aspx))
Line  46 :                   dependencies = New System.Collections.ArrayList
Line  47 :                   dependencies.Add("C:\Ilya_test\ind_download1.aspx")
Line  48 :                   dependencies.Add("C:\Ilya_test\download1.asp")
Line  49 :                   ASP.ind_download1_aspx.__fileDependencies = dependencies
Line  50 :                   ASP.ind_download1_aspx.__initialized = true
Line  51 :               End If
Line  52 :           End Sub
Line  53 :           
Line  54 :           Protected Overrides ReadOnly Property SupportAutoEvents As Boolean
Line  55 :               Get
Line  56 :                   Return false
Line  57 :               End Get
Line  58 :           End Property
Line  59 :           
Line  60 :           Protected ReadOnly Property ApplicationInstance As System.Web.HttpApplication
Line  61 :               Get
Line  62 :                   Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line  63 :               End Get
Line  64 :           End Property
Line  65 :           
Line  66 :           Public Overrides ReadOnly Property TemplateSourceDirectory As String
Line  67 :               Get
Line  68 :                   Return "/"
Line  69 :               End Get
Line  70 :           End Property
Line  71 :           
Line  72 :           Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control)
Line  73 :               __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line  74 :           End Sub
Line  75 :           
Line  76 :           Private Sub __Render__control1(ByVal __output As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line  77 :               Me.WriteUTF8ResourceString(__output,  0 ,  23638 , false)
Line  78 :               Me.WriteUTF8ResourceString(__output,  23638 ,  683 , false)
Line  79 :               
Line  80 :               #ExternalSource("C:\Ilya_test\download1.asp", 24 )
Line  81 :               
Line  82 :   
Line  83 :   Dim fs 
Line  84 :   Set fs = CreateObject("Scripting.FileSystemObject")
Line  85 :   
Line  86 :   	action = Request.Form("action")
Line  87 :   	Set f_gb = fs.OpenTextFile("/site/download.txt",  1 ,  0 )
Line  88 :   	gb_id = f_gb.ReadLine
Line  89 :   
Line  90 :               
Line  91 :               #End ExternalSource
Line  92 :               
Line  93 :               #ExternalSource("C:\Ilya_test\download1.asp", 33 )
Line  94 :               	f_gb.Close
Line  95 :   	Set f_gb = Nothing
Line  96 :   	
Line  97 :   	Set f_gb = fs.OpenTextFile("/site/download.txt",  1 ,  0 )
Line  98 :   	gb_id = f_gb.ReadLine
Line  99 :   
Line  100 :              
Line  101 :              #End ExternalSource
Line  102 :              
Line  103 :              #ExternalSource("C:\Ilya_test\download1.asp", 39 )
Line  104 :              	While not f_gb.AtEndOfStream
Line  105 :  		gb_thema = f_gb.ReadLine
Line  106 :  		gb_message = f_gb.ReadLine
Line  107 :  		
Line  108 :  		if gb_thema="" then
Line  109 :  			out_thema = "Без названия"
Line  110 :  		else
Line  111 :  			out_thema = gb_thema
Line  112 :  			end if
Line  113 :  
Line  114 :  		While not ((f_gb.AtEndOfStream) or (left(gb_message,  1 )="#"))
Line  115 :  
Line  116 :              
Line  117 :              #End ExternalSource
Line  118 :              __output.Write(""&Microsoft.VisualBasic.ChrW( 13 )&Microsoft.VisualBasic.ChrW( 10 )&"<p><font face=""Verdana"" size=""2""><span style=""font-size:8.0pt;font-family:Verda"& _ 
Line  119 :  "na;"">        "&Microsoft.VisualBasic.ChrW( 13 )&Microsoft.VisualBasic.ChrW( 10 )&"<img border=""0"" src=""imag"& _ 
Line  120 :  "es/arhive.bmp"">  ")
Line  121 :              
Line  122 :              #ExternalSource("C:\Ilya_test\download1.asp", 52 )
Line  123 :              __output.Write(out_thema)
Line  124 :              
Line  125 :              #End ExternalSource
Line  126 :              __output.Write("</span></font></p>"&Microsoft.VisualBasic.ChrW( 13 )&Microsoft.VisualBasic.ChrW( 10 ))
Line  127 :              
Line  128 :              #ExternalSource("C:\Ilya_test\download1.asp", 53 )
Line  129 :              
Line  130 :  			gb_message = f_gb.ReadLine
Line  131 :  		Wend
Line  132 :  		gb_id = gb_message
Line  133 :  	Wend
Line  134 :  	f_gb.Close
Line  135 :  	Set f_gb = Nothing
Line  136 :  
Line  137 :  
Line  138 :              
Line  139 :              #End ExternalSource
Line  140 :              Me.WriteUTF8ResourceString(__output,  24321 ,  1624 , false)
Line  141 :              Me.WriteUTF8ResourceString(__output,  25945 ,  799 , false)
Line  142 :          End Sub
Line  143 :          
Line  144 :          Protected Overrides Sub FrameworkInitialize()
Line  145 :              SetStringResourcePointer(ASP.ind_download1_aspx.__stringResource,  26744 )
Line  146 :              Me.__BuildControlTree(Me)
Line  147 :              Me.FileDependencies = ASP.ind_download1_aspx.__fileDependencies
Line  148 :              Me.EnableViewStateMac = true
Line  149 :              Me.Request.ValidateInput
Line  150 :          End Sub
Line  151 :          
Line  152 :          Public Overrides Function GetTypeHashCode() As Integer
Line  153 :              Return - 683747614 
Line  154 :          End Function
Line  155 :      End Class
Line  156 :  End Namespace
Line  157 :  
 




 -------------------------------------------------------------------------------- 
Version Information: Microsoft .NET Framework Version: 1 . 1 . 4322 . 573 ; ASP.NET Version: 1 . 1 . 4322 . 573