|
|
|
|
|
| | |
| |
vbscript active server pages ASP vbscript SQL database informix oracle SQL Server Perl CGI Delphi PHP source code code sample samples program CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Microsoft VBScript compilation error 800a0411 |
|
From: |
Ali Jan |
|
Date: |
4/27/2004 11:49:14 AM |
|
IP: |
202.84.223.164 |
Hi
i m getting error
Microsoft VBScript compilation error '800a0411'
Name redefined
/addn.asp, line 12
Const adOpenDynamic = 2
------^
on this file
<!--#INCLUDE VIRTUAL="connection.asp" -->
<html>
<body>
<%
Const adOpenDynamic = 2
Const adLockOptimistic = 3
DIM objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "fees", conn, adLockOptimistic, adLockOptimistic
objRS.AddNew
objRS("d_type") = Request.Form("d_type")
objRS("d_name") = Request.Form("d_name")
objRS("d_fee") = Request.Form("d_fee")
objRS.Update
%>
<p>
<%
DIM d_type
strd_type = Request.Form("d_type")
%>,<br>
</p>
<%
objRS.Close
Set objRS = Nothing
conn.Close
Set conn = Nothing
%>
</body>
</html>
and my connection.asp file is
<%
dim conn, db,query,nam
conn= "Driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("db/ua.mdb")
set db = server.createobject("ADODB.Connection")
db.open conn
%>
Plzzzzzzzzzz Help me
Thanx in advance |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
