Vbscript 选择案例的SQL查询

我正在建立一个电子邮件表单，根据销售团队选择的电子邮件收件人向他们发送电子邮件

我正试图用query构建案例，从数据库中提取数据，而不必实际写出销售团队的每个实例

```     
            <% Select Case ContactEmail %>
              <% Case "1" %><% TeamName="Austin General Sales" & TeamEmail="austin@XX.com"%>
              <% Case "2" %><% TeamName="San Antonio General Sales" & TeamEmail="sanantonio@XX.com"%>
<%
'Declare variables
Dim oConn1, oRS1, mySQL1

Set oConn1=Server.CreateObject("ADODB.Connection")
Set oRS1=Server.CreateObject("ADODB.Recordset")
oConn1.Open(myDSN)

mySQL1 = "SELECT SalesTeam.* FROM SalesTeam WHERE (IsManager=0) ORDER BY SalesTeam.StoreID"

oRS1.open mySQL1, oConn1,1,3

If Not oRS1.EOF Then
Do While not oRS1.eof

Name=oRS1("SalesTeam.Name")
Email=oRS1("SalesTeam.Email")
MemberID=oRS1("TeamMemberID")

    %>
              <% Case & " " & MemberID %><% TeamName=Name & TeamEmail=Email%>
    <%
oRS1.movenext
Loop
End if
oRS1.Close
Set oRS1=nothing
oConn1.Close
Set oConn1=nothing
%>

            <% End Select %>

---

Select Case

对于每个测试表达式，它的Case需要一个值，这就是为什么它在

Case&“”&MemberID

上失败的原因，它既不是值，也不是正确的语法

VBScript中Select语句的语法为

Select Case expression
Case value1
      ...
Case value2
      ... 
Case Else
      ...
End Select

你似乎有一个子案例，你可以做到

Select Case expression
Case value1
      ...
Case value2
      ...

   Select Case expression2
   Case value1
        ...
   Case value2
        ... 
   Case Else
        ...
   End Select          

Case Else
      ...
End Select

或者干脆

if ContactEmail=1 then
   ...
else 

   Select Case expression
   Case value1
        ...
   Case value2
        ... 
   Case Else
        ...
   End Select 

end if

---

这可能会更简单明了。

您好，欢迎来到。请花几分钟时间熟悉格式化工具，然后回答问题，并使用它们整理（代码格式化、缩进等）帖子。

MemberID

来自哪里，代码在哪里都没有定义？请尝试提供足够的代码，让我们能够自己可靠地测试它。虽然这是一个很好的答案，但代码比这有更多的问题。例如，尝试使用<代码>如果和 > while循环语句在<代码>的中间>选择案例< /代码>边界。

if ContactEmail=1 then
   ...
else 

   Select Case expression
   Case value1
        ...
   Case value2
        ... 
   Case Else
        ...
   End Select 

end if