Vbscript 获取重定向脚本上的VB脚本错误

我的重定向脚本出现VB编译错误。我将重定向脚本放在服务器的根目录下

<%
If InStr(Request.ServerVariables("oldDomain"),"www") = 0 Then
    Response.Status="301 Moved Permanently"
    Response.AddHeader "Location","http://www."
        & Request.ServerVariables("HTTP_HOST")
        & Request.ServerVariables("REQUEST_URI")
    Response.End
     Response.Redirect("newDomain") 
End if
%>

我不太熟悉VB。任何帮助都将不胜感激

---

谢谢

VBScript中的行继续操作由u完成

样本：

Dim aTests : aTests = Array(_
    Array("5-foo, 10 bar", 15) _
  , Array("11 baz", 11) _
  , Array("bad,string", 0) _
  , Array("hello,123,100,   100   ,xxx", 323) _
  , Array("whatever1junk2inbetween10000orafter", 10003) _
)

Dim aTests : aTests = Array(_
    Array("5-foo, 10 bar", 15) _
  , Array("11 baz", 11) _
  , Array("bad,string", 0) _
  , Array("hello,123,100,   100   ,xxx", 323) _
  , Array("whatever1junk2inbetween10000orafter", 10003) _
)