Html 预期报表

Html 预期报表,html,vbscript,asp-classic,Html,Vbscript,Asp Classic,您好,我在一个测试网站上工作,我希望用户能够查看数据库中的条目,用户可以选择是否需要来自客户、地址或订单的数据。 当我打开它时,它在第82行的wend上显示预期语句 这是我的密码: <form action="DB_HTML_Styled.asp" method="get"> <% response.flush %> <table border = "1" width = "500" heigth = "500" align = "Center"&

您好,我在一个测试网站上工作,我希望用户能够查看数据库中的条目,用户可以选择是否需要来自客户、地址或订单的数据。 当我打开它时,它在第82行的
wend
上显示预期语句

这是我的密码:

     <form action="DB_HTML_Styled.asp" method="get">
  <%
  response.flush
%>
<table border = "1" width = "500" heigth = "500" align = "Center">
  <tr>
        <td align = "left" width =  "100">
          <select name = "f_operator" onchange"">
            <option value = "1" <% if l_operator = "1" then response.write("selected") end if %>>Kunde</option>
            <option value = "2" <% if l_operator = "2" then response.write("selected") end if %>>Auftrag</option>
            <option value = "3" <% if l_operator = "3" then response.write("selected") end if %>>Ort</option>
        </td>
  </tr> 
<%  Set l_DBCon = Server.CreateObject("ADODB.Connection")
    l_DBCon.Open "db_amill136_test"
    Dim l_rs
    Set l_rs = Server.CreateObject("ADODB.Recordset")
select case l_operator
case "1"
    l_query = "select * from t_kunde"
case "2"
    l_query = "select * from t_auftrag"
case "3"
    l_query = "select * from t_ort"
case "4"

%>
  <tr><td><%=l_query%></td></td>
  <%
    l_rs.Open l_query, l_dbcon
    while not l_rs.EOF  %>

<%if l_operator =  "1" then %>
  <tr>
    <td>
      <%=l_rs("f_vorname")%>
    </td>
    <td>
      <%=l_rs("f_name")%>
    </td>
    <td>
      <%=l_rs("f_kundennr")%>
    </td>
    <td>
      <%=l_rs("f_ortnr")%>
    </td>
    <%else if l_operator =  "2" then%>
        <td>
      <%=l_rs("f_auftragsnr")%>
    </td>
    <td>
      <%=l_rs("f_menge")%>
    </td>
    <td>
      <%=l_rs("f_rabatsatz")%>
    </td>
    <td>
      <%=l_rs("f_datum")%>
    </td>
    <td>
      <%=l_rs("f_kundennr")%>
    </td>
    <%else if l_operator =  "3" then%>
      <%=l_rs("f_ortnr")%>
    </td>
    <td>
      <%=l_rs("f_ort")%>
    </td>
    <td>
      <%=l_rs("f_plz")%>
    </td>
  </tr>
<%end if
        l_rs.MoveNext
      wend

    l_rs.Close
    Set l_rs = Nothing

    l_DBCon.Close
    set l_DBCon = Nothing
%>

  </table>
    </form>

昆德
奥夫特拉格
奥特

目前,在wend之前需要三个“end if”语句,因为“while”中有三个单独的“if”语句

不要使用“ElseIf”(带空格)而使用“ElseIf”(不带空格),因此您只需要一个“end If”


或者,您可能希望使用案例来整理这些嵌套的ifs。

Thank解决了我的问题。我删除了空格,并在第87行中添加了一个端点选择。