Supongo que con DBF quieres crear una base del tipo DBASE IV. Si no fuera así, solo tienes que cambiar "Extended Properties=""DBASEIV;"";" por el tipo de base que desees. Ahí va el código :
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
'Definimos la función
Function OpenDBFConn(Path)
Dim Conn: Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Path & ";" & _
"Extended Properties=""DBASE IV;"";"
Set OpenDBFConn = Conn
End Function
'Abrimos la conexión
Dim DBConn
Set DBConn = OpenDBFConn("E:\")
'Creamos la tabla
DBConn.Execute "Create Table Agenda (Nombre char(50), Domicilio char(50), Ciudad char(20), Codpostal decimal(5))"
'Insertamos valores
DBConn.Execute "Insert into Agenda Values('Pedro Perez', 'Calle 56','Miciudad','12345')"
'Abrimos la tabla para posteriores operaciones
Dim Agenda
Set Agenda = DBConn.Execute("Select * from [Agenda#DBF]")
</SCRIPT>
No olvides cerrar luego la conexión , eh?
Y eso es todo
