<%
Dim oConn
Dim strSQL, strConn
Dim rs, rsRama
Set oConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rsRama = Server.CreateObject("ADODB.RecordSet")
' Server.MapPath(./) devuelve el path de la aplicacion
strConn= "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= " & Server.MapPath("./bdRondaConsultas.mdb") & ";"
'F:\Compartido\mipruebaweb\bdRondaConsultas.mdb;"
'& "Persist Security Info=False;"
oConn.connectionString= strConn
oConn.open
rsRama.activeconnection = oConn
strSQL="select idrama, descripcionrama from TS_RAMAS where idRama <> 'O'"
rsRama.open strSQL
rs.activeconnection = oConn
'recupera las regiones educativas
strSQL="SELECT TS_DISTRITOS.regionEducativa, TS_DISTRITOS.nombreRegionEducativa" _
& " FROM TS_DISTRITOS" _
& " GROUP BY TS_DISTRITOS.regionEducativa, TS_DISTRITOS.nombreRegionEducativa" _
& " HAVING TS_DISTRITOS.nombreRegionEducativa<>''"
rs.open strSQL
%>
|
|
|
|
