Solved

connection problem

Posted on 2001-07-24
2
207 Views
Last Modified: 2006-11-17
ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/subscribe.asp, line 19

"objRecordset.Open "membertable", DB_CONNECTIONSTRING, adOpenKeyset, adLockPessimistic, adCmdTable"





The rest of my code is:


<%
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("./member2.mdb") & ";pwd=o0o0p7bw109"    
Dim sUserName, sPassWord, sSecondPass, RS
Dim I ' Standard looping var
Dim iRecordAdded ' Id of added record
Dim iRecordCount ' Used only to keep a current count of records for DB Clean Up


if len(Request.Cookies("JAI")("MemberName"))< 1 then
response.write "We are sorry, we are unable to complete your subscription request due to one of the following reasons.<br><Br>"
response.write "1) You registered more then 3 days ago. If you do not varify the request within 3 days, you our automatically removed from the list<br>"
response.write "2) You have cleared your cookies, or cookies are disabled. Please ensure cookies are enabled and re-register."
response.write "<br><Br> <a href = http://www.johnsonadvertising.com/register> Register Again</a>"

else

     Set objRecordset = Server.CreateObject("ADODB.Recordset")
     objRecordset.Open "membertable", DB_CONNECTIONSTRING, adOpenKeyset, adLockPessimistic, adCmdTable
     objRecordset.CacheSize = 15 ' Cuts down on round trips to our SQL Server
     objRecordset.AddNew    
     objRecordset.Fields("MemberName") = Request.Cookies("JAI")("MemberName")
        objRecordset.Fields("MemberCompany") = sUserName
' Integer Data Type
     objRecordset.Fields("MemberEmail") = sEmail
        objRecordset.Fields("MemberPhone") = sPassword
        objRecordset.Fields("MemberAddress") = sAddress
        objRecordset.Fields("MemberCity") = sCity
        objRecordset.Fields("MemberState") = sState
        objRecordset.Fields("MemberZip") = sZip
        objRecordset.Fields("MemberFax") = sFax
     objRecordset.Update
     Response.Write "<FONT FACE = TAHOMA SIZE =1>You have been sucessfully added to our database.<br>We have sent and email to " & sEmail & " telling you your login information. Thank you</FONT>"
     objRecordset.Close
     Set objRecordset = Nothing
end if
%>


I cant figure out my problem, can someone help?
membertable is the correct name of my table...



0
Comment
Question by:TRD_Supra
2 Comments
 
LVL 4

Accepted Solution

by:
mberumen earned 75 total points
ID: 6313480
These variables -adOpenKeyset, adLockPessimistic, adCmdTable- are declared in the adovbs.inc file,  did you make sure to use <!-- #include file=adovbs.inc-->  in your asp page?


   
0
 

Author Comment

by:TRD_Supra
ID: 6313504
thanks man!
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
This demonstration started out as a follow up to some recently posted questions on the subject of logging in: http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html and http://www.experts-exchange.com/Programming/…
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.

706 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now