<%
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")
strConn= "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= " & Server.MapPath("./bdRondaConsultas.mdb")& ";"
'F:\Compartido\mipruebaweb\bdRondaConsultas.mdb;"
'& "Persist Security Info=False;"
'"RondaConsultas"
'response.write Server.MapPath("./bdRondaConsultas.mdb")
oConn.connectionString= strConn
oConn.open
'"RondaConsultas"
rsRama.activeconnection = oConn
strSQL="select idrama, descripcionrama from TS_RAMAS where idRama <> 'O'"
rsRama.open strSQL
rs.activeconnection = oConn
'se saca 046 que no existe mas como distrito
strSQL="select codigodistrito, nombredistrito from TS_DISTRITOS where codigodistrito <> '046' order by nombredistrito"
rs.open strSQL
%>
|
|
|
