Si sientes afinidad por los contenidos de esta web y deseas
manifestarlo, puedes inscribirte en esta Red
Shaumbra. Tu dirección de email se
mantendrá en privacidad.
<%
dim currentpage
dim s
dim n
if request.querystring("currentpage") = "" OR request.querystring("currentpage") < 1 then
currentpage = 1
else
currentpage = request.querystring("currentpage")
end if
Session("currentpage")=currentpage
set conn = Server.CreateObject("ADODB.connection")
s=Request.ServerVariables("PATH_TRANSLATED")
n=instr(1,lcase(s),"\aspbb\")
' response.write "
" & s & " n:" & n
s=mid(s,1,n)
s=s & "ASPBB\db\bdvivian2.mdb"
'response.write "
" & s
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & s & ";" & _
"Persist Security Info=False"
'sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
'"Data Source=" & Server.MapPath("\dangerduo\db\bdvivian2.mdb") & ";" & _
'"Persist Security Info=False"
conn.Open(sConnection)
%>