Guest_imported
New member
- Jan 1, 1970
- 0
Ok, this is the portion of my asp that is not working.
Nouman, helped with this code and other another one
which is now working but this one is not.
I keep getting this error:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC driver for Oracle]Invalid parameter type
/mydb/GetSubmitResult.asp, line 38
Line 38 is this:
objRs.Open objCmd
Here is the entire code.
Any help would be appreciated.
Thanks in advance.
sim
<% Language=VBScript %>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual
Studio 6.0">
</head>
<body>
<%
const ArraySep = ","
Dim objConn,objCmd,objRS
Set objConn =server.CreateObject("ADODB.Connection"
Set objCmd= server.CreateObject("ADODB.Command"
Set objRs=server.CreateObject("ADODB.Recordset"
objConn.CursorLocation = 3
objConn.Open "DSN=mydb;UID=scott;PWD=tiger"
objRs.CursorLocation = 3
objRs.CursorType = 3
objRs.LockType = 4
dim StRaData , StData
StRaData = Request.Form("txtData" & ArraySep
StData = Split(straData, ArraySep )
With objCmd
.CommandType = &H0004
.ActiveConnection = objConn
.CommandText = "stp_TEST_GetCV"
.Parameters.Append .CreateParameter("P_FirstName",200, &H0001, 20, stData(0))
.Parameters.Append .CreateParameter("P_LastName",200, &H0001, 20, stData(1))
.Parameters.Append .CreateParameter("P_Phone", 200,&H0001, 20, stData(2))
End With
objRs.Open objCmd
Set objCmd=nothing
Set Conn = nothing
%>
<TABLE cellSpacing=0 cellPadding=10 width="58%"
border=1
align="center">
<TR>
<TD align=middle>
CV Search Result
</TD></TR>
<TR>
<% If Not objRs.EOF And objRs.BOF Then
While not objRs.Eof %>
<TR><TD><%= objRs.Fields(1).value%></TD></TR>
<TR><TD><%= objRs.Fields(2).value%></TD></TR>
<TR><TD><%= objRs.Fields(3).value%></TD></TR>
<TR><TD><%= objRs.Fields(4).value%></TD></TR>
<% obRs.moveNext
Wend
else
response.write stData(0) & stData(1) & stData(2) %>
<TR><TD> No Records Found...</TD></TR>
<% end if
objRs.close
Set objRs=nothing
%>
</TR>
</TABLE>
</body>
</html>
Nouman, helped with this code and other another one
which is now working but this one is not.
I keep getting this error:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC driver for Oracle]Invalid parameter type
/mydb/GetSubmitResult.asp, line 38
Line 38 is this:
objRs.Open objCmd
Here is the entire code.
Any help would be appreciated.
Thanks in advance.
sim
<% Language=VBScript %>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual
Studio 6.0">
</head>
<body>
<%
const ArraySep = ","
Dim objConn,objCmd,objRS
Set objConn =server.CreateObject("ADODB.Connection"
Set objCmd= server.CreateObject("ADODB.Command"
Set objRs=server.CreateObject("ADODB.Recordset"
objConn.CursorLocation = 3
objConn.Open "DSN=mydb;UID=scott;PWD=tiger"
objRs.CursorLocation = 3
objRs.CursorType = 3
objRs.LockType = 4
dim StRaData , StData
StRaData = Request.Form("txtData"
& ArraySepStData = Split(straData, ArraySep )
With objCmd
.CommandType = &H0004
.ActiveConnection = objConn
.CommandText = "stp_TEST_GetCV"
.Parameters.Append .CreateParameter("P_FirstName",200, &H0001, 20, stData(0))
.Parameters.Append .CreateParameter("P_LastName",200, &H0001, 20, stData(1))
.Parameters.Append .CreateParameter("P_Phone", 200,&H0001, 20, stData(2))
End With
objRs.Open objCmd
Set objCmd=nothing
Set Conn = nothing
%>
<TABLE cellSpacing=0 cellPadding=10 width="58%"
border=1
align="center">
<TR>
<TD align=middle>
CV Search Result
</TD></TR>
<TR>
<% If Not objRs.EOF And objRs.BOF Then
While not objRs.Eof %>
<TR><TD><%= objRs.Fields(1).value%></TD></TR>
<TR><TD><%= objRs.Fields(2).value%></TD></TR>
<TR><TD><%= objRs.Fields(3).value%></TD></TR>
<TR><TD><%= objRs.Fields(4).value%></TD></TR>
<% obRs.moveNext
Wend
else
response.write stData(0) & stData(1) & stData(2) %>
<TR><TD> No Records Found...</TD></TR>
<% end if
objRs.close
Set objRs=nothing
%>
</TR>
</TABLE>
</body>
</html>