Microsoft VBScript runtime (0x800A01A8) Object required error

liunx · Jan 11, 2008

Hey all! I am getting this error whenever I try to execute my .asp file. I have no idea why! Please help!! Here is my code. The line that it is stating I have the error is in red font. Thanks in advance!

<html>
<%
Response.Write "<HEAD><TITLE>" & Request.Form("Categories") & "." & Request.Form("Areas")
Response.Write "</TITLE></HEAD>"
Response.Write "<body>"

dim cn
dim rs
dim rsColumns
dim rsRelate
dim rsIndex
dim rsExtract

'on error resume next
set cn = Server.CreateObject("ADODB.Connection")
cn.open "DSN=EBWEB;UID=dlf14;Password=********;DBALIAS=EBWEB;"

'Check for DB connection errors
if err.number <> 0 then
Response.Write "Database Error: " & cn.Errors(0) & "</Body></HTML>"
set cn = nothing
set rs = nothing
set rsColumns = nothing
set rsRelate = nothing
set rsIndex=nothing
set rsExtract=nothing
Response.End
end if

'Check for data retrieval errors
if err.number <> 0 then
Response.Write "Database Error: " & err.description & "</Body></HTML>"
set cn = nothing
set rs = nothing
set rsColumns = nothing
set rsRelate = nothing
set rsIndex=nothing
set rsExtract=nothing
Response.End
end if

%>



<h3>
<% Response.Write Request.Form("Categories") & "." & Request.Form("Areas")%>

<form action='Printer.asp' method='POST' ID="Form1">
<%
Response.Write "<input type='hidden' name ='Classifications' value =" & Request.Form("Classifications") & ">"
Response.Write "<input type='hidden' name ='Categories' value =" & Request.Form("Categories") & ">"
Response.Write "<input type='hidden' name ='Areas' value =" & Request.Form("Areas") & ">"
%>
<RIGHT><input type="submit" style=color"191970" value="Printer Friendly Version" ID="Submit1" NAME="Submit1"></RIGHT>
</form>
</TD></tr>
</table>
 
<TABLE cellpadding="5">
<TR>
<TD colspan="14" BGCOLOR=#b0c0e0>Columns</TD>
</TR>
<tr>
<td bgcolor=#c0d5c0>Last Name</td>
<td bgcolor=#d5d5c0>First Name</td>
<td bgcolor='#c0d5c0'>Phone Number Ext.</td>
<td bgcolor=#d5d5c0>Business Category</td>
<td bgcolor='#c0d5c0'>Data Trustee Role</td>
<td bgcolor='#c0d5c0'>Data Level</td>
<td bgcolor='#c0d5c0'>Data Asset Name</td>
<td bgcolor=#d5d5c0>Data Classifcation</td>
<td bgcolor='#c0d5c0'>Subject Area Category</td>
<td bgcolor='#c0d5c0'>Subject Area</td>
</tr>

<%
set rsColumns = Server.CreateObject("ADODB.Recordset")
rsColumns.ActiveConnection = cn
rsColumns.Open "SELECT IP.LAST_NM, IP.FIRST_NM, IP.PHONE_NBR_TXT, BC.BUSN_CATEG_NM, TR.DATA_TRSTE_ROLE_NM, DE.DATA_LEVEL_NM, DA.DATA_ASSET_NAME, DL.DATA_CLASS_NM, DC.DATA_CATEG_NM, SA.SBJCT_AREA_NM FROM NDDBA.INDIV_PARTY IP,NDDBA.INDIV_PARTY_BUSN_CATEG PB, NDDBA.BUSN_CATEG BC, NDDBA.DATA_TRSTE_ROLE TR, NDDBA.DATA_ASSET_TRSTE DT, NDDBA.DATA_ASSET DA, NDDBA.DATA_LEVEL DE, NDDBA.DATA_CATEG_SBJCT_AREA CA, NDDBA.SBJCT_AREA SA, NDDBA.DATA_CATEG DC, NDDBA.DATA_CLASS DL WHERE IP.INDIV_PARTY_ID = PB.INDIV_PARTY_ID AND PB.BUSN_CATG_ID = BC.BUSN_CATG_ID AND DT.INDIV_PARTY_ID = PB.INDIV_PARTY_ID AND DT.BUSN_CATG_ID = PB.BUSN_CATG_ID AND DT.DATA_TRSTE_ROLE_ID = TR.DATA_TRSTE_ROLE_ID AND DT.DATA_ASSET_ID = DA.DATA_ASSET_ID AND DE.DATA_LEVEL_ID = DA.DATA_LEVEL_ID AND DA.DATA_CATEG_ID = CA.DATA_CATEG_ID AND DA.SBJCT_AREA_ID = CA.SBJCT_AREA_ID AND SA.SBJCT_AREA_ID = CA.SBJCT_AREA_ID AND CA.DATA_CATEG_ID = DC.DATA_CATEG_ID AND DC.DATA_CLASS_ID = DL.DATA_CLASS_ID AND DL.DATA_CLASS_NM = '" & Request.Form("Classifications") & "'AND DC.DATA_CATEG_NM = '" & Request.Form("Categories") & "' AND SA.SBJCT_AREA_NM = '" & Request.Form("Areas") & "'"

do while not rsColumns.EOF
Response.Write "<TR>"

'LAST_NM
Response.Write "<td bgcolor='#d0ffd0' valign='top'>"
Response.Write "<A name='" & rsColumns("LAST_NM") & "' id='" & rsColumns("LAST_NM") & "'/>"
Response.Write rsColumns("LAST_NM") & "</TD>"

'FIRST_NM
Response.Write "<td bgcolor='#ffffd0' valign='top'>"
Response.Write rsColumns("FIRST_NM") & "</TD>"

'PHONE_NBR_TXT
Response.Write "<td bgcolor='#d0ffd0' valign='top'>"
Response.Write rsColumns("PHONE_NBR_TXT") & "</TD>"

'BUSN_CATEG_NM
Response.Write "<td bgcolor='#ffffd0' valign='top'><CENTER>"
Response.Write rsColumns("BUSN_CATEG_NM") & "</CENTER></TD>"

'DATA_TRSTE_ROLE_NM
Response.Write "<td bgcolor='#d0ffd0' valign='top'>"
Response.Write rsColumns("DATA_TRSTE_ROLE_NM") & "</TD>"

'DATA_LEVEL_NM
Response.Write "<td bgcolor='#ffffd0' valign='top'><CENTER>"
Response.Write rsColumns("DATA_LEVEL_NM") & "</CENTER></TD>"

'DATA_ASSET_NAME
Response.Write "<td bgcolor='#d0ffd0' valign='top'>"
Response.Write rsColumns("DATA_ASSET_NAME") & "</TD>"

'DATA_CLASS_NM
Response.Write "<td bgcolor='#ffffd0' valign='top'><CENTER>"
Response.Write rsColumns("DATA_CLASS_NM") & "</CENTER></TD>"

'DATA_CATEG_NM
Response.Write "<td bgcolor='#d0ffd0' valign='top'><CENTER>"
Response.Write rsColumns("DATA_CATEG_NM") & "</CENTER></TD>"

'SBJCT_AREA_NM
Response.Write "<td bgcolor='#ffffd0' valign='top'><CENTER>"
Response.Write rsColumns("SBJCT_AREA_NM") & "</CENTER></TD>"

Response.Write "</TR>"

rsColumns.MoveNext
loop
rsColumns.Close

%>
<tr>
<td bgcolor=#c0d5c0>Last Name</td>
<td bgcolor=#d5d5c0>First Name</td>
<td bgcolor='#c0d5c0'>Phone Number Ext.</td>
<td bgcolor=#d5d5c0>Business Category</td>
<td bgcolor='#c0d5c0'>Data Trustee Role</td>
<td bgcolor='#c0d5c0'>Data Level</td>
<td bgcolor='#c0d5c0'>Data Asset Name</td>
<td bgcolor=#d5d5c0>Data Classifcation</td>
<td bgcolor='#c0d5c0'>Subject Area Category</td>
<td bgcolor='#c0d5c0'>Subject Area</td>
</tr>
</TABLE>

<%

if rs.state = 1 then
rs.close
end if

if rsColumns.state = 1 then
rsColumns.close
end if

if rsRelate.state = 1 then
rsRelate.close
end if

if cn.state = 1 then
cn.close
end if

set cn = nothing
set rs = nothing
set rsColumns = nothing
set rsRelate = nothing
set rsIndex=nothing
set rsExtract=nothing

%>
</body></html>Hey all! Nevermind this post. I figured out my problem. I had deleted several objects and I was still referencing them in some areas. I have fixed it now and everything looks great! Thanks!

Microsoft VBScript runtime (0x800A01A8) Object required error

liunx

Guest