Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
runtime vb error
- Thread starter danalynn
- Start date
FengShui1998
MIS
danalyn,
This means you have two definitions of 'adOpenForwardOnly'. Probably one in adovbs.inc and another on your ASP page.
You only need to have one declaration.
Cheers,
Fengshui1998
- Thread starter
- #3
i have already checked that, i do not see it on my page and have checked the file
here is my code:<%@Language=VBScript%>
<%Option Explicit%>
<!--#INCLUDE FILE="adovbs.inc"-->
<%
Dim strConnect
Dim objRS, PropNum, SalesEng
Dim objConn
Dim strSQL
%>
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Adding a new record</title>
</head>
<body bgcolor="#DA70D6">
<%
PropNum = Request("PropNumb"
SalesEng= Request("SalesEngi"
Set objConn = Server.CreateObject ("ADODB.Connection"
objConn.Open "Provider=SQLOLEDB;Server=BURIADATA2EDCGE;Database=SCQUOTES;User ID=sa;PWD=;"
Set objRS= Server.CreateObject ("ADODB.Recordset"
objRS.Open strSQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText
strSQL = "Select * FROM Quotes"
objRS.AddNew
objRS.Fields("text_field" = CStr(SalesEng)
objRS.Fields("integer_field" = CInt(PropNum)
objRS.UPDATE
Response.Write "You've successfully added a new record:<BR> "&_
"Prop Number = '"& PropNum & "'<BR>"&_
"Sales Engineer = '"& SalesEng
objConn.Close
objRS.Close
Set objRS= Nothing
Set objConn=Nothing
%></body>
</html>
here is my code:<%@Language=VBScript%>
<%Option Explicit%>
<!--#INCLUDE FILE="adovbs.inc"-->
<%
Dim strConnect
Dim objRS, PropNum, SalesEng
Dim objConn
Dim strSQL
%>
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Adding a new record</title>
</head>
<body bgcolor="#DA70D6">
<%
PropNum = Request("PropNumb"
SalesEng= Request("SalesEngi"
Set objConn = Server.CreateObject ("ADODB.Connection"
objConn.Open "Provider=SQLOLEDB;Server=BURIADATA2EDCGE;Database=SCQUOTES;User ID=sa;PWD=;"
Set objRS= Server.CreateObject ("ADODB.Recordset"
objRS.Open strSQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText
strSQL = "Select * FROM Quotes"
objRS.AddNew
objRS.Fields("text_field"
= CStr(SalesEng)objRS.Fields("integer_field"
= CInt(PropNum)objRS.UPDATE
Response.Write "You've successfully added a new record:<BR> "&_
"Prop Number = '"& PropNum & "'<BR>"&_
"Sales Engineer = '"& SalesEng
objConn.Close
objRS.Close
Set objRS= Nothing
Set objConn=Nothing
%></body>
</html>
FengShui1998
MIS
danalynn,
'adOpenForwardOnly' does not appear in your web page code. I hate to ask, but have you checked adovbs.inc? And are you sure you are pointing to the only adovbs.inc?
fengshui1998
'adOpenForwardOnly' does not appear in your web page code. I hate to ask, but have you checked adovbs.inc? And are you sure you are pointing to the only adovbs.inc?
fengshui1998
- Thread starter
- #5
FengShui1998
MIS
danalynn,
The only thing else I can think of is that your adovbs.inc points to another file?? or definition of that variable.
Since your error points to line 14 in adovbs.inc, it says there is a re-definition before anything else occurs on your web page. So it must come from adovbs.inc.
Good luck
fengshui1998
The only thing else I can think of is that your adovbs.inc points to another file?? or definition of that variable.
Since your error points to line 14 in adovbs.inc, it says there is a re-definition before anything else occurs on your web page. So it must come from adovbs.inc.
Good luck
fengshui1998
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question