473,839 Members | 1,394 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Microsoft VBScript runtime error '800a01a8'

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs2'

/login/login.asp, line 233
-------------------------------------------------------------------------------------
I get the error above when I try to log in. The following code is the
code through the process.

Step 1:
_______________ _______________ _______________ _______________ _______________ __

SUB GetUserSecurity
DIM rs2
SET rs2 = Admin.AdminUser Security(varUse rId, DBInstance)

IF (rs2.eof AND rs2.bof) THEN
InternalOnly = "N"
ELSE
DO UNTIL rs2.EOF
IF rs2("security_c lass") = "1902" Then
InternalOnly = "Y"
END IF
rs2.movenext
LOOP 'End Main Do while loop
END IF'End Main If
SET rs2 = NOTHING
END SUB

_______________ _______________ _______________ _______________ _______________ ____

Step 2:

Public Function GetUserSecurity (ByVal strUser As String, _
ByVal DBInstance As String) As
ADODB.Recordset
On Error GoTo errorHandler
Dim strSQL As String

strSQL = _
"Select password, internet_status _code " & _
"From internet_users " & _
"WHERE user_name = '" & strUser & "' "

Set objDB = New WVOracle_DB.CDa taAccess
Set GetUserSecurity = objDB.RunSQLRet urnRS(strSQL, DBInstance)
Set objDB = Nothing

'GetObjectConte xt.SetComplete
Exit Function

errorHandler:
Set objDB = Nothing
RaiseError_Disa bleCommit m_modName, "Error in WVOIC_Admin:
GetUserSecurity "
End Function
_______________ _______________ _______________ _______________ _______________ _

Step 3:

Function RunSQLReturnRS( ByVal strSQL As String, _
ByVal DBInstance As String) As ADODB.Recordset
On Error GoTo errorHandler

Dim ConString As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

ConString = GetConnectionSt ring(DBInstance )

With rs
.ActiveConnecti on = ConString
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockReadOnly
.source = strSQL
.Open
Set .ActiveConnecti on = Nothing
End With

Set RunSQLReturnRS = rs
Set rs = Nothing

Exit Function

errorHandler:
Set rs = Nothing
RaiseError_Disa bleCommit m_modName, "Error in WVWorkflow_DB"
End Function
_______________ _______________ _______________ _______________ _______________ ___


Anyone see what is going wrong? I can't see anything wrong.

Feb 14 '07 #1
0 1564

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

10
10830
by: | last post by:
I am accessing the same error-containing ASP page on an ISP server using w2k IE6 but with different effect. On the first computer I get several line of HTML outputed by ASP, shown correctly by the browser, followed by a descriptive error message: Microsoft VBScript runtime error '800a000b' Division by zero followed by the number of the error-making line
1
4819
by: Matrix | last post by:
I just got one virtual directory setup and try to run my web application from there. I am getting following error Microsoft VBScript runtime error '800a01a8' Object required: 'Session' I even try to create test.asp and put it in wwwroot folder only code I had was <% Response.write Session.SessionID %>
1
4261
by: g_sharad | last post by:
I guess this is a very old problem, but this keeps bugging many ppl in many ways. I am facing the problem with the SQL query >>>> Insert Into DailySalesReport (hoautoid, dsdate, dsreport, dsclientid, dsprincipleid, dsremarks, dsadminlock ) Values (5,'2/16/2005','sacc',1,1,'cdssd','not') This query runs fine on query analyser, but when I try to put in asp page and then it gives the runtime error as >>
1
1013
by: PaulieS | last post by:
Hi all. Am migrating a customer from IIS5 on W2K server to IIS6 on W2K3. Zipped all the websites and unzipped them to the identical locations on new server. Used IISMT to migrate metabase. Got this error when I tried to run a very basic page... code: <%@ LANGUAGE=vbscript %> <%
2
15811
by: anidmarty | last post by:
Hey I'm a Sysadmin and my users are getting this error on my production box. It works fine on the dev box. There is a script that is run that generates this error. Production is clustered environment using Microsoft Application Center. This was working before and starting throwing this error about 15 days ago. any help would be much appreciated thanks
0
2070
by: =?Utf-8?B?TWF0dCBDYWxob29u?= | last post by:
HI there, I am getting an error on my page which calls up a web service. Microsoft VBScript runtime error '800a13ba' Unknown runtime error: 'SearchQueryXML' /SearchResults.asp, line 142
4
8850
by: Genken | last post by:
Hi can anybody help me i get this error when running this code. Error Type: Microsoft VBScript runtime (0x800A01A8) Object required: '' And then a line number indicating where the error is, i cant see any errors with this code please assist. Thanks in advance. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
4
2530
nitindel
by: nitindel | last post by:
Hi All, Please let me know that why i am getting the error like this:- Microsoft VBScript runtime error '800a01a8' Object required /Melange/MasconNet/singlesignon.asp, line 49
0
6617
by: .nLL | last post by:
Erorr is --------------------- Microsoft VBScript runtime error '800a0046' Permission denied /a.asp, line 3 -----------------------
1
10140
by: gray d newbie | last post by:
Greetings All, I'm new to this forum as well as to ASP. Therefore I am ready to learn from the ASP experts in this forum. Thank you very much in advance. I was assign to develop a ASP based website, and one of the functions offer in this site is that the end user is able to print all files located in a specific folder, and the files were actually generated in the folder based on the end user selection. After printing, the files will be...
0
10914
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...
0
10597
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
1
10656
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
0
10299
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
1
7834
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms. Adolph will...
0
5684
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
1
4495
by: 6302768590 | last post by:
Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
2
4071
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.
3
3136
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.