Acceso a BD de Access del Server mi pregunta es como puedo abrirla sin poner su direccion.
les paso el codigopara que lo vean. a mi, me da error.
Gracias.
WBoya
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<base target="rbottom">
</HEAD>
<BODY>
<P> </P>
<%
'variable de logueo.
'Response.Write Request.ServerVariables("logon_user")
dim strcon_access
archivo="Tareas.mdb" ' Esta es la base de access.
strcon_access = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&archivo&";DefaultDir=;UID=;PWD=;"
set Connaccess = server.createobject("adodb.connection")
if Request.QueryString("id_analista")="" then
Connaccess.open strcon_access
sSQL1 = "select * from analistas order by Nombre"
' Response.Write "<br>"&sSQL1
Set rs_analista = Server.CreateObject("ADODB.Recordset")
rs_analista.Open sSQL1,Connaccess
%>
<FORM action="test1.asp?id_analista=<%=request("analista ")%>" method=POST id=form1 name=form1>
<SELECT id=analista name=analista>
<%do until rs_analista.eof%>
<OPTION value="<%=rs_analista("id")%>"><%=rs_analista("Nom bre")%></OPTION>
<%
rs_analista.movenext
loop
%>
</SELECT>
<INPUT type="button" value="GO!" onclick="document.form1.variable.value=document.fo rm1.analista.value;location='test1.asp?id_analista ='+this.form.analista.value" id=submit1 name=submit1>
<INPUT type="hidden" id=variable name=variable>
</FORM>
<%
rs_analista.close
set rs_analista=nothing
%>
<%
else
Connaccess.open strcon_access
sSQL1 = "select * from tareas where analistas='"&Request.QueryString("id_analista")&"' order by id"
' Response.Write "<br>"&sSQL1
Set rs_tareas = Server.CreateObject("ADODB.Recordset")
rs_tareas.Open sSQL1,Connaccess
if not rs_tareas.BOF and not rs_tareas.EOF then
do until rs_tareas.EOF
Response.Write "<br>"&rs_tareas("id")
Response.Write "<br>"&rs_tareas("Analistas")
rs_tareas.MoveNext
loop
%>
<br>
<INPUT type="button" value="Cambiar Analista" onclick="document.location='test1.asp' " id=button1 name=button1>
<%
else
Response.Write "<center>No se encontraron datos de ese analista"
%>
<br>
<INPUT type="button" value="Volver" onclick="history.go(-1) " id=button1 name=button1>
<%
end if
rs_tareas.Close
set rs_tareas=nothing
end if
%>
</BODY>
</HTML>
