Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

neotheone

contador de acesso com problema

Recommended Posts

Estou testando um contador que peguei de um tutorial que uma pessoa fezsegue o codigo abaixo:<%if Request.Cookies("IP")("UsuarioIP")=Request.ServerVariables("REMOTE_ADDR")ThenSet fso=Server.CreateObject("Scripting.FileSystemObject")Set gravar=fso.OpenTextFile(server.MapPath("contador.txt"),1,False)total=gravar.readlinegravar.closeset gravar=nothingresponse.Write("total de visistas:"&total)elseSet fso=Server.CreateObject("Scripting.FileSystemObject")caminho=server.MapPath("contador.txt")set gravar=fso.OpenTextFile(caminho,1,False)linha=gravar.readlinetotal=linha+1;gravar.closeset gravar=nothingset gravar=fso.CreatTextFile(caminho,true)gravar.write=""&totalgravar.closeset gravar=nothingresponse.Write("total de visistas:" &total)end ifResponse.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR")%> estou testando ele no site www.anjotorto.cjb.netsendo que ele está dando o seguinte erroErro de compilação do Microsoft VBScript erro '800a03f9' 'Then' esperado /anjotorto/index.asp, line 3 if Request.Cookies("IP")("UsuarioIP")=Request.ServerVariables("REMOTE_ADDR")PS: qual pode ser a solucao?sds Felipe

Compartilhar este post


Link para o post
Compartilhar em outros sites

O THEN tem de ficar na mesma linha do IF e tu estás a mete-lo na linha de baixo.EX:if x="teste" Thencódigoend ifo teu está assim:if x="teste" Then <== Isto está erradocódigoend if

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.