Crear Archivos Dbf Con Asp

[g33k.gu]

saludos foreros,
me imagino que muchos de ustedes ya lo han hecho pero yo no tengo ni la mas remota idea de como hacerlo, hay alguien que por favor me pueda explicar una rutina, para crear archivos DBF con asp.

GRACIAS

[bitseater]

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