I'm not a programmer, so please bear with me. My buddy wrote the page, and I can usually go in and figure out many of my issues, but I honestly don't know what "adOpenKeyset" is, or if it's even necessary on this page. I tried deleting it, trying other "adOpen" commands, but nothing worked.
I'm not sure what happened. This page has been working fine for a year or two, and suddenly it decided to break. Is there a chance my hosting server made a change that broke this?
The error is as stated in the title: Variable is undefined: 'adOpenKeyset'
Here is a copy of the first portion of the code:
<%@ Language=VBScript %>
<% Option Explicit %>
<%
'-------------------------
' Author: LM
' Create Date: 12/22/2002
' Page Function: This page previews an ad from the database
'-------------------------
Dim dcnDB ' As ADODB.Connection
Dim strDatabaseLocation ' As String
Dim rsQuery ' As ADODB.Connection
Dim strMESSAGE ' As String
Dim strNAME ' As String
Dim rsORDER ' As ADODB.Recordset
Dim strORDER ' As String
Dim strEMAIL ' As String
strNAME = Request.Form("CName")
%>
<!--#INCLUDE FILE="includes/ConnectData
<%
Set rsQuery = Server.CreateObject("ADODB
rsQuery.Open "SELECT * FROM ads", dcnDB, adOpenKeyset, adLockOptimistic
'-------------------------
' Defines session values
'-------------------------
SessionValues
'-------------------------
' Checks to make sure required fields filled out
'-------------------------
CheckForm1
%>
<HTML>
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
I tried your suggestion and got this:
Variable is undefined: 'adLockOptimistic'
I haven't changed my include file either, but here is what the "ConnectDatabase1.inc" file contains:
<%
strDatabaseLocation = "D:\Websites\www.fsbo-indy
Set dcnDB = Server.CreateObject("ADODB
dcnDB.ConnectionString = _
"Provider=Microsoft.Jet.OL
& "Persist Security Info=False;Data Source=" _
& strDatabaseLocation
dcnDB.Open
%>
Sounds like the ADOVBS.INC file has been removed, where this stuff should be declared. Have a look here:
http://www.asp101.com/arti
Business Accounts
Answer for Membership
by: shanesuebsahakarnPosted on 2004-09-07 at 15:29:14ID: 12001566
Your include file probably no longer includes a definition of adOpenKeyset - that would be the place to check first. It's a constant value.
For reference, it is equal to 1, so you might try this:
rsQuery.Open "SELECT * FROM ads", dcnDB, 1, adLockOptimistic