Просто воспользуйтесь циклом модуля
по списку и выполните следующее для каждого элемента
if(num % 2 == 0)
{
//is even
}
else
{
//is odd
}
В качестве альтернативы, если вы хотите узнать, все ли еще, вы можете сделать что-то вроде этого:
bool allAreEven = lst.All(x => x % 2 == 0);
Просканируйте оставшуюся часть кода. На глобальном уровне вы найдете следующее: -
Dim Request
Переименуйте эту переменную, и ее текущее использование, и объект запроса, прикрепленный к контексту сценария, станет видимым.
Does it work if you try to access it at an earlier point in the page?
Разрешено ли (включено) расширение веб-службы Active Server Pages на вашем сервере?
Я скопировал ваш код в свой тестовый asp-файл со следующим кодом, и он отлично перенаправился.
<%
strServerName = Request.ServerVariables("server_name")
strServerName = UCase(strServerName)
strServerURL = "http://localhost/"
strServerURLhttps = "https://localhost/"
strConnect = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=CBR; Integrated Security=SSPI"
Dim objConn
Dim sql_stmt
Dim rs
Response.Write(strServerName)
if Request.Querystring("test") <> "1" then
Response.Redirect("http://" + strServerName + "/asptest.asp?test=1")
end if
%>
Единственная реальная разница в том, что я добавляю "http: //" к перенаправлению. Может быть, мои действия прольют свет, чтобы помочь вам решить вашу проблему.
спасибо