Все переменные являются вариантами в VBScript, если вы не указали литеральное значение для этой переменной.
Таким образом, const CSortFielda - это число.
Но vSortField - это вариант, который содержит STRING значенияэлемента строки запроса SortField
Либо измените значение const на строку
Const cSortFields = "1"
Или проанализируйте SortField как число
If Not isEmpty(Request("SortField")) then
If IsNumeric(Request("SortField")) then
vSortField = CLng(Request("SortField"))
End If
End If
Я бы также предложил указатьчто поле взято из строки запроса, хотя это не связано с вашей реальной проблемой:
Request.QueryString.Item("SortField")