Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/troncoso/inserta usuario1.asp, line 8
este es el codigo que uso::
================================================== ========
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Mibase.asp" -->
<%
Dim tablaclientes
Dim tablaclientes_numRows
Set tablaclientes = Server.CreateObject("ADODB.Recordset")
tablaclientes.ActiveConnection = MM_Mibase_STRING <<<<aqui marca error <<<
tablaclientes.Source = "SELECT * FROM CLIENTES"
tablaclientes.CursorType = 0
tablaclientes.CursorLocation = 2
tablaclientes.LockType = 1
tablaclientes.Open()
tablaclientes_numRows = 0
%>
<HTML>
<HEAD>
<TITLE>Insertar.html</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Insertar un usuario</h1>
<br>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "Mibase"
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\Troncoso\Mibase.mdb"))
%>
<%
sSQL ="Select cve_cte From CLIENTES Order By cve_cte"
set RS = Conn.Execute(sSQL)
%>
<FORM METHOD="POST" ACTION="inserta usuario2.asp">
Nombre<br>
<INPUT TYPE="TEXT" NAME="nombre"><br>
Id<br>
<INPUT TYPE="TEXT" NAME="id"><br>
Password<br>
<INPUT TYPE="TEXT" NAME="pass"><br>
Clave cliente<br>
<select name="clave" title="<%=(tablaclientes.Fields.Item("cve_cte").Va lue)%>">
<%
Do While not RS.eof%>
<option><%=RS("cve_cte")%>
<%RS.movenext
Loop
%>
</select>
<br>
Nivel usuario<br>
<select name="nivel" size="1" id="nivel">
<option>CLIENTE</option>
<option>USUARIO</option>
<option>ADMIN</option>
</select>
<br>
<INPUT TYPE="SUBMIT" value="Insertar">
</FORM>
</div>
<div align="center">
<a href="Menu%20usuarios.html">Menu de usuarios</a><br>
<a href="BUSCAUSUARIO.ASP">Actualizar un usuario existente</a><br>
<a href="lectura%20usuarios.asp">Lectura de usuarios</a><br>
<a href="borrar%20usuario1.asp">Borrar un usuario</a><br>
</div>
</BODY>
</HTML>
<%
tablaclientes.Close()
Set tablaclientes = Nothing
%>
================================================== =======
================================================== =======
a este codigo llama:
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_Mibase_STRING
MM_Mibase_STRING = "dsn=Mibase;"
%>
================================================== ======
el path que uso es Troncoso\Mibase.mdb y dentro de troncoso estan los asp, este codigo lo usaba en mi localhost con dsn Mibase.mdb
