|
 |
asp_databases thread: Urget help needed! error80040e21
Message #1 by "Eric Van Camp" <eric.vancamp@c...> on Tue, 28 Nov 2000 23:06:35 -0000
|
|
the include files include the adovbs definition,and the checking of login..
**********************************
Can anyone find herein what i am doing wrong??
<% response.buffer = true %>
<!-- #include virtual="includes/adovbs.inc" -->
<!--#include virtual="includes/tools_ameel.inc"-->
<html>
<head>
<title><%=storename%> Maintenance</title>
<!--#include virtual="includes/sysadmin.inc"-->
<!--#include virtual="includes/linkstyle.inc"-->
<%
rem create a sso to provide link to the database
set conn = Server.CreateObject("ADODB.Connection")
rem set connect info
conn.Connectionstring = "DSN=" & application("OdbcConname") & ";UID=" &
application("OdbcUsername") & ";PWD=" & application("OdbcPassword")
rem open the connection
conn.open
%>
</head>
<body text="#FFFFFF" link="#0000A0" vlink="#0000A0" alink="#0000A0"
bgcolor="#FFFFFF">
<%
temp1 = request.form("qsi")
rem make ADO recordset
Set rsbforms = Server.CreateObject("ADODB.Recordset")
SQL = "select * from bforms"
response.write sql
rsbforms.open SQL,conn,adLockOptimistic,adOpenDynamic,adCmdText
rsbforms.addNew
rsbforms("coyid")=request.form("coyId")
rsbforms("typeid")=request.form("typesid")
rsbforms("addressid")=request.form("addressid")
rsbforms("tel")=request.form("tel")
rsbforms("fax")=request.form("fax")
rsbforms("btw")=request.form("btw")
rsbforms("hr")=request.form("hr")
rsbforms("b1")=request.form("b1")
rsbforms("b2")=request.form("b2")
rsbforms("b3")=request.form("b3")
rsbforms("b4")=request.form("b4")
rsbforms("email")=request.form("email")
rsbforms("description")=request.form("description")
rsbforms("paper")=request.form("paper")
rsbforms("printcolors")=request.form("printcolors")
rsbforms("col1")=request.form("color1")
rsbforms("col2")=request.form("color2")
rsbforms("col3")=request.form("color3")
rsbforms("col4")=request.form("color4")
rsbforms("paper")=request.form("paper")
rsbforms("printcolors")=request.form("printcolors")
if temp1 = "Yes" then
rsbforms("actif") = -1
else
rsbforms("actif") = 0
end if
rsbforms.Update
rsbforms.Close
set rsbforms = nothing
' response.redirect "index.asp?sessionid="&sessionid
%>
</body>
</html>
****************
thanks eric
Message #2 by "jigs gandhi" <newsgroup@h...> on Wed, 29 Nov 2000 12:17:13 +0530
|
|
This is a multi-part message in MIME format.
------=_NextPart_000_0510_01C059FE.4E06AF00
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
hi,
what is the error that you get ???
jigs
----- Original Message -----
From: Eric Van Camp
To: ASP Databases
Sent: Wednesday, November 29, 2000 12:54 PM
Subject: [asp_databases] Urget help needed! error80040e21
the include files include the adovbs definition,and the checking of
login..
**********************************
Can anyone find herein what i am doing wrong??
<% response.buffer =3D true %>
<!-- #include virtual=3D"includes/adovbs.inc" -->
<!--#include virtual=3D"includes/tools_ameel.inc"-->
<html>
<head>
<title><%=3Dstorename%> Maintenance</title>
<!--#include virtual=3D"includes/sysadmin.inc"-->
<!--#include virtual=3D"includes/linkstyle.inc"-->
<%
rem create a sso to provide link to the database
set conn =3D Server.CreateObject("ADODB.Connection")
rem set connect info
conn.Connectionstring =3D "DSN=3D" & application("OdbcConname") &
";UID=3D" &
application("OdbcUsername") & ";PWD=3D" & application("OdbcPassword")
rem open the connection
conn.open
%>
</head>
<body text=3D"#FFFFFF" link=3D"#0000A0" vlink=3D"#0000A0"
alink=3D"#0000A0"
bgcolor=3D"#FFFFFF">
<%
temp1 =3D request.form("qsi")
rem make ADO recordset
Set rsbforms =3D Server.CreateObject("ADODB.Recordset")
SQL =3D "select * from bforms"
response.write sql
rsbforms.open SQL,conn,adLockOptimistic,adOpenDynamic,adCmdText
rsbforms.addNew
rsbforms("coyid")=3Drequest.form("coyId")
rsbforms("typeid")=3Drequest.form("typesid")
rsbforms("addressid")=3Drequest.form("addressid")
rsbforms("tel")=3Drequest.form("tel")
rsbforms("fax")=3Drequest.form("fax")
rsbforms("btw")=3Drequest.form("btw")
rsbforms("hr")=3Drequest.form("hr")
rsbforms("b1")=3Drequest.form("b1")
rsbforms("b2")=3Drequest.form("b2")
rsbforms("b3")=3Drequest.form("b3")
rsbforms("b4")=3Drequest.form("b4")
rsbforms("email")=3Drequest.form("email")
rsbforms("description")=3Drequest.form("description")
rsbforms("paper")=3Drequest.form("paper")
rsbforms("printcolors")=3Drequest.form("printcolors")
rsbforms("col1")=3Drequest.form("color1")
rsbforms("col2")=3Drequest.form("color2")
rsbforms("col3")=3Drequest.form("color3")
rsbforms("col4")=3Drequest.form("color4")
rsbforms("paper")=3Drequest.form("paper")
rsbforms("printcolors")=3Drequest.form("printcolors")
if temp1 =3D "Yes" then
rsbforms("actif") =3D -1
else
rsbforms("actif") =3D 0
end if
rsbforms.Update
rsbforms.Close
set rsbforms =3D nothing
' response.redirect "index.asp?sessionid=3D"&sessionid
%>
--- <BR>
NEED TECHNICAL TIPS, TOOLS, AND INSIGHTS? Is FREE okay?<BR>
Visit EarthWeb for the latest in IT Management, Software Development,
<BR>
Web Development, Networking & Communications, and Hardware &
Systems. <BR>
Click on http://www.earthweb.com for FREE articles, tutorials,<BR>
and discussions from the experts.<BR>
---<BR>
newsgroup@h...<BR>
$subst('Email.Unsub')<BR>
</BODY>
</html>
****************
thanks eric
Message #3 by "Eric Van Camp" <eric.vancamp@c...> on Wed, 29 Nov 2000 08:36:30 -0000
|
|
This is a multi-part message in MIME format.
------=_NextPart_000_0039_01C059DF.78945520
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
this is the resultpage with the error:
<html>
<head>
<title> Maintenance</title>
<style type="text/css">
<!--
-->
</style>
<link rel="stylesheet" href="/includes/styles.css">
</head>
<body text="#FFFFFF" link="#0000A0" vlink="#0000A0" alink="#0000A0"
bgcolor="#FFFFFF">
select * from bforms <font face="Arial" size=2>
<p>Microsoft OLE DB Provider for ODBC Drivers</font> <font face="Arial"
size=2>error '80040e21'</font>
<p>
<font face="Arial" size=2>Errors occurred</font>
<p>
<font face="Arial" size=2>?</font>
----------------------------------------------------------------------------
--------------
-----Original Message-----
From: jigs gandhi [mailto:newsgroup@h...]
Sent: Wednesday, November 29, 2000 6:47 AM
To: ASP Databases
Subject: [asp_databases] Re: Urget help needed! error80040e21
hi,
what is the error that you get ???
jigs
----- Original Message -----
From: Eric Van Camp
To: ASP Databases
Sent: Wednesday, November 29, 2000 12:54 PM
Subject: [asp_databases] Urget help needed! error80040e21
the include files include the adovbs definition,and the checking of
login..
**********************************
Can anyone find herein what i am doing wrong??
<% response.buffer = true %>
<!-- #include virtual="includes/adovbs.inc" -->
<!--#include virtual="includes/tools_ameel.inc"-->
<html>
<head>
<title><%=storename%> Maintenance</title>
<!--#include virtual="includes/sysadmin.inc"-->
<!--#include virtual="includes/linkstyle.inc"-->
<%
rem create a sso to provide link to the database
set conn = Server.CreateObject("ADODB.Connection")
rem set connect info
conn.Connectionstring = "DSN=" & application("OdbcConname") &
";UID=" &
application("OdbcUsername") & ";PWD=" & application("OdbcPassword")
rem open the connection
conn.open
%>
</head>
<body text="#FFFFFF" link="#0000A0" vlink="#0000A0" alink="#0000A0"
bgcolor="#FFFFFF">
<%
temp1 = request.form("qsi")
rem make ADO recordset
Set rsbforms = Server.CreateObject("ADODB.Recordset")
SQL = "select * from bforms"
response.write sql
rsbforms.open SQL,conn,adLockOptimistic,adOpenDynamic,adCmdText
rsbforms.addNew
rsbforms("coyid")=request.form("coyId")
rsbforms("typeid")=request.form("typesid")
rsbforms("addressid")=request.form("addressid")
rsbforms("tel")=request.form("tel")
rsbforms("fax")=request.form("fax")
rsbforms("btw")=request.form("btw")
rsbforms("hr")=request.form("hr")
rsbforms("b1")=request.form("b1")
rsbforms("b2")=request.form("b2")
rsbforms("b3")=request.form("b3")
rsbforms("b4")=request.form("b4")
rsbforms("email")=request.form("email")
rsbforms("description")=request.form("description")
rsbforms("paper")=request.form("paper")
rsbforms("printcolors")=request.form("printcolors")
rsbforms("col1")=request.form("color1")
rsbforms("col2")=request.form("color2")
rsbforms("col3")=request.form("color3")
rsbforms("col4")=request.form("color4")
rsbforms("paper")=request.form("paper")
rsbforms("printcolors")=request.form("printcolors")
if temp1 = "Yes" then
rsbforms("actif") = -1
else
rsbforms("actif") = 0
end if
rsbforms.Update
rsbforms.Close
set rsbforms = nothing
' response.redirect "index.asp?sessionid="&sessionid
%>
--- <BR>
NEED TECHNICAL TIPS, TOOLS, AND INSIGHTS? Is FREE okay?<BR>
Visit EarthWeb for the latest in IT Management, Software
Development, <BR>
Web Development, Networking & Communications, and Hardware &
Systems. <BR>
Click on http://www.earthweb.com for FREE articles, tutorials,<BR>
and discussions from the experts.<BR>
---<BR>
newsgroup@h...<BR>
$subst('Email.Unsub')<BR>
</BODY>
</html>
****************
thanks eric
---
FREE SOFTWARE DEVELOPMENT CODE, CONTENT, AND
INSIGHTS IN YOUR INBOX!
Get the latest and best C++, Visual C++, Java, Visual Basic, and XML
tips, tools, and
developments from the experts. Sign up for one or more of EarthWeb?s
FREE IT newsletters at http://www.earthweb.com today!
$subst('Email.Unsub')
Message #4 by Imar Spaanjaars <Imar@S...> on Wed, 29 Nov 2000 11:36:06 +0100
|
|
Try switching the options for cursor and lock type:
rsbforms.open SQL,conn,adLockOptimistic,adOpenDynamic,adCmdText
should be
rsbforms.open SQL, conn, adOpenDynamic, adLockOptimistic, adCmdText
adOpenDynamic has a value of 2, adLockOptimistic a value of 3.
By switching them, you actually open your recordset with
adOpenStatic (3) and adLockPessimistic (2) and I guess that's not your
intention.
HtH
Imar
At 08:36 AM 11/29/2000 +0000, you wrote:
>this is the resultpage with the error:
><html>
><head>
><title> Maintenance</title>
><style type="text/css">
><!--
>-->
></style>
><link rel="stylesheet" href="/includes/styles.css">
></head>
><body text="#FFFFFF" link="#0000A0" vlink="#0000A0" alink="#0000A0"
>bgcolor="#FFFFFF">
>select * from bforms <font face="Arial" size=2>
><p>Microsoft OLE DB Provider for ODBC Drivers</font> <font face="Arial"
>size=2>error '80040e21'</font>
><p>
><font face="Arial" size=2>Errors occurred</font>
><p>
><font face="Arial" size=2>?</font>
>------------------------------------------------------------------------------------------
>
>-----Original Message-----
>From: jigs gandhi [mailto:newsgroup@h...]
>Sent: Wednesday, November 29, 2000 6:47 AM
>To: ASP Databases
>Subject: [asp_databases] Re: Urget help needed! error80040e21
>
>hi,
>
>what is the error that you get ???
>
>
>jigs
>>----- Original Message -----
>>From: <mailto:eric.vancamp@c...>Eric Van Camp
>>To: <mailto:asp_databases@p...>ASP Databases
>>Sent: Wednesday, November 29, 2000 12:54 PM
>>Subject: [asp_databases] Urget help needed! error80040e21
>>
>>the include files include the adovbs definition,and the checking of login..
>>**********************************
>>Can anyone find herein what i am doing wrong??
>><% response.buffer = true %>
>><!-- #include virtual="includes/adovbs.inc" -->
>><!--#include virtual="includes/tools_ameel.inc"-->
>>
>><html>
>><head>
>><title><%=storename%> Maintenance</title>
>><!--#include virtual="includes/sysadmin.inc"-->
>><!--#include virtual="includes/linkstyle.inc"-->
>><%
>>
>>
>>
>>rem create a sso to provide link to the database
>>set conn = Server.CreateObject("ADODB.Connection")
>>
>>rem set connect info
>>conn.Connectionstring = "DSN=" & application("OdbcConname") & ";UID=" &
>>application("OdbcUsername") & ";PWD=" & application("OdbcPassword")
>>
>>rem open the connection
>>conn.open
>>
>>%>
>></head>
>><body text="#FFFFFF" link="#0000A0" vlink="#0000A0" alink="#0000A0"
>>bgcolor="#FFFFFF">
>><%
>>
>>temp1 = request.form("qsi")
>>rem make ADO recordset
>>Set rsbforms = Server.CreateObject("ADODB.Recordset")
>>SQL = "select * from bforms"
>>response.write sql
>>rsbforms.open SQL,conn,adLockOptimistic,adOpenDynamic,adCmdText
>>rsbforms.addNew
>>rsbforms("coyid")=request.form("coyId")
>>rsbforms("typeid")=request.form("typesid")
>>rsbforms("addressid")=request.form("addressid")
>>rsbforms("tel")=request.form("tel")
>>rsbforms("fax")=request.form("fax")
>>rsbforms("btw")=request.form("btw")
>>rsbforms("hr")=request.form("hr")
>>rsbforms("b1")=request.form("b1")
>>rsbforms("b2")=request.form("b2")
>>rsbforms("b3")=request.form("b3")
>>rsbforms("b4")=request.form("b4")
>>rsbforms("email")=request.form("email")
>>rsbforms("description")=request.form("description")
>>rsbforms("paper")=request.form("paper")
>>rsbforms("printcolors")=request.form("printcolors")
>>rsbforms("col1")=request.form("color1")
>>rsbforms("col2")=request.form("color2")
>>rsbforms("col3")=request.form("color3")
>>rsbforms("col4")=request.form("color4")
>>rsbforms("paper")=request.form("paper")
>>rsbforms("printcolors")=request.form("printcolors")
>>
>>if temp1 = "Yes" then
>>rsbforms("actif") = -1
>>else
>>rsbforms("actif") = 0
>>end if
>>rsbforms.Update
>>rsbforms.Close
>>set rsbforms = nothing
>>
>>' response.redirect "index.asp?sessionid="&sessionid
>>
>>
>>
>>%>
>>
>>
>>
>></BODY>
>></html>
>>****************
>>thanks eric
>>
Message #5 by "Eric Van Camp" <eric.vancamp@c...> on Wed, 29 Nov 2000 12:32:30 -0000
|
|
tis did not work althoug you do have a point!
txs
eric
-----Original Message-----
From: Imar Spaanjaars [mailto:Imar@S...]
Sent: Wednesday, November 29, 2000 10:36 AM
To: ASP Databases
Subject: [asp_databases] Re: Urget help needed! error80040e21
Try switching the options for cursor and lock type:
rsbforms.open SQL,conn,adLockOptimistic,adOpenDynamic,adCmdText
should be
rsbforms.open SQL, conn, adOpenDynamic, adLockOptimistic, adCmdText
adOpenDynamic has a value of 2, adLockOptimistic a value of 3.
By switching them, you actually open your recordset with
adOpenStatic (3) and adLockPessimistic (2) and I guess that's not your
intention.
HtH
Imar
At 08:36 AM 11/29/2000 +0000, you wrote:
>this is the resultpage with the error:
><html>
><head>
><title> Maintenance</title>
><style type="text/css">
><!--
>-->
></style>
><link rel="stylesheet" href="/includes/styles.css">
></head>
><body text="#FFFFFF" link="#0000A0" vlink="#0000A0" alink="#0000A0"
>bgcolor="#FFFFFF">
>select * from bforms <font face="Arial" size=2>
><p>Microsoft OLE DB Provider for ODBC Drivers</font> <font face="Arial"
>size=2>error '80040e21'</font>
><p>
><font face="Arial" size=2>Errors occurred</font>
><p>
><font face="Arial" size=2>?</font>
>---------------------------------------------------------------------------
---------------
>
>-----Original Message-----
>From: jigs gandhi [mailto:newsgroup@h...]
>Sent: Wednesday, November 29, 2000 6:47 AM
>To: ASP Databases
>Subject: [asp_databases] Re: Urget help needed! error80040e21
>
>hi,
>
>what is the error that you get ???
>
>
>jigs
>>----- Original Message -----
>>From: <mailto:eric.vancamp@c...>Eric Van Camp
>>To: <mailto:asp_databases@p...>ASP Databases
>>Sent: Wednesday, November 29, 2000 12:54 PM
>>Subject: [asp_databases] Urget help needed! error80040e21
>>
>>the include files include the adovbs definition,and the checking of
login..
>>**********************************
>>Can anyone find herein what i am doing wrong??
>><% response.buffer = true %>
>><!-- #include virtual="includes/adovbs.inc" -->
>><!--#include virtual="includes/tools_ameel.inc"-->
>>
>><html>
>><head>
>><title><%=storename%> Maintenance</title>
>><!--#include virtual="includes/sysadmin.inc"-->
>><!--#include virtual="includes/linkstyle.inc"-->
>><%
>>
>>
>>
>>rem create a sso to provide link to the database
>>set conn = Server.CreateObject("ADODB.Connection")
>>
>>rem set connect info
>>conn.Connectionstring = "DSN=" & application("OdbcConname") & ";UID=" &
>>application("OdbcUsername") & ";PWD=" & application("OdbcPassword")
>>
>>rem open the connection
>>conn.open
>>
>>%>
>></head>
>><body text="#FFFFFF" link="#0000A0" vlink="#0000A0" alink="#0000A0"
>>bgcolor="#FFFFFF">
>><%
>>
>>temp1 = request.form("qsi")
>>rem make ADO recordset
>>Set rsbforms = Server.CreateObject("ADODB.Recordset")
>>SQL = "select * from bforms"
>>response.write sql
>>rsbforms.open SQL,conn,adLockOptimistic,adOpenDynamic,adCmdText
>>rsbforms.addNew
>>rsbforms("coyid")=request.form("coyId")
>>rsbforms("typeid")=request.form("typesid")
>>rsbforms("addressid")=request.form("addressid")
>>rsbforms("tel")=request.form("tel")
>>rsbforms("fax")=request.form("fax")
>>rsbforms("btw")=request.form("btw")
>>rsbforms("hr")=request.form("hr")
>>rsbforms("b1")=request.form("b1")
>>rsbforms("b2")=request.form("b2")
>>rsbforms("b3")=request.form("b3")
>>rsbforms("b4")=request.form("b4")
>>rsbforms("email")=request.form("email")
>>rsbforms("description")=request.form("description")
>>rsbforms("paper")=request.form("paper")
>>rsbforms("printcolors")=request.form("printcolors")
>>rsbforms("col1")=request.form("color1")
>>rsbforms("col2")=request.form("color2")
>>rsbforms("col3")=request.form("color3")
>>rsbforms("col4")=request.form("color4")
>>rsbforms("paper")=request.form("paper")
>>rsbforms("printcolors")=request.form("printcolors")
>>
>>if temp1 = "Yes" then
>>rsbforms("actif") = -1
>>else
>>rsbforms("actif") = 0
>>end if
>>rsbforms.Update
>>rsbforms.Close
>>set rsbforms = nothing
>>
>>' response.redirect "index.asp?sessionid="&sessionid
>>
>>
>>
>>%>
>>
>>
>>
>>
</BODY>
>></html>
>>****************
>>thanks eric
>>
Message #6 by Stephane_Dattenny@D... on Wed, 29 Nov 2000 06:43:48 -0600
|
|
I think you didn't choose the good method to add a new record to your
database.
I think you must use the "INSERT INTO" SQL statement instead of opening a
recordset, addnew and update it.
For your code, just do like that:
>>rem create a sso to provide link to the database
>>set conn = Server.CreateObject("ADODB.Connection")
>>
>>rem set connect info
>>conn.Connectionstring = "DSN=" & application("OdbcConname") & ";UID=" &
>>application("OdbcUsername") & ";PWD=" & application("OdbcPassword")
>>
>>rem open the connection
>>conn.open
>>
>>%>
>></head>
>><body text="#FFFFFF" link="#0000A0" vlink="#0000A0" alink="#0000A0"
>>bgcolor="#FFFFFF">
>><%
>>
>>temp1 = request.form("qsi")
rem Create a command
' HERE YOU CAN HAVE ERROR HANDLER
ON ERROR RESUME NEXT
set adoCommand = Server.CreateObject("ADODB.Command")
adoCommand.CommandType = adCmdText
adoCommand.ActiveConnection = conn
rem Constuct your sql query
if temp1 = "Yes" then
rsbforms_actif = -1
else
rsbforms_actif = 0
end if
strSQL = _
"INSERT INTO bforms (coyid,typeid,addressid,tel,fax,btw,hr ........
) VALUES (" & _
request.form("coyId") & "," & _
request.form("typesid") & "," & _
"'" & request.form("tel") & "'," & _ // YOU MUST PUT ' quotes
BECAUSE OF CHAR PARAMETER
"'" & request.form("fax") & "' ........."
adoCommand.CommandText = strSQL
adoCommand.Execute
if ERR.NUMBER <> 0 then
%>
<BR>There must be an error</BR>
<%
else
%>
<BR>INSERT OK</BR>
<%
end if
' RELEASE RESSOURCES
conn.close
set adoCommand = nothing
set conn = nothing
Best regards / Cordialement
Stephane Dattenny
Dell Computers - EMEA IT - VB and Web developer
Phone: +33 (0)4 99 75 49 88
-----Original Message-----
From: Eric Van Camp [mailto:eric.vancamp@c...]
Sent: 29 November 2000 13:33
To: ASP Databases
Subject: [asp_databases] Re: Urget help needed! error80040e21
tis did not work althoug you do have a point!
txs
eric
-----Original Message-----
From: Imar Spaanjaars [mailto:Imar@S...]
Sent: Wednesday, November 29, 2000 10:36 AM
To: ASP Databases
Subject: [asp_databases] Re: Urget help needed! error80040e21
Try switching the options for cursor and lock type:
rsbforms.open SQL,conn,adLockOptimistic,adOpenDynamic,adCmdText
should be
rsbforms.open SQL, conn, adOpenDynamic, adLockOptimistic, adCmdText
adOpenDynamic has a value of 2, adLockOptimistic a value of 3.
By switching them, you actually open your recordset with
adOpenStatic (3) and adLockPessimistic (2) and I guess that's not your
intention.
HtH
Imar
At 08:36 AM 11/29/2000 +0000, you wrote:
>this is the resultpage with the error:
><html>
><head>
><title> Maintenance</title>
><style type="text/css">
><!--
>-->
></style>
><link rel="stylesheet" href="/includes/styles.css">
></head>
><body text="#FFFFFF" link="#0000A0" vlink="#0000A0" alink="#0000A0"
>bgcolor="#FFFFFF">
>select * from bforms <font face="Arial" size=2>
><p>Microsoft OLE DB Provider for ODBC Drivers</font> <font face="Arial"
>size=2>error '80040e21'</font>
><p>
><font face="Arial" size=2>Errors occurred</font>
><p>
><font face="Arial" size=2>?</font>
>---------------------------------------------------------------------------
---------------
>
>-----Original Message-----
>From: jigs gandhi [mailto:newsgroup@h...]
>Sent: Wednesday, November 29, 2000 6:47 AM
>To: ASP Databases
>Subject: [asp_databases] Re: Urget help needed! error80040e21
>
>hi,
>
>what is the error that you get ???
>
>
>jigs
>>----- Original Message -----
>>From: <mailto:eric.vancamp@c...>Eric Van Camp
>>To: <mailto:asp_databases@p...>ASP Databases
>>Sent: Wednesday, November 29, 2000 12:54 PM
>>Subject: [asp_databases] Urget help needed! error80040e21
>>
>>the include files include the adovbs definition,and the checking of
login..
>>**********************************
>>Can anyone find herein what i am doing wrong??
>><% response.buffer = true %>
>><!-- #include virtual="includes/adovbs.inc" -->
>><!--#include virtual="includes/tools_ameel.inc"-->
>>
>><html>
>><head>
>><title><%=storename%> Maintenance</title>
>><!--#include virtual="includes/sysadmin.inc"-->
>><!--#include virtual="includes/linkstyle.inc"-->
>><%
>>
>>
>>
>>rem create a sso to provide link to the database
>>set conn = Server.CreateObject("ADODB.Connection")
>>
>>rem set connect info
>>conn.Connectionstring = "DSN=" & application("OdbcConname") & ";UID=" &
>>application("OdbcUsername") & ";PWD=" & application("OdbcPassword")
>>
>>rem open the connection
>>conn.open
>>
>>%>
>></head>
>><body text="#FFFFFF" link="#0000A0" vlink="#0000A0" alink="#0000A0"
>>bgcolor="#FFFFFF">
>><%
>>
>>temp1 = request.form("qsi")
>>rem make ADO recordset
>>Set rsbforms = Server.CreateObject("ADODB.Recordset")
>>SQL = "select * from bforms"
>>response.write sql
>>rsbforms.open SQL,conn,adLockOptimistic,adOpenDynamic,adCmdText
>>rsbforms.addNew
>>rsbforms("coyid")=request.form("coyId")
>>rsbforms("typeid")=request.form("typesid")
>>rsbforms("addressid")=request.form("addressid")
>>rsbforms("tel")=request.form("tel")
>>rsbforms("fax")=request.form("fax")
>>rsbforms("btw")=request.form("btw")
>>rsbforms("hr")=request.form("hr")
>>rsbforms("b1")=request.form("b1")
>>rsbforms("b2")=request.form("b2")
>>rsbforms("b3")=request.form("b3")
>>rsbforms("b4")=request.form("b4")
>>rsbforms("email")=request.form("email")
>>rsbforms("description")=request.form("description")
>>rsbforms("paper")=request.form("paper")
>>rsbforms("printcolors")=request.form("printcolors")
>>rsbforms("col1")=request.form("color1")
>>rsbforms("col2")=request.form("color2")
>>rsbforms("col3")=request.form("color3")
>>rsbforms("col4")=request.form("color4")
>>rsbforms("paper")=request.form("paper")
>>rsbforms("printcolors")=request.form("printcolors")
>>
>>if temp1 = "Yes" then
>>rsbforms("actif") = -1
>>else
>>rsbforms("actif") = 0
>>end if
>>rsbforms.Update
>>rsbforms.Close
>>set rsbforms = nothing
>>
>>' response.redirect "index.asp?sessionid="&sessionid
>>
>>
>>
>>%>
>>
>>
>>
>>
</BODY>
>></html>
>>****************
>>thanks eric
>>
|
|
|
View Cart
