Microsoft VBScript runtime error (0x800A0046) solutions Jiqiu

Microsoft VBScript runtime error (0x800A0046)
no authority
/ admin_goodhr / Web_Other_Option.asp, 55th line

<%
Dim Param, Ncid, Rs, SQL, Re
Dim Schid, UserName, PageNo

'/ / administrator detect whether there is authority to operate the Page
If Instr (1, Session ( “Web_Power”), “200”) <= 0 Then
Call CloseDB ()
Response.write “I am sorry! You do not have permission to access the page …”
Response.End ()
End If

Param = Replace_Text (Request (” param “))
Ncid = Replace_Text (Request (” ncid “))
PageNo = Replace_Text (Request ( “pageno”))

'/ / parameter to determine the validity of
If Param = “” Then
Response.write ” alert (' operation Wrong! '); History.back (-1); “
Response.End ()
End if

If Ncid =” “Then
Response.write ” alert ( 'You do not choose to record!'); history.back (-1); ”
Response.End ()
End if
Ncid = Split (Ncid ,”,”)
'/ / branch operations to determine
Select Case Param
Case “delads”:Call DelAds_Submit ()' to delete information
Case “shenhe”:Call Shenhe_Submit ( ) 'Approved
Case “noshenhe”:Call NoShenhe_Submit ()' cancellation review
Case “novip”:Call NoVip_Submit () 'cancellation review
Case “novideo”:Call NoVideo_Submit ()' cancellation of enterprises Video
End Select

'/ / function
'————————– ———————————— ———— Delete data ———-
Sub DelAds_Submit ()

For i = 0 To Ubound (Ncid)
'to delete the image file picture
SQL = “Select AdFile From [ pH_Web_Ad] Where Ncid = “& Trim (Ncid (i))
Set Rs = Conn.Execute (SQL)
If Not Rs.Eof Then
AdFile = Rs (0)

Set Fso = Server.CreateObject ( “Scripting.FileSystemObject”)
'image file
If Fso.FileExists (Server.Mappath (“../ UpLoadFiles / AdFile / “& AdFile)) Then
Fso.DeleteFile ( Server.Mappath (“../ UpLoadFiles / AdFile / “& AdFile))
End if

Set Fso = Nothing
End if
Rs.Close
'to delete records
SQL = “Delete From [pH_Web_Ad] Where Ncid =” & Trim (Ncid (i))
Conn.Execute (SQL)
Next

Response.write ” alert ( 'delete success!'); location.href = ' “& PageNo &”';”
End Sub

' / / close the database connection
CloseDB
%>

you determine ../ include / class_conn.asp
in setting the correct database connection parameters What the?