arunatata
asked on
Getting a 800a0bb9 error when I call a stored procedure
I am trying to run a stored procedure from my ASP page and get the following error
ADODB.Command error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
Projectabc/LoginValidate.a sp, line 20
Line 20 is the line that goes "Set ObjParam1=......"
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
UserName = Request("UserName")
Password = Request("Password")
Set myRS=Server.CreateObject(" ADODB.Reco rdset")
Set ObjCmd = Server.CreateObject ("ADODB.Command")
Set StrConn=Server.CreateObjec t("ADODB.C onnection" )
DText="Provider=SQLOLEDB;S erver=strS erver;Init ial Catalog=strCat;User ID=User;Password=abc"
StrConn.Open Dtext
objCmd.ActiveConnection=st rConn
ObjCmd.CommandText = "sp_ValidateUserLogin"
ObjCmd.CommandType = 4
Set ObjParam1 = ObjCmd.CreateParameter("Re quiredLogi n",adVarCh ar,adParam Input,64)
objCmd.Parameters.append objParam
Set ObjParam2 = ObjCmd.CreateParameter("Re quiredPass word",adva rchar,adPa ramInput,6 4)
objCmd.Parameters.append objParam2
objCmd.Parameters("Require dLogin") = UserName
objCmd.Parameters("Require dPassword" )=Password
Set myRS= objCmd.Execute
While not myRS.EOF
Response.Write myRS("Name")
myRS.MoveNext
Wend
%>
</BODY>
</HTML>
ADODB.Command error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
Projectabc/LoginValidate.a
Line 20 is the line that goes "Set ObjParam1=......"
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
UserName = Request("UserName")
Password = Request("Password")
Set myRS=Server.CreateObject("
Set ObjCmd = Server.CreateObject ("ADODB.Command")
Set StrConn=Server.CreateObjec
DText="Provider=SQLOLEDB;S
StrConn.Open Dtext
objCmd.ActiveConnection=st
ObjCmd.CommandText = "sp_ValidateUserLogin"
ObjCmd.CommandType = 4
Set ObjParam1 = ObjCmd.CreateParameter("Re
objCmd.Parameters.append objParam
Set ObjParam2 = ObjCmd.CreateParameter("Re
objCmd.Parameters.append objParam2
objCmd.Parameters("Require
objCmd.Parameters("Require
Set myRS= objCmd.Execute
While not myRS.EOF
Response.Write myRS("Name")
myRS.MoveNext
Wend
%>
</BODY>
</HTML>
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Glad to have helped,
FtB
FtB
ASKER