Ir para conteúdo
Fórum Script Brasil
  • 0

Rotator

renatacm

Perguntado por renatacm,

 Share

Pergunta

renatacm

renatacm

Postado
Postado

Como mudar parte da default.asp a cada refrash da página?

Tenho uma parte reservada na página principal da minha HomePage para os Parceiros do Projeto. Gostaria que a cada refrash (ou a cada exibição da página) aparecesse o logo e a descrição de um parceiro diferente...

Já tentei usar o AdRotator mas não consegui nada! Sou iniciante em programação ASP e não estou obtendo sucesso em minhas tentativas.

Será que alguém pode me ajudar a montar ?!?

Link para o comentário
Compartilhar em outros sites

20 respostass a esta questão

Posts Recomendados

  • 0
cyberalexxx

cyberalexxx

Postado
Postado

Não sei se é a melhor maneira. mais funciona, da uma olhada:

Arquivo Global.asa

<script LANGUAGE=VBSCRIPT RUNAT=SERVER>

Sub Application_OnStart()
    Application("Parceiro")=1
End Sub

</SCRIPT>
arquivo parceiros.asp 
<%
'função para trocar de parceiro
sub trocaparceiro()
if application("parceiro") = 6 then
   application("parceiro") = 1
   else
   application("parceiro") = application("parceiro") + 1
end if   
end sub

'exibição dos dados
select case application("parceiro")
   case 1%>
       mostrando dados parceiro 1
       <%trocaparceiro()%>
   <%case 2%>
       mostrando dados parceiro 2
       <%trocaparceiro()%>
   <%case 3%>
       mostrando dados parceiro 3
       <%trocaparceiro()%>
   <%case 4%>
       mostrando dados parceiro 4
       <%trocaparceiro()%>
   <%case 5%>
       mostrando dados parceiro 5
       <%trocaparceiro()%>
   <%case 6%>
       mostrando dados parceiro 6
       <%trocaparceiro()%>
<% end select %>
        
              

Link para o comentário
Compartilhar em outros sites
  • 0
renatacm

renatacm

Postado
  • Autor
Postado

Eu sou novata nesse negocio! (rs...)

Como faço para o resultado aparecer na default.asp?

Incluo a segunda parte (parceiro.asp) na célula reservada aos parceiros?

(Me desculpem pela simplicidade das perguntas, mas, realmente, estou começando na área. Ainda não deu - $$$ - pra fazer um curso unsure.gif )

Link para o comentário
Compartilhar em outros sites
  • 0
renatacm

renatacm

Postado
  • Autor
Postado

<html>

<head></head>

<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('imagens/institucional1.gif','imagens/atividades1.gif','imagens/eventos1.gif','imagens/parceiros1.gif','imagens/juntese1.gif','imagens/doacao1.gif','imagens/Fale01.gif')">

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="100%" height="937" align="center" valign="middle">

<table width="691" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">

<tr>

<td width="687">

<table width="686" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="175"><img src="imagens/spacer.gif" width="175" height="1" border="0" alt=""></td>

<td width="22"><img src="imagens/spacer.gif" width="22" height="1" border="0" alt=""></td>

<td width="236"><img src="imagens/spacer.gif" width="236" height="1" border="0" alt=""></td>

<td width="253"><img src="imagens/spacer.gif" width="253" height="1" border="0" alt=""></td>

<td width="1"><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>

</tr>

<tr>

<td colspan="2"><img name="index_r1_c1" src="imagens/index_r1_c1.gif" width="197" height="96" border="0" alt=""></td>

<td colspan="2" align="center" valign="middle"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="370" height="55">

<param name="movie" value="imagens/Some_Texto_Olhos.swf">

<param name="quality" value="high">

<embed src="imagens/Some_Texto_Olhos.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="370" height="55"></embed></object></td>

<td><img src="imagens/spacer.gif" width="1" height="96" border="0" alt=""></td>

</tr>

<tr>

<td colspan="4" align="center" valign="middle"><a href="quemsomos.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image21','','imagens/institucional1.gif',1)"><img src="imagens/institucional.gif" name="Image21" width="98" height="35" border="0"></a><a href="atividades.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image22','','imagens/atividades1.gif',1)"><img src="imagens/atividades.gif" name="Image22" width="98" height="35" border="0"></a><a href="eventos.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image23','','imagens/eventos1.gif',1)"><img src="imagens/eventos.gif" name="Image23" width="98" height="35" border="0"></a><a href="parceiros.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image24','','imagens/parceiros1.gif',1)"><img src="imagens/parceiros.gif" name="Image24" width="98" height="35" border="0"></a><a href="juntese.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image25','','imagens/juntese1.gif',1)"><img src="imagens/juntese.gif" name="Image25" width="98" height="35" border="0"></a><a href="contribuicoes.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image26','','imagens/doacao1.gif',1)"><img src="imagens/doacao.gif" name="Image26" width="98" height="35" border="0"></a><a href="fale.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image27','','imagens/Fale01.gif',1)"><img src="imagens/Fale.gif" name="Image27" width="98" height="35" border="0"></a><br>

</td>

<td><img src="imagens/spacer.gif" width="1" height="33" border="0" alt=""></td>

</tr>

<tr>

<td colspan="4"><img src="imagens/imglivro.jpg" width="686" height="100"></td>

<td><img src="imagens/spacer.gif" width="1" height="84" border="0" alt=""></td>

</tr>

<tr>

<td colspan="4"><img name="index_r4_c1" src="imagens/index_r4_c1.gif" width="686" height="31" border="0" alt=""></td>

<td><img src="imagens/spacer.gif" width="1" height="31" border="0" alt=""></td>

</tr>

<tr>

<td>&nbsp;</td>

<td colspan="3" ><p>&nbsp;</p>

</td>

<td><img src="imagens/spacer.gif" width="1" height="321" border="0" alt=""></td>

</tr>

<tr>

<td colspan="4"><img name="index_r6_c1" src="imagens/index_r6_c1.gif" width="686" height="33" border="0" alt=""></td>

<td><img src="imagens/spacer.gif" width="1" height="33" border="0" alt=""></td>

</tr>

<tr>

<td align="center" valign="middle">

<fieldset>

<!-- INICIO DO CODIGO DA ENQUETE -->

<script language="JavaScript">

<!--

function Abre(url, width, height)

{

window.open(url,"_blank","resizable=yes,toolbar=no,status=no,menubar=no,scrollbars=yes,width=" + width + ",height=" + height)

}

function Fun_Enviar(formID)

{

var formularios = document.forms.length;

for(i=0;i<formularios;i++)

{

if(document.forms.name==formID)

{

var formulario = i;

break;

}

}

var num_respostas = document.forms[formulario].opcao.length;

var resposta = num_respostas;

var respostas = "";

for(i=0;i<num_respostas;i++)

{

if(document.forms[formulario].opcao.checked)

{

resposta = i;

if(respostas)

{

respostas=respostas + "&";

}

else

{

respostas=respostas + "?";

}

respostas=respostas + "opcao=" + document.forms[formulario].opcao.value;

}

}

if(resposta==num_respostas)

{

alert("Uma opção deve ser escolhida!");

}

else

{

Abre("http://www.enquetes.com.br/enquete.asp" + respostas,400,340);

}

}

//-->

</script>

<form name=frm495805>

<p>&nbsp;</p>

<p><B><font size="2" face="Arial, Helvetica, sans-serif">Que

tipo de doação você faria?</font></B></p>

<p align="left"> <font size="2" face="Arial, Helvetica, sans-serif">

<input name="opcao" type="radio" value="2648104">

Em dinheiro<br>

<input name="opcao" type="radio" value="2648105">

Alimentos / Produtos<br>

<input name="opcao" type="radio" value="2648106">

Trabalho voluntário<br>

<input name="opcao" type="radio" value="2648107">

Prestação de serviços<br>

<input name="opcao" type="radio" value="2648108">

Não faria</font></p>

<p>

<input type="hidden" name="id" value="495805">

<b><a href="javascript:Fun_Enviar('frm495805')"><img src="imagens/b_vote_a.gif" border="0"></a></b>

<br>

<a href="javascript:Abre('http://www.enquetes.com.br/enquete.asp?id=495805',400,350)"><img src="imagens/b_respar_a.gif" border="0"></a>

</p>

</form>

<!-- FIM DO CODIGO DA ENQUETE -->

</fieldset> </td>

<td colspan="2">&nbsp;</td>

<td align="center" valign="middle"><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif">&Aacute;rea

para parceiros</font></td>

<td><img src="imagens/spacer.gif" width="1" height="237" border="0" alt=""></td>

</tr>

<tr>

<td colspan="4"><div align="center"><img name="index_r8_c1" src="imagens/index_r8_c1.gif" width="687" height="15" border="0" alt=""></div></td>

<td><img src="imagens/spacer.gif" width="1" height="15" border="0" alt=""></td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

</table>

</body>

</html>

Eu gostaria de fazer as imagens aparecerem alternada na Área para parceiros...

Link para o comentário
Compartilhar em outros sites
  • 0
Victor

Victor

Postado
Postado
Como mudar parte da default.asp a cada refrash da página?

Tenho uma parte reservada na página principal da minha HomePage para os Parceiros do Projeto. Gostaria que a cada refrash (ou a cada exibição da página) aparecesse o logo e a descrição de um parceiro diferente...

Já tentei usar o AdRotator mas não consegui nada! Sou iniciante em programação ASP e não estou obtendo sucesso em minhas tentativas.

Será que alguém pode me ajudar a montar ?!?

Tupo, você pode usar o randomize, ele vai fazer trocar algo cada fez que você der um refrash na página, mas em alguns casos ele pode aparecer igual a cada pessoa wink.gif

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

1 - Coloque o arquivo global.asa que eu te passei no servidor

2 - No arquivo parceiros.asp onde eu coloquei: mostrando dados parceiro x, você substitui essa linhas com os dados que você quer que aparece para cada parceiro.

3 - coloque uma linha de include no seu default.asp chamando a pagina parceiros.asp, seu codigo fica assim:

<html>

<head></head>

<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('imagens/institucional1.gif','imagens/atividades1.gif','imagens/eventos1.gif','imagens/parceiros1.gif','imagens/juntese1.gif','imagens/doacao1.gif','imagens/Fale01.gif')">

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="100%" height="937" align="center" valign="middle">

<table width="691" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">

<tr>

<td width="687">

<table width="686" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="175"><img src="imagens/spacer.gif" width="175" height="1" border="0" alt=""></td>

<td width="22"><img src="imagens/spacer.gif" width="22" height="1" border="0" alt=""></td>

<td width="236"><img src="imagens/spacer.gif" width="236" height="1" border="0" alt=""></td>

<td width="253"><img src="imagens/spacer.gif" width="253" height="1" border="0" alt=""></td>

<td width="1"><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>

</tr>

<tr>

<td colspan="2"><img name="index_r1_c1" src="imagens/index_r1_c1.gif" width="197" height="96" border="0" alt=""></td>

<td colspan="2" align="center" valign="middle"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="370" height="55">

<param name="movie" value="imagens/Some_Texto_Olhos.swf">

<param name="quality" value="high">

<embed src="imagens/Some_Texto_Olhos.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="370" height="55"></embed></object></td>

<td><img src="imagens/spacer.gif" width="1" height="96" border="0" alt=""></td>

</tr>

<tr>

<td colspan="4" align="center" valign="middle"><a href="quemsomos.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image21','','imagens/institucional1.gif',1)"><img src="imagens/institucional.gif" name="Image21" width="98" height="35" border="0"></a><a href="atividades.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image22','','imagens/atividades1.gif',1)"><img src="imagens/atividades.gif" name="Image22" width="98" height="35" border="0"></a><a href="eventos.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image23','','imagens/eventos1.gif',1)"><img src="imagens/eventos.gif" name="Image23" width="98" height="35" border="0"></a><a href="parceiros.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image24','','imagens/parceiros1.gif',1)"><img src="imagens/parceiros.gif" name="Image24" width="98" height="35" border="0"></a><a href="juntese.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image25','','imagens/juntese1.gif',1)"><img src="imagens/juntese.gif" name="Image25" width="98" height="35" border="0"></a><a href="contribuicoes.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image26','','imagens/doacao1.gif',1)"><img src="imagens/doacao.gif" name="Image26" width="98" height="35" border="0"></a><a href="fale.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image27','','imagens/Fale01.gif',1)"><img src="imagens/Fale.gif" name="Image27" width="98" height="35" border="0"></a><br>

</td>

<td><img src="imagens/spacer.gif" width="1" height="33" border="0" alt=""></td>

</tr>

<tr>

<td colspan="4"><img src="imagens/imglivro.jpg" width="686" height="100"></td>

<td><img src="imagens/spacer.gif" width="1" height="84" border="0" alt=""></td>

</tr>

<tr>

<td colspan="4"><img name="index_r4_c1" src="imagens/index_r4_c1.gif" width="686" height="31" border="0" alt=""></td>

<td><img src="imagens/spacer.gif" width="1" height="31" border="0" alt=""></td>

</tr>

<tr>

<td>&nbsp;</td>

<td colspan="3" ><p>&nbsp;</p>

</td>

<td><img src="imagens/spacer.gif" width="1" height="321" border="0" alt=""></td>

</tr>

<tr>

<td colspan="4"><img name="index_r6_c1" src="imagens/index_r6_c1.gif" width="686" height="33" border="0" alt=""></td>

<td><img src="imagens/spacer.gif" width="1" height="33" border="0" alt=""></td>

</tr>

<tr>

<td align="center" valign="middle">

<fieldset>

<!-- INICIO DO CODIGO DA ENQUETE -->

<script language="JavaScript">

<!--

function Abre(url, width, height)

{

window.open(url,"_blank","resizable=yes,toolbar=no,status=no,menubar=no,scrollbars=yes,width=" + width + ",height=" + height)

}

function Fun_Enviar(formID)

{

var formularios = document.forms.length;

for(i=0;i<formularios;i++)

{

if(document.forms.name==formID)

{

var formulario = i;

break;

}

}

var num_respostas = document.forms[formulario].opcao.length;

var resposta = num_respostas;

var respostas = "";

for(i=0;i<num_respostas;i++)

{

if(document.forms[formulario].opcao.checked)

{

resposta = i;

if(respostas)

{

respostas=respostas + "&";

}

else

{

respostas=respostas + "?";

}

respostas=respostas + "opcao=" + document.forms[formulario].opcao.value;

}

}

if(resposta==num_respostas)

{

alert("Uma opção deve ser escolhida!");

}

else

{

Abre("http://www.enquetes.com.br/enquete.asp" + respostas,400,340);

}

}

//-->

</script>

<form name=frm495805>

<p>&nbsp;</p>

<p><B><font size="2" face="Arial, Helvetica, sans-serif">Que

tipo de doação você faria?</font></B></p>

<p align="left"> <font size="2" face="Arial, Helvetica, sans-serif">

<input name="opcao" type="radio" value="2648104">

Em dinheiro<br>

<input name="opcao" type="radio" value="2648105">

Alimentos / Produtos<br>

<input name="opcao" type="radio" value="2648106">

Trabalho voluntário<br>

<input name="opcao" type="radio" value="2648107">

Prestação de serviços<br>

<input name="opcao" type="radio" value="2648108">

Não faria</font></p>

<p>

<input type="hidden" name="id" value="495805">

<b><a href="javascript:Fun_Enviar('frm495805')"><img src="imagens/b_vote_a.gif" border="0"></a></b>

<br>

<a href="javascript:Abre('http://www.enquetes.com.br/enquete.asp?id=495805',400,350)"><img src="imagens/b_respar_a.gif" border="0"></a>

</p>

</form>

<!-- FIM DO CODIGO DA ENQUETE -->

</fieldset> </td>

<td colspan="2">&nbsp;</td>

<td align="center" valign="middle"><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif">&

AREA PARA PARCEIROS

<!--#include file="parceiros.asp"-->

</font></td>

<td><img src="imagens/spacer.gif" width="1" height="237" border="0" alt=""></td>

</tr>

<tr>

<td colspan="4"><div align="center"><img name="index_r8_c1" src="imagens/index_r8_c1.gif" width="687" height="15" border="0" alt=""></div></td>

<td><img src="imagens/spacer.gif" width="1" height="15" border="0" alt=""></td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

</table>

</body>

</html>

Link para o comentário
Compartilhar em outros sites
  • 0
renatacm

renatacm

Postado
  • Autor
Postado

cyberalexxx, pelo Dreamweaver, as informações do parceiros.asp aparecem direitinho na célula, porém, quando jogo para o servidor (ASP) não aparece nada na respectiva célula do default.asp. Não dá nenhuma mensagem de erro: simplesmente é como se não tivesse o include.

OBS: O global.asa deve ficar na mesma pasta que o default.asp?

Esses dados estão num subdiretório de teste e não no raiz do servidor. Pode ser isso?

PS: Desde já, obrigada, pessoal!

vocês são d + !!! tongue.gif

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

Vamos descobrir o erro!!!

altere o arquivo parceiros.asp temporariamente para a seguinte forma:

<%
'função para trocar de parceiro
sub trocaparceiro()
if application("parceiro") = 6 then
  application("parceiro") = 1
  else
  application("parceiro") = application("parceiro") + 1
end if   
end sub

response.write"O valor da variavel que controla os parceiros é: "
response.write(application("parceiro"))

if application("parceiro") > 6 then
   application("parceiro") = 1
end if   

'exibição dos dados
select case application("parceiro")
  case 1%>
      mostrando dados parceiro 1
      <%trocaparceiro()%>
  <%case 2%>
      mostrando dados parceiro 2
      <%trocaparceiro()%>
  <%case 3%>
      mostrando dados parceiro 3
      <%trocaparceiro()%>
  <%case 4%>
      mostrando dados parceiro 4
      <%trocaparceiro()%>
  <%case 5%>
      mostrando dados parceiro 5
      <%trocaparceiro()%>
  <%case 6%>
      mostrando dados parceiro 6
      <%trocaparceiro()%>
<% end select %>
       
            

ALtere e me passe o resultado!!

T+

Link para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado

Srº e Srª()

Onde esta o include do arquivo (parceiros.asp) para exibir o resultado ?

Acredito que seja este detalhezinho bem simples.

Ah, uma outra coisa, os arquivos, estão no mesmo diretorio ou na pasta "images", presumo isso porque, normalmente, as imagens são criadas no photoshop e não se altera o nome dela.

Abraços!!

Link para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
Postado
www.site.com.br/teste

Todos os arquivos deste projeto estão num subdiretório chamado teste, inclusive o global.asa.

o global.asa SEMPRE deve estar na pasta raiz!

Link para o comentário
Compartilhar em outros sites
  • 0
renatacm

renatacm

Postado
  • Autor
Postado

Segui o exemplo que o ursoloco me mandou Tutorial AdRotator e agora tá dando a seguinte mensagem de erro:

Response object error 'ASP 0158 : 80004005'

Missing URL

/teste/captura.asp, line 3

A URL is required.

Seguem os códigos

rotator.asp

<%

'Cria o objeto "rotator" com a variável Roda

Set Roda = Server.CreateObject("MSWC.AdRotator")

'Determina que a borda da imagem seja = 0 (zero)

Roda.Border = 0

'O clique no objeto é determinado como True (a imagem será apresentada como link)

'Caso seja False quando a página for carregada apenas haverá o "sorteio" de imagens.

Roda.Clickable = True

'Aqui o Target do Objeto Roda é determinado como "blank", para abrir em nova janela.

Roda.TargetFrame = "target=_blank"

%>

captura.asp

<%

response.redirect request.querystring("url")

%>

ramdom.txt

REDIRECT /captura.asp

WIDTH 170

HEIGHT 181

BORDER 0

*

imagens/parceiro1.gif

http://www.site.com.br/parceiro1

Parceiro 01

4

imagens/parceiro2.gif

http://www.site.com.br/parceiro2

Parceiro 02

5

imagens/parceiro3.gif

http://www.site.com.br/parceiro3

Parceiro 03

3

'*

E o no arquivo defaultp.asp

<!--#include file="rotator.asp"-->

<!--#include file="captura.asp"-->

<%

Response.Write roda.GetAdvertisement("random.txt")

%>

E agora??!?? huh.gif

Link para o comentário
Compartilhar em outros sites
  • 0
renatacm

renatacm

Postado
  • Autor
Postado

Vamos descobrir o erro!!!

altere o arquivo parceiros.asp temporariamente para a seguinte forma:

<%
'função para trocar de parceiro
sub trocaparceiro()
if application("parceiro") = 6 then
  application("parceiro") = 1
  else
  application("parceiro") = application("parceiro") + 1
end if   
end sub

response.write"O valor da variavel que controla os parceiros é: "
response.write(application("parceiro"))

if application("parceiro") > 6 then
   application("parceiro") = 1
end if   

'exibição dos dados
select case application("parceiro")
  case 1%>
      mostrando dados parceiro 1
      <%trocaparceiro()%>
  <%case 2%>
      mostrando dados parceiro 2
      <%trocaparceiro()%>
  <%case 3%>
      mostrando dados parceiro 3
      <%trocaparceiro()%>
  <%case 4%>
      mostrando dados parceiro 4
      <%trocaparceiro()%>
  <%case 5%>
      mostrando dados parceiro 5
      <%trocaparceiro()%>
  <%case 6%>
      mostrando dados parceiro 6
      <%trocaparceiro()%>
<% end select %>
       
            

ALtere e me passe o resultado!!

T+

cyber, fiz um teste com o que você me pediu e o resultado é ::::

O valor da variavel que controla os parceiros é:

Microsoft VBScript runtime error '800a01a8'

Object required: 'roda'

/teste/teste/Default.asp, line 164

OBS: deixei o arquivo global.asa junto com os demais (nesta mesma pasta)

Link para o comentário
Compartilhar em outros sites
  • 0
renatacm

renatacm

Postado
  • Autor
Postado

cyber, você é d+ !!! biggrin.gif

Agora funcionou!!!

Então, pra deixar registrado pra quem mais quiser saber como fazer certo:

parceiros.asp

<%

'função para trocar de parceiro

sub trocaparceiro()

if application("parceiro") = 6 then

application("parceiro") = 1

else

application("parceiro") = application("parceiro") + 1

end if 

end sub

if application("parceiro") > 6 then

  application("parceiro") = 1

end if 

'exibição dos dados

select case application("parceiro")

case 1%>

    mostrando dados parceiro 1

    <%trocaparceiro()%>

<%case 2%>

    mostrando dados parceiro 2

    <%trocaparceiro()%>

<%case 3%>

    mostrando dados parceiro 3

    <%trocaparceiro()%>

<%case 4%>

    mostrando dados parceiro 4

    <%trocaparceiro()%>

<%case 5%>

    mostrando dados parceiro 5

    <%trocaparceiro()%>

<%case 6%>

    mostrando dados parceiro 6

    <%trocaparceiro()%>

<% end select %>

global.asa (detalhe: realmente este arquivo deverá ficar no diretório raiz do site - só assim funcionou)

<script LANGUAGE=VBSCRIPT RUNAT=SERVER>

Sub Application_OnStart()

  Application("Parceiro")=1

End Sub

</SCRIPT>

e no arquivo default.asp (na célula onde o resultado deverá aparecer)

<!--#include file="parceiros.asp"-->

Galerinha, valeu. Brigadão e me desculpem pela amolação!!!

Bjocas...

PS: Por favor, fechar o tópico.

PS-II: Se puderem incluir o resultado correto no tópico de funções... smile.gif

Link para o comentário
Compartilhar em outros sites
  • 0
renatacm

renatacm

Postado
  • Autor
Postado

Pessoal,

Agradeço muito (de coração) a ajuda de vocês.

O problema já voi resolvido (vide último post).

Testei no IE 6.0 e no Netscape 7.0 e funcionou perfeitamente em ambos.

Bjão pra todo mundo que colaborou.

PS: Aproveito pra fazer um convite à vocês:

O lançamento de um livro muito legal (assunto: A vida e a mudança de comportamento do menino Edimar) que ser no dia 20/089/2004 às 20h no Centro Cultural Sta. Catarina - SP (Av. Paulista, 200 - Metrô Brigadeiro) realizado por: Sociedade Menino Edimar - uma instituição sem fins lucrativos que ajuda aos carentes da região Norte da cidade de São Paulo a se recolocarem no mercado de trabalho. Pra quem quiser uns instantes extra-micro, vai ser bem legal!

Bjocas...

;oÞ

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...