一个关于查询的问题.

[GRUBs]

在mssql中搜索,可始终只能找到最近的东西,我把日期限制也去掉,还是不行.哪个大大帮忙看看.我该改哪儿?
mssql中case的caseid是我想要搜索的.可是始终只搜索到一条信息,无法搜索到其他的.

<%
dim objRst
Dim intPageCount
Dim intRecordCount
Dim intPage
Dim intRecord
dim intEndNum '取得后面的值 10-20记录中的20
dim g_CaseID
dim g_ServiceName
dim intPageSize
dim g_LoginID
dim g_Date1Text
dim g_Date2Text
dim strStatus
dim strURLCx
dim strURLSelf
dim strDept

g_CaseID = ""
g_ServiceName = ""
strURLCx = ""
intPageSize = 10
g_LoginID = Session("g_LoginID")
If Request.QueryString("CURPAGE") = "" Then
intPage = 1
Else
intPage = Request.QueryString("CURPAGE")
End If
If Request.Form("txtCaseID") <> "" Then
g_CaseID = Request.Form("txtCaseID")
Else
g_CaseID = Request.QueryString("CASEID")
End If
If Request.Form("txtSerName") <> "" Then
g_ServiceName = Request.Form("txtSerName")
Else
g_ServiceName = Request.QueryString("SERNAME")
End If
if cstr(g_ServiceName) = "全部服务" then
g_ServiceName = ""
end if
If Request.QueryString("DATE1") = "" Then
if trim(Request.Form("dtStartDate")) = "" then
g_Date1Text = Date() 'FormatDateTime(Date(),vbLongDate)
else
g_Date1Text = Request.Form("dtStartDate")
end if
Else
g_Date1Text = Request.QueryString("DATE1")
End If
If Request.QueryString("DATE2") = "" Then
if trim(Request.Form("dtEndDate")) = "" then
g_Date2Text = Date() 'FormatDateTime(Date(),vbLongDate)
else
g_Date2Text = Request.Form("dtEndDate")
end if
Else
g_Date2Text = Request.QueryString("DATE2")
End If
'
if Request.QueryString("STATUS") = "" then
strStatus = Request.Form("OptStatus")
else
strStatus = Request.QueryString("STATUS")
end if

if Request.QueryString("DEPT") = "" then
strDept = Request.Form("Dept")
else
strDept = Request.QueryString("DEPT")
end if
if strDept = "" then
strDept = "-1"
end if

intEndNum = intPage * intPageSize
strURLSelf = "&CASEID=" & g_CaseID & "&SERNAME=" & g_ServiceName & "&DATE1=" & g_Date1Text & "&DATE2=" & g_Date2Text & "&STATUS=" & strStatus & "&DEPT=" & strDept
strURLCx = "ShenPiCxLD_d.asp?CURPAGE=" & intPage & strURLSelf
strURLCx = Server.URLEncode(cstr(strURLCx))

Set ProAuditCx = CreateObject("zfAuditingAsp.clsAuditingAsp")
Set objRst = CreateObject("ADODB.Recordset")
set objRst = ProAuditCx.GetShenPiCxForASPLD(Session("IsAdmin"), cstr(intPageSize),cstr(intEndNum),cstr(strDept), _
cstr(g_LoginID),cstr(g_Date1Text), cstr(g_Date2Text), cstr(g_CaseID),cstr(g_ServiceName),cstr(strStatus))

intRecordCount = ProAuditCx.GetRsCount

If Int(intRecordCount / intPageSize) = intRecordCount / intPageSize Then
intPageCount = Int(intRecordCount / intPageSize)
Else
intPageCount = Int(intRecordCount / intPageSize) + 1
End If

'装载窗口部门数据
dim objRstDept
dim strDeptID
dim strDeptName
set objRstDept = CreateObject("ADODB.Recordset")
set objRstDept = ProAuditCx.GetAllDepartments()

Set ProAuditCx = nothing
%>

[showlin]

Set ProAuditCx = CreateObject("zfAuditingAsp.clsAuditingAsp")
ProAuditCx.GetShenPiCxForASPLD
ProAuditCx.GetAllDepartments
………………
搞一堆自定义的类来，谁看的懂哦
你把g_CaseID打出来看看值吧…………

[GRUBs]

如果我要列出CaseId里的值,我能怎么做?当输入的值为空,就显示全部列表,如果输入对应的值,就显示那个.我初学的,不怎么懂..

[patchclass]

sql语句呢?一堆代码,没有提供什么有用信息啊