fso

[Cristiano_L_R 0]

onde estou errando?? quando o arquivo é executado, dá essa mensagem:

Microsoft VBScript runtime error '800a0046' Permission denied /hsionline.com.br/admin/teste/criar.asp, line 11

esse é o código do arquivo:

<%@ Language=VBScript %><%Dim strValorstrValor = Request.QueryString("qs_valor")Dim objFso, objArquivoNovoset objFso = Server.CreateObject("Scripting.FileSystemObject")set objArquivoNovo = objFso.CreateTextFile("retorno.xml", true)objArquivoNovo.WriteLine("<?xml version=""1.0"" encode=""ISO-8859-1""?><CODIGO><NUMERO>"& strValor &"</NUMERO></CODIGO>")objArquivoNovo.Closeset objArquivoNovo = nothingset objFso = nothing%>

[rOcKLoCo 0]

veja se tem permissão de escrita na PASTAfalows

[Cristiano_L_R 0]

sim, há permissão de escrita na pasta.. mas testando local também, dá esse mesmo erro.. :(

[FabricioGomes 0]

tente colocar o caminho completo do arquivo... ele pode estar gravando numa pasta que nao seja a que voce está...eu ja fiz isso e ele gravou no C:\.... e eu estava numa subpasta do inetpub...

[Mário Monteiro 179]

poe o caminho completo ...

[vicoluis 0]

<%@ Language=VBScript %>

<%

Dim strValor

 

strValor = Request.QueryString("qs_valor")

 

Dim objFso, objArquivoNovo

 

set objFso = Server.CreateObject("Scripting.FileSystemObject")

 

set objArquivoNovo = objFso.CreateTextFile("retorno.xml", true,false)

objArquivoNovo.WriteLine("<?xml version=""1.0"" encode=""ISO-8859-1""?><CODIGO><NUMERO>"& strValor &"</NUMERO></CODIGO>")

 

objArquivoNovo.Close

 

set objArquivoNovo = nothing

set objFso = nothing

%>