Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/09/2004, 15:39
Avatar de lexus
lexus
 
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 3 meses
Puntos: 4
urgente funciones en asp y bases de datos

hola, tengo 2 paginas .asp
la primera tiene este codigo y se llama asi

-----funcionesasp.asp-------

Código:
 
function conx_bd(nombre_bd)
'CONEXION A BASE DE DATOS DE TODOS LOS MODULOS 
'DE MANERA GENERAL. 
'EL PARAMETRO nombre_bd CORRESPONDE AL NOMBRE DE LA
'BASE DE DATOS QUE SE DESEE ABRIR
   con = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
	  "Data Source="& Server.MapPath("../bd/"&nombre_bd&".mdb")&";"  & _
	  "Jet OLEDB:Database Password=miclave;"
set conx = Server.Createobject("adodb.connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conx.open con
end function

y esta otra pagina
--------nuevo.asp---------------


Código:
 
<!--#include file="../comunes/funcionesasp.asp"-->
<%
'llamado a la funcion
'conx_bd(nombre_bd) de la pagina funcionesasp.asp

conx_bd("syt")

sql= "SELECT * FROM area"
rs.Open sql, con, 3, 3 
%>
   <select name="area" id="area">
  <% do while not rs.EOF %>
		<option value="<%=rs("id")%>"><%=rs("nombre")%></option>
  <% rs.movenext 
  loop
  %>
	  </select>

la idea es mandar como parametro el nombre de la base de datos para no colocarlo en todas las paginas qe uso y usar una sola conexion para todas mis bases de datos.

me saca este error

<LI>Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: ''
/oktopus/standaresytips/nuevo.asp, línea 19
donde linea 19 es la que esta en negrita arriba

no entiendo ke pueda ser.. alguien tiene alguna idea de que estoy haciendo mal?
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com