asp условно включить ошибку Ошибка компиляции Microsoft VBScript '800a0400'

Question

Я следовал предложению Марты здесь: if page is default then include if not default then И что-то у меня отсутствует, так как я не могу заставить его отображать слайдер.

Вот код слайдера и как я использую предложение Марты.

Это слайдер (самозагрузки карусельного) код (для интеграции с предложением Марты)

<div class="jumbotron"> 
    <div class="container"> 
     <div class="row fz-slider-wrap"> 
      <div class="col-md-4 fz-slider-caption"> 
       DFD Fioriere 
      </div> 
      <div class="col-md-8 fz-slider-image"> 
       <div id="fz-gallery-slider" class="carousel slide" data-ride="carousel"> 
        <!-- Indicators --> 
        <ol class="carousel-indicators"> 
        <li data-target="#fz-gallery-slider" data-slide-to="0" class="active"></li> 
        <li data-target="#fz-gallery-slider" data-slide-to="1"></li> 
        <li data-target="#fz-gallery-slider" data-slide-to="2"></li> 

        </ol> 
        <!-- Wrapper for slides --> 
        <div class="carousel-inner"> 
         <div class="item active"> 
         <img class="fz-img-box" src="images/slider/03.jpg" alt="slider 1" /> 
         </div> 
         <div class="item"> 
         <img class="fz-img-box" src="images/slider/01.jpg" alt="slider 2" /> 
         </div> 
         <div class="item"> 
         <img class="fz-img-box" src="images//slider/06.jpg" alt="slider 3" /> 
         </div> 
        </div> 
       </div> 
      </div> 
     </div> 
    </div> 
</div><!-- .jumbotron --> 

Это то, что происходит: Если я ставлю выше код внутри

<% 
Sub DisplaySlider() 
slider code 
    %> 
<% 
End Sub 
%> 

Я получаю эта ошибка при загрузке default.asp

Ошибка компиляции Microsoft VBScript '800a0400'

Ожидаемое заявление

/afz_includes/jumbotron.asp, линия 3

Если я обернуть код слайдера в 'я получаю ту же ошибку, но строка 4 Если я обернуть код слайдера в "я же error (строка 3) Я также попытался обернуть каждую строку кода слайдера с помощью «и chnaged» классов и ids в ', но продолжать получать th-ошибку.

Вот что я ставлю на default.asp, а остальные страницы

<!-- #include virtual="/afz_includes/slider.html" --> 
<% 
scriptname = Request.ServerVariables("Script_Name") 
If InStr(scriptname, "default.asp") > 0 Then 
    DisplaySlider 
Else 
    Response.Write "<div class='fz-v-spacer-top'></div>" 
End If 
%> 

Я не уверен, если это была опечатка, во всяком случае, я попытался сохранить ползунок как в HTML, и жерех, но та же ошибка.

Answer 1

Похоже, вы поместили код слайдера внутри разделителей кода ASP (<% и %>), поэтому компилятор пытается рассматривать его как VBScript, которого, очевидно, нет.

В ASP classic вы помещаете код VBScript на стороне сервера внутри блоков <% %>. Код HTML не зайдите внутрь этих блоков, если только вы не являетесь Response.Write.

<% 
Sub DisplaySlider() 
%> 
<div class="jumbotron"> 
    <div class="container"> 
     ... 
    </div> 
</div><!-- .jumbotron --> 
<% 
End Sub 
%>