Здравствуйте!
На странице показаны записи из БД. Т.к. записей очень много, то страница разбивается на n - ое кол-во страниц с одинаковым количеством записей. Данные на странице можно фильтровать, т.е. если я нажму на слово Центр, то у меня остануться только записи с расположением в Центре. Таких записей получается тоже больше чем 1 страница. (Напр., они располагаются на 3-х страницах). Так вот, при переходе на следующую страницу фильтр теряется. Т.е. я перехожу на вторую страницу из n, а не из трех.
Почему так получается мне понятно. При переходе на следующую страницу QuereString ничего не содержит и поэтому выполняется запрос, содержащий все записи. Но как решить эту проблему я не знаю. Помогите, пожалуйста!
Скрипт написан на VBS.

<%
Set cnn=Server.CreateObject("ADODB.Connection")
Set rst=Server.CreateObject("ADODB.Recordset")
cnn.CursorLocation=adUseClient
cnn.Open strASP
If Request.QueryString("Mest")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where Местоположение='"& (Request.QueryString("Mest")) & "'" , cnn
else
If Request.QueryString("Or")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where Ориентир='"& (Request.QueryString("Or")) & "'", cnn
else
If Request.QueryString("Kom")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where Комнат="& (Request.QueryString("Kom")) , cnn
else
If Request.QueryString("Pl")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where Сдан='"& (Request.QueryString("Sdan")) & "'", cnn
else
If Request.QueryString("Et")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where Эт='"& (Request.QueryString("Et")) & "'", cnn
else
If Request.QueryString("Dom")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат,Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where Дома='"& (Request.QueryString("Dom")) & "'", cnn
else
If Request.QueryString("PlOb")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where ПлощадьОбщая="& (Request.QueryString("PlOb")) , cnn
else
If Request.QueryString("PlPol")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where ПлощадьПолезная="& (Request.QueryString("PlPol")), cnn
else
If Request.QueryString("PlKuh")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where ПлощадьКухни="& (Request.QueryString("PlKuh")), cnn
else
If Request.QueryString("Tys")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where СтТыс="& (Request.QueryString("Tys")), cnn
else
If Request.QueryString("Dol")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where СтДол="& (Request.QueryString("Dol")), cnn
else
If Request.QueryString("M")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where СтМ="& (Request.QueryString("M")), cnn
else
If Request.QueryString("Mest")<>"" then
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира where Местоположение='"& (Request.QueryString("Mest")) & "'", cnn
else
rst.Open "Select КодСделки, Ориентир, Комнат, Сдан, Эт, Дома, ПлощадьОбщая, ПлощадьПолезная, ПлощадьКухни, СтТыс, СтДол, СтМ, Местоположение from СтройвариантКвартира", cnn, adOpenStatic, adLockReadOnly
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
rst.PageSize=50
varPageCnt=rst.PageCount
If Not IsEmpty(Request.Form("PageNum")) then
varPageNum=CLng(Request.Form("PageNum"))
varAction=Request.Form("cmdSubmit")
If varAction="Первая" then
rst.AbsolutePage=1
ElseIf varAction="Последняя" then
rst.AbsolutePage=varPageCnt
Else
If varAction="Предыдущая" then
If varPageNum=1 then
varPageNum=1
ElseIf varPageNum=adPosEOF then
varPageNum=varPageCnt-1
Else
varPageNum=varPageNum-1
End If
ElseIf varAction="Следующая" then
If varPageNum=adPosEOF Or varPageNum=varPageCnt then
varPageNum=varPageCnt
Else
varPageNum=varPageNum+1
end if
end if
rst.absolutePage=varPageNum
End If
Else
varPageNum=1
End If
%>
-------------------------

Но это ничего не дает, все равно при переходе на следующую страницу нужно учитывать, что есть фильтр, т.е. нужно открывать соответствующий запрос, а он открывается только при соответствующем значении QueryString