[Resolvido] CEO + Aspas Dupla

[lucastroy 0]

Galera, implementei uma CEO na hora do cadastro no meu site, onde com o nome de usuário é criado uma pasta no servidor com o nome do usuário, e em seguida é criado uma página "index.asp", e na hora de criar a página index.asp tudo funciona direitinho só que preciso especificar o nome do usuário em uma string;

 

'CRIA PASTA - tudo ok
Set pasta = Server.CreateObject("Scripting.FileSystemObject")

If Not pasta.FolderExists("e:\home\bazarrots\web\"& usuario) Then

 pasta.CreateFolder("e:\home\bazarrots\web\"& usuario)
end if

'CRIA ARQUIVO - tudo ok
Set fso = CreateObject("Scripting.FileSystemObject") 
Set folderObject = fso.GetFolder(Server.MapPath("\") & "\"& USUARIO) 
Set textStreamObject = folderObject.CreateTextFile("index.asp",true,false) 

'É AQUI QUE VEM MINHA DÚVIDA.

indexTXT = "<" & "%" & VbCrLf & _
"usuariopagina = " & usuario & VbCrLf & _

'NESTA LINHA DE CIMA EU QUERIA USAR ASPAS DUPLA MAS SE EU USAR ASPAS DUPLA DA ERRO POIS CONFUNDE COM A ASPAS DO CÓDIGO AQUI.. AIIIIII, NÃO SEI SE SEI EXPLICAR;;; DESCULPA A CAIXA ALTA, MAS ERA A ÚNICA FORMA Q TIVE DE DESTACAR ESTA FRASE ENTRE O CÓDIGO.

"%" & "> <!--#include file='../loja.asp' -->"

textStreamObject.WriteLine indexTXT

textStreamObject.Close ' remember to close it so that it writes the file 


Set textStreamObject = Nothing 
Set folderObject = Nothing 
Set fso = Nothing

 

 

Galera, fuçando eu consegui!!!!!!

 

eu só adicionei mtas aspas.. kkk

 

"usuariopagina = """ & usuario &"""" & VbCrLf & _

 

GRAÇAS A DEUS.