ENQUETE

[vcdias 0]

Bom dia a todos,

 

estou tendo problemas com a configuração da minha enquete.

Antes, ela funcionava muito bem, quando coloquei em outro provedor, não sei por qual motivo, para de fazer isso.

Ela lê as informações e apresenta a tela com os resultados, porém não está gravando.

É para ela gravar em um arquivo TXT (enquete.txt)

 

ESTE É O CÓDIGO QUE GRAVA E EXIBE OS RESULTADOS (resultados.asp)

A linha em vermelho é a que apresenta o problema.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%' Esse arquivo nao precisa ser alterado, salvo o SERVER.MAPPTH no caso da enquete aparecer' em várias pastas (vide arquivo ENQUETE.ASP)id = request.querystring ("id")cont = request.querystring ("cont")'Cria o objeto de textoSet Textobj = Server.CreateObject("Scripting.FileSystemObject")Set Leenq = Textobj.OpenTextFile(Server.MapPath("" & id & ".txt"),1)linha = split(Leenq.readline , "|")'Fecha e limpa da memoriaLeenq.closeSet Leenq = nothing'Calcula a quantidade de opções que a enquete possuiopcoes = int(ubound(linha)/2)'Cont é o valor passado do código do ENQUETE.ASP'Quando ele é igual a 1 então o sistema grava o voto'Caso contrário, ele pula a gravação e apenas exibe os resultados parciaisif cont = "1" then  sel = int(request.querystring("op"))		linha(opcoes+sel+1)=(int(linha(opcoes+sel+1)))+1		[color=#CC0000]Set Gravaenq = Textobj.CreateTextFile(Server.MapPath("" & id & ".txt"),8)[/color]  for g = 0 to ubound(linha)				Gravaenq.write linha(g)				if g <> ubound(linha) then Gravaenq.write "|"		next		msg = "Muito Obrigado!" 'mensagem de agradecimento				'fecha e limpa da memoria os objetos e instancias		Gravaenq.close  Set Gravaenq = nothingend if' exibe os resultados%><table width="100%" height="18" align="center" cellpadding="0" cellspacing="0" >  <tr>	<td background="images/bg_vermelho.jpg">	<center>	  <b><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">ENQUETE - Resultados Parciais</font></b>	</center></td>  </tr></table><p align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FF0000" size="2"><%=msg%> </font></b></font></p><p><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=linha(0)%></font></b></p>  <b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">  <%for a=1 to opcoes		%>		  <%=linha(a)%>: </font></b><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=linha(opcoes+a)%> voto(s)<b><br>		  		  <%next' fecha e limpa da memoria os objetos e instanciasSet Textobj = nothing%>		  </b></font><p align="center"> </p><p align="center"><a href="" onClick="window.close()">Fechar Janela</a></p>

[vcdias 0]

TENTEI COLOCAR AQUI O CÓDIGO DO ARQUIVO enquete.asp, ESTE POSSUI O FORMULÁRIO DA ENQUETE ONDE É MARCADO A OPÇÃO DESEJADA E O BOTÃO PARA VOTAR.

[supino 0]

verifica la com a turma do servidor se é necessário dar permissão de escrita na pasta aonde deseja gravar o conteudo da enquete

[vcdias 0]

já tem permissão de escrita.

[vcdias 0]

ALGUÉM TEM ALGUMA IDÉIA DE COMO RESOLVER ESTE PROBLEMA?

SE ALGUÉM QUISER VER O FUNCIONAMENTO:

http://www.karatebushidokan.com.br/principal.asp

[Salgado 4]

Não poste em letras mauisculas, isso equivale a gritar e serei obrigado a fechar o seu tópico da próxima vez.

 

Ao invéz de usar o CreateFile use o OpenTextFile.

[vcdias 0]

Fiz isto e testei, também não funcionou!

[Ricardo M. Neitzer 0]

tente colocar isso no começo do seu codigo: <%Server.ScriptTimeOut = 60%>

[Mário Monteiro 179]

ta dando erro de permissaoo que tem na linha 38???