help for the error

praneetha · February 2nd, 2005, 03:32 AM

I'm getting an error in the following code
The error is -
"error '80020009'
Exception Occurred "
Give me an suggestion to fix this error.
The code is as follows,

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<%
dim Conn
set Conn=Server.CreateObject("adodb.Connection")
Conn.Open "Data Source=bpl;UID=bpl_ccc;PWD=password;"
nm=Request.Form("Bpcode")
set strq=Conn.Execute ("select * from REG_NEW")

if strq.fields("BP_CODE") <> nm then
window.open("http://cc15/pm/save.asp")
else
window.open("http://cc15/pm/complaint.asp")
end if

%>
</HEAD>
<BODY>

<P> </P>

</BODY>
</HTML>

om_prakash · February 2nd, 2005, 01:01 PM

'Modify the condition as:

if not strq.EOF then
  if strq.fields("BP_CODE") <> nm then
    window.open("http://cc15/pm/save.asp")
  else
    window.open("http://cc15/pm/complaint.asp")
  end if
end if

Om Prakash