<%
Dim oConn, strSQL, strConn
Set oConn = Server.CreateObject("ADODB.Connection")
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
%>
 |
|
|
|
