麻烦大侠给看看: ODBC驱动程序不支持所需的属性 ??怎么回事????
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21' ODBC 驱动程序不支持所需的属性。
/jlxt/Qy_QyxhFind_New.asp，行 103
93 Set Grs_Recordset = Server.Createobject("adodb.recordset")
94 Gs_Sql = "Select Qybm,Qymc,Zzzsbh,Zzdj,Yyzzzch,Txdz,Zczyjsryrs,Qyxydafs"
95 Gs_Sql = Gs_Sql & " From T_Qy_Zjzxqyxxb"
96 If Session("Session_FindMode") = "QYYHBM" Then
97 Gs_Sql = Gs_Sql & " Where Qybm = '" & Session("Session_FindQyyhbm") & "'"
98 ElseIf Session("Session_FindMode") = "QYMC" Then
99 Gs_Sql = Gs_Sql & " Where Qymc Like '%" & Session("Session_FindQymc") & "%'"
100 Else
101 Gs_Sql = Gs_Sql & " Order By Qybm"
102 End If
103 Grs_Recordset.Open Gs_Sql,conn,1,1
104 If (Not Grs_Recordset.Eof) And (Not Grs_Recordset.Bof) Then
105 Call Fn_Blfz_Yhjbzl()
106 If Session("Session_FindMode") = "QYYHBM" Then
107 Ls_Title = "本系统注册企业[" & Session("Session_FindQyyhbm") & "—" & Ls_Qymc & "]基本资料记录"
108 ElseIf Session("Session_FindMode") = "QYMC" Then
109 Ls_Title = "本系统注册企业[" & Session("Session_FindQymc") & "]基本资料记录"
110 Else
111 Ls_Title = "本系统注册企业[所有]基本资料记录"
112 End If
113 Else
114 Ls_Title = "没有找到符合条件的系统注册企业基本资料记录"
115 End If
116 End Sub
117 %>
~~~