Caros,

Estamos com um probleminha aqui para incluir/editar dados num banco do VFP 7.0 via OLE-DB usando uma página ASP.

Como não sou eu quem faz a programação ASP, mas sim um outro membro aqui da equipe, vou passar a questão que me repassou contendo o problema e o que ele já tentou fazer.

INÍCIO DA MENSAGEM
------------------
Estou com problemas para incluir um registro no Banco do VFP com ASP (Não ASP.NET).
OBs1.: O Código abaixo NÃO está na mesma página. Os vários trechos de código mostra as formas que já tentei;
Obs2.: Suspeito de algum BUG no VFPOLEB, ou no ADO, uma vez que encontrei referencias na KB da microsoft a problemas com outros Bancos de dados;

Estou usando o OLEDB (não ODBC) com a seguinte String de Conexão:

ConString = "PROVIDER=vfpoledb.1;DATA SOURCE=D:\Webdata\Banco.dbc;"

* minha tentativa inicial foi
....
Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.ActiveConnection = ConString
	Rs.Source = "INSERT INTO Tabela(Campo) VALUES('" & valor &"')"
	Rs.CursorType = 0
	Rs.CursorLocation = 2
	Rs.LockType = 1
	Rs.Open

....

******* Impossível de Incluir.
******* Tentei variações do tipo de Cursor(Client ou Server) 
******* mas a mensagem na maioria dos casos é que o Provedor (VFPOLEB)
******* não tem suporte no contexto.

******* Variei tb o Metodo de Inclusão usando Recordset.addNew nas suas duas formas:

Set Rs = Server.CreateObject("ADODB.RecordSet")

Rs.CursorType = 1     '1 = adOpenKeySet 
Rs.CursorLocation = 2 '2 = adUseServer, 3 = adUseClient
Rs.LockType = 3       '3 = adLockOptimistic
Rs.ActiveConnection = ConString
***** Variei tb os cursores. Idem Metodo Anterior

Sql = "Select campo FROM Tabela Where campo=1" 

Rs.Open Sql ** Apenas tento retornar assim a estrutura da Tabela Para usar "AddNew"

***** AddNew - Metodo 1

Rs.AddNew Array("campo1","campo2"), Array(valor1,valor2)
Rs.Update

***** AddNew - Metodo 2

Rs.AddNew
   Rs("campo1") = Valor1
   Rs("campo2") = Valor2
Rs.Update


***** Tentando estes dois metodos também retorna erro 
***** (principalmente de 'Não permitido no Contexto')

***** Ainda tentei o Mais simples:

Set Con = Server.CreateObject("ADODB.Connection")
Sql = "INSERT INTO Tabela(Campo) VALUES('" & valor &"')"

Set Rs = Con.Execute Sql,,adCmdText 'Especificando que o comando é uma string SQL

**** E ainda Tentei usar o Objeto ADODB.Command de várias formas.

Assim, se alguém tiver conseguido efetuar uma inclusão simples numa tabela de um banco
do VFP usando ASP e OLEDB (não ODBC), por favor me envie um exemplo.

FIM DA MENSAGEM
---------------