Solved

connection problem

Posted on 2001-07-24
2
211 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

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
XML Parsing Classic ASP 5 65
alert(innerHTML); 8 33
Html Table Looping (part 2) 5 28
ASP exit 10 20
I would like to start this tip/trick by saying Thank You, to all who said that this could not be done, as it forced me to make sure that it could be accomplished. :) To start, I want to make sure everyone understands the importance of utilizing p…
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…

821 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