Hola amigos fijense que estoy hacien una consulta a una base de datos hecha en access pero a la hora de que quiero ejecutar la consulta me manda este error
El objeto no acepta esta propiedad o método: 'CreatedObject'
de hecho aqui les dejo el codigo a ver si alguien me puede ayudar gracias.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Members</title>
<%
Set cnn1 = Server.CreatedObject("ADODB.Connection")
openStr = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath(coinclub.mdb)
cnn1.Open openStr
sql = "SELECT * FROM members;"
Set rsMbrs = Server.CreatedObject(ADODB.Recordset)
rsMbrs.Open sql, cnn1, adOpenFowardOnly, adLockReadOnly, adCmdText
%>
</head>
<body>
<table border="1" cellspacing="0" cellpadding="3">
<caption><b>Members</b></caption>
<tr>
<th>memberid</th>
<th>fname</th>
<th>sname</th>
<th>position</th>
<th>email</th>
</tr>
<%
Do While rsMbrs.EOF
%>
<tr valign="top">
<td><%=Server.HTMLEncode(rsmbrs.Fields("memberid") ).Value%></td>
<td><%=Server.HTMLEncode(rsmbrs.Fields("fname")).V alue%></td>
<td><%=Server.HTMLEncode(rsmbrs.Fields("sname")).V alue%></td>
<td><%=Server.HTMLEncode(rsmbrs.Fields("position") ).Value%></td>
<td><%=Server.HTMLEncode(rsmbrs.Fields("email")).V alue%></td>
</tr>
<%
rsMbrs.MoveNext
Loop
rsMbrs.Close
Set rsMbrs=Nothing
cnn1.Close
Set cnn1=Nothing
%>
</table>
</body>
</html>