Hola amigos hace rato puse mi prgunta y me la solucionaron pero ahora tengo otro plroblema a la hora de querer hacer la consulta a y deplegarla me manda este error
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'Server'
/members.asp, línea 8
Les dejo el codigo haber si me pueden ayudar y decir el por que est mal 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.CreateObject("ADODB.Connection")
openStr = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("coinclub.mdb")
cnn1.Open openStr,"",""
sql = "SELECT * FROM members;"
Set rsMbrs = Server.CreateObject("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>
