Ayuda con consulta Hola amigos, tengo poco de estar con ASP necesito hacer un catalogo un amigo me paso el codigo que iso, pero ya no lo puedo localizar, donde tengo el sitio me pide una conección dsn, pero me muestra el siguiente error:
Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'ActiveConnection'
/categorias.asp, line 15
Aqui les pongo el codigo de toda la hoja, esta hoja muestra la lista de las categorias:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" LCID="2058" %>
<%
Dim oConn, oRs
Dim qry, connectstr, sDSNDir
Dim db_name, db_username, db_userpassword
Dim db_server, dsn_name
dsn_name = "access_catalogo.dsn"
sDSNDir = Server.MapPath("_dsn")
connectstr = "filedsn=" & sDSNDir & "\" & dsn_name
Set oConn = Server.CreateObject("ADODB.Recordset")
oConn.ActiveConnection connectstr
qry.source = "SELECT Clave_Categoria, Nombre1, Imagen, Posicion FROM Categorias WHERE (Eliminado = 0) OR (Eliminado = NULL) ORDER BY Posicion, Nombre1 ASC"
Set oRS = oConn.Execute(qry)
oRS.CursorType = 0
oRS.CursorLocation = 2
oRS.LockType = 1
oRS.Open()
oRS_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 16
Repeat1__index = 0
oRS_numRows = oRS_numRows + Repeat1__numRows
%>
<html>
'codigo de HTML
<%
While ((Repeat1__numRows <> 0) AND (NOT oRS.EOF))
%>
<tr>
<%
For i = 1 to 4
%>
<% If Not oRS.EOF Then %>
<td width="115" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="115" height="100" valign="middle">
<div align="center"><a href="#" onClick="MM_openBrWindow('lista.asp?clave=<%=(oRS.Fields.Item("Clave_Categoria").Value)%>','','scrollbars=yes,width=480,height=600')"><img src="../fotos/categorias/<%=(oRS.Fields.Item("Imagen").Value)%>" border="0"></a></div></td>
</tr>
<tr>
<td height="12" valign="top" class="baquess">
<div align="center"><a href="#" onClick="MM_openBrWindow('lista.asp?clave=<%=(oRS.Fields.Item("Clave_Categoria").Value)%>','','scrollbars=yes,width=480,height=600')"><%=(oRS.Fields.Item("Nombre1").Value)%></a></div></td>
</tr>
</table></td>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RS_Categorias.MoveNext
Else %>
<td width="115" valign="top"> </td>
<% End If ' end Not RS_Categorias.EOF Or NOT RS_Categorias.BOF %>
<%
next
%>
</tr>
<%
Wend
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="10" nowrap> </td>
<td valign="top" width="40" bgcolor="#6699CC"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="40" height="420">
<param name=movie value="../flashes/later.swf">
<param name=quality value=high>
<embed src="../flashes/later.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="40" height="420">
</embed>
</object></td>
<td valign="top"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="40" bgcolor="#6699CC"> </td>
<td width="690" nowrap>
<hr size="1">
</td>
<td bgcolor="#000033"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td height="14" width="40">
<p align="center"> </p>
</td>
<td height="14" width="690" nowrap class="baquess">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="1"><b><font size="1.5" color="#000033"><span class="baquess">Fabrica.</span></font></b><span class="baquess">
Tel. +52 (999) 984 2179 • <a href="mailto:[email protected]">ventas@ baquedanomueblera.com</a></span></font></div>
</td>
<td height="14"> </td>
</tr>
<tr>
<td height="12" width="40">
<div align="center"></div>
</td>
<td height="12" width="690" nowrap class="baquess">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="1"><b><font size="1.5" color="#000033"><span class="baquess">Distribuidora.</span></font></b><span class="baquess"><font color="#000033">
</font>Tels. +52 (998) 884 4725 / 884 4962 • <a href="mailto:[email protected]">tienda [email protected]</a></span></font></div>
</td>
<td height="12"> </td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
oRS.Close()
Set oRS = Nothing
%>
