05/09/2005, 13:50
|
 | | | Fecha de Ingreso: junio-2005
Mensajes: 155
Antigüedad: 19 años, 10 meses Puntos: 0 | |
| no amigos no me da por ningun lado lo hise colocando toda la direccion de la base de datos ose asi C:\Mis documentos\Edison\Marketing/marketing.mdb y nada ke me funciono creo ke el error estaen este codigo pero no se endonde no se mucho aun de asp...
<%
Const DriverConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data source="
Dim strDatabase, strFolder, strFileName
StrCarpeta = server.mappath("Marketing.mdb")
'Compacta la base de datos
Private Sub dbCompact(StrBaseDeDatos)
if right(StrCarpeta,1) <> "\" then StrCarpeta = StrCarpeta & "\"
Dim SourceConn, DestConn, oJetEngine, oFSO
SourceConn = DriverConexion & StrCarpeta & StrBaseDeDatos
DestConn = DriverConexion & StrCarpeta & "Temp" & StrBaseDeDatos
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oJetEngine = Server.CreateObject("JRO.JetEngine")
debe de faltar algo como definir esas lineas pero no se en donde
strDatabase, strFolder, strFileName
.......... |