
PK 
<%@ Language=VBScript %>
<%option explicit
'session.Timeout = 30
dim strcon,conn,rs,rs1,rs2,a,dbpath%>
<!--#include file="virtualdir.asp" -->
<%dbpath = virtualdir & "\FECORT_new202.mdb"
session("monto_mayorista")=100000000
session("monto_minimo")=0
'strcon = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & dbpath
strcon= "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbpath
set conn = server.createobject("ADODB.Connection")
set rs = server.createobject("ADODB.Recordset")
set rs1 = server.createobject("ADODB.Recordset")
conn.Open strcon%>


PK 99