|
|
|
|
|
| | |
| |
Active Server Pages asp source code database MS SQL MS Access .mdb adovbs.inc cookies calendar codes sql commands scripts asp programming tutorials iis web server components 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 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
