can anybody tell me what does this error means:
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)
Command text was not set for the command object.
i'm really confused and i don't know what is the problem
thank you

Without the line number and the offending code its difficult to say, are you getting a line number in your error? Searching for your error in this forum would be a wise move, this should help you:
http://p2p.wrox.com/topic.asp?TOPIC_...command,object

Wind is your friend
Matt

it doesn't give me any line number.thank you for your given link.

do you have friendly errors turned off?

tools/internetOptions/advanced/ un check show friendly http error messages. Now you should have line numbers

Wind is your friend
Matt

thank you.my problem has solved.but now there is some thing that doesn't work correctly i wanted to know can we have such recordset or no:
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_QCcon_STRING
if (rs__MMColParam<>"null") and (rs__MMColParam1<>"null") and (rs__MMColParam2<>"") then
rs.Source = "SELECT * FROM dbo.tbHGInf WHERE SiteWorkshop = '" + Replace(rs_MMColParam, "'", "''") + "' AND UnitNo = '" + Replace(rs_MMColParam1, "'", "''") + "' AND HGNo = '" + Replace(rs_MMColParam2, "'", "''") + "' "
end if
if (rs__MMColParam="null") and (rs__MMColParam1<>"null") and (rs__MMColParam2<>"") then
rs.Source = "SELECT * FROM dbo.tbHGInf WHERE UnitNo = '" + Replace(rs_MMColParam1, "'", "''") + "' AND HGNo = '" + Replace(rs_MMColParam2, "'", "''") + "' "
end if

if (rs__MMColParam<>"null") and (rs__MMColParam1="null") and (rs__MMColParam2<>"") then
rs.Source = "SELECT * FROM dbo.tbHGInf WHERE SiteWorkshop = '" + Replace(rs_MMColParam, "'", "''") + "' AND HGNo = '" + Replace(rs_MMColParam2, "'", "''") + "' "
end if

if (rs__MMColParam<>"null") and (rs__MMColParam1<>"null") and (rs__MMColParam2="") then
rs.Source = "SELECT * FROM dbo.tbHGInf WHERE SiteWorkshop = '" + Replace(rs_MMColParam, "'", "''") + "' AND UnitNo = '" + Replace(rs_MMColParam1, "'", "''") + "' "
end if
if (rs__MMColParam="null") and (rs__MMColParam1="null") and (rs__MMColParam2<>"") then
rs.Source = "SELECT * FROM dbo.tbHGInf WHERE HGNo = '" + Replace(rs_MMColParam2, "'", "''") + "'"
end if
if (rs__MMColParam="null") and (rs__MMColParam1<>"null") and (rs__MMColParam2="") then
rs.Source = "SELECT * FROM dbo.tbHGInf WHERE UnitNo = '" + Replace(rs_MMColParam1, "'", "''") + "' "
end if

if (rs__MMColParam<>"null") and (rs__MMColParam1="null") and (rs__MMColParam2="") then
rs.Source = "SELECT * FROM dbo.tbHGInf WHERE SiteWorkshop = '" + Replace(rs_MMColParam, "'", "''") + "' "
end if



rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>
thank you for your usefull help again and tell me wehere is the problem in these code please