|
|
|
|
|
| | |
| |
Active Server Pages ASP a directory of ASP tutorials applications scripts components and articles for the novice to professional developer. 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 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
