Problema com FSO - Objeto necessário

[delgisa 0]

Olá, por gentileza, alguém pode me ajudar

 

Estou tentando criar um arquivo txt e está dando erro. Veja o código e logo abaixo o erro:

 

10  <% Dim FSO, caminho, gravar
11  Set FSO = Server.CreatObject("Scripting.FileSystemObject")
12  caminho = ServerMapPath("teste.txt")
13  Set GRAVAR = FSO.CreateTextFile(caminho,true)
14  gravar.write("teste de gravação")
15  gravar.close
16  response.write"gravado!"
17  %>

 

E quando executo, dá erro:

0x800A01AB OBJETO NECESSÁRIO: 'c:\inetpub\wwwroot\t' Line 13

 

OBS.: EU JÁ FIZ O ESQUEMA DE FERRAMENTAS ADMINISTRATIVAS, CRIAR COMPONENTE E IMPORTEI O ARQUIVO scrrun.dll

 

Grato

 

Jardel

 

JARDEL

[Mário Monteiro 179]

escreve o valor de caminho para ver se é valido

[delgisa 0]

Mário, tentei na linha que deu o erro, aonde está escrito caminho, troquei por: c:/inetpub/wwwroot/teste.txt e agora deu outro erro:

 

800A0046 Permissão Negada line 13

 

Outra coisa (desculpe, não é assunto de FSO, mas se puder ajudar...)

Seria alguma configuração que tenho de fazer? Uma vez que executo localmente? Porque, veja só, tenho uma página na internet que faz inserção de dados em banco .mdb e funciona bem, mas quando eu copio a página e o banco para meu computador e rodo localmente, dá erro:

 

Tipo de erro: microsoft OLE DB Provider for ODBC Drivers (ox80004005) [Microsoft] [Driver OBDC para Microsoft Access]. ERRO GERAL NÃO É POSSÍVEL ABRIR A CHAVE 'Temporary (Volatile) Jet DSN for process 0x398 Thread 0xE28 DBC 0x106882C Jet'do Registro. Line 318

 

Segue o código abaixo:

 

315   dim bd
316	Set Conexao = Server.CreateObject("ADODB.Connection")
317		  cnpath="DBQ=" & server.mappath("EnqueteProgetec.mdb")
318		 Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
319	ComandoSQL = "INSERT INTO Enquete (Cidade, ComoFoiAtendimento, DAPBeneficio, DAPCalculoAposentadoria, 320	DAPCalculoMedia, DAPCertidaoTempoContribuicao, DAPControleDependente, DAPDadosCadastraisServidores, DAPExtratoIndividualizado, DAPPreenchimentoAnexo, DAPTempoContribuicao, DescrevaDificuldadeAntesProgetec, GostariaReceberInformacoes, NUAposentadoriaIdade, NUAposentadoriaTempoContribuicao, NUCartaoAposentados, NUExclusaoDependente, NUExtratoIndividualizado, NUFichaRecadastramento, NUImportacaoContribuicao, NUIndiceAtualizacaoSalario, NUModeloDocumento, NUPensionistaInstituidorPensao, NUProjecaoAposentadoria, NUProventoMedia, NURelatorioServidorBeneficio, NUServidorInativoReajuste, NUValorBeneficioGeral, NUValorBeneficioServidor, PrecisouSuporteTecnico, PrecisouSuporteTecnicoComoFoi, ProgetecPrecisaMelhorar, ProgetecPrecisaMelhorarEmQue, ProgetecSanouDificuldade, RecomendariaProgetec, RespPreenchimento, SabeDoPrevFolha, SabiaConsultorPrevidenciario, Sugestoes, UF)"
	ComandoSQL = ComandoSQL & " VALUES ("
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Cidade")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("ComoFoiAtendimento")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("DAPBeneficio")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("DAPCalculoAposentadoria")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("DAPCalculoMedia")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("DAPCertidaoTempoContribuicao")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("DAPControleDependente")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("DAPDadosCadastraisServidores")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("DAPExtratoIndividualizado")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("DAPPreenchimentoAnexo")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("DAPTempoContribuicao")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("DescrevaDificuldadeAntesProgetec")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("GostariaReceberInformacoes")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUAposentadoriaIdade")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUAposentadoriaTempoContribuicao")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUCartaoAposentados")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUExclusaoDependente")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUExtratoIndividualizado")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUFichaRecadastramento")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUImportacaoContribuicao")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUIndiceAtualizacaoSalario")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUModeloDocumento")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUPensionistaInstituidorPensao")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUProjecaoAposentadoria")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUProventoMedia")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NURelatorioServidorBeneficio")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUServidorInativoReajuste")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUValorBeneficioGeral")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NUValorBeneficioServidor")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("PrecisouSuporteTecnico")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("PrecisouSuporteTecnicoComoFoi")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("ProgetecPrecisaMelhorar")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("ProgetecPrecisaMelhorarEmQue")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("ProgetecSanouDificuldade")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RecomendariaProgetec")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RespPreenchimento")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("SabeDoPrevFolha")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("SabiaConsultorPrevidenciario")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Sugestoes")) & "',"
	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("UF")) & "')"
	Set bd = Conexao.Execute(ComandoSQL)
	Conexao.Close
	Set bd = Nothing
	Set Conexao = Nothing
%>

[Mário Monteiro 179]

tem qeu dar permissao de escrita no diretorio