Ir para conteúdo

POWERED BY:

Arquivado

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

clone

<% If Request("mostrar")

Por , em ASP Clássico

Recommended Posts

clone    0

clone
Postado

Ae gente, tpo, eu uso o seguinte mecanismo pra separar seções:

 

<% if request("mostrar") = "468x60" then %><!-- #include file='utils_banners468x60.inc' --><% end if %>

mas eu não sei oq esta acontecendo q ta dando esse erro aqui:

 

Microsoft VBScript compilation error '800a0400' Expected statement /wareztotal.asp, line 64 end if

e isso é só no arquivo wareztotal.asp

pois no default.asp eu uso da mesma forma e não da esse erro... pq?

e como que eu resolvo isso, no arquivo wareztotal.asp existem 10 desses mecanismos, de forma identica (unica diferença são os includes) ao default.asp mas possuem esse erro...

 

agradeço a ajuda

abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

augusto    0

augusto
Postado

Talvez....

 

Pode ser por o arquivo já começa na linha inicial....tenta uma quebra de linha

 

<% if request("mostrar") = "468x60" then %><!-- #include file='utils_banners468x60.inc' --><% end if %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

alack    0

alack
Postado

gente, aspas simples e aspas duplas só são diferentes na instrução sql.quebra de página também não tem nada a ver. :D clone, verifique se o arquivo wareztotal.asp está na mesma pasta que o default.asp.se estiver uma pasta abaixo, a include ficará "... file='../arquivo'..."té! B)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

a pagina wareztotal.asp esta na mesma pasta da default??

Compartilhar este post

Link para o post
Compartilhar em outros sites

clone    0

clone
Postado

opa, tentei oq vcs falaram e deu o mesmo erro.. saca só:

 

Microsoft VBScript compilation error '800a0400' Expected statement /wareztotal.asp, line 66 end if^

linha 66 pq eu tentei a quebra de linha...

 

 

respondendo às perguntas está sim tudo na mesma pasta (root) com excessão das imagens e dbs

 

o código todo é:

<!-- #include file="i_utils.asp" --><html><head><!--LINKWS-LWT--><div id="Layer1" style="position:absolute; left:0px; top:0px; width:0px; height:0px"><script src = "http://www.linkws.com/webservices/lwt/lwt_js.jsp?userProductID=655"></script></div><!--END-LINKWS-LWT--><script language="JavaScript">function statuss() {window.status = "Warez Total - programas completos, mp3, filmes, livros, games e MAIS!";      setTimeout("statuss()", 1);  }statuss();</script><title>// Warez Total - programas completos, mp3, filmes, livros, games e MAIS!</title><meta name="title" content="Warez Total"><meta name="description" content="A melhor warez do Brasil! Com dezenas de programas completos, filmes, games, livros e mp3! Tudo completo, gratuito e sem links quebrados para você!"><meta name="keywords" content="warez,clone,clonez,full,mp3,---,xxx,dvdrip,download,free,war,gratis,musica,noticias,macromedia,flash,cracks,hacker,futebol,dinheiro"><meta name="copyright" content="Warez Total"><meta name="distribution" content="Global"><meta name="rating" content="General"><meta name="robots" content="all"><link href="estilos.css" rel="stylesheet" type="text/css"></head><body bgcolor="#686868" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false" onselectstart="return false"><table width="779" border="0" cellpadding="0" cellspacing="0" class="grandetabela">  <tr>     <td colspan="2"><!--#include file="topo.inc"--></td>  </tr>  <tr>     <td width="630" valign="top"><table width="620" height="195" border="0" cellpadding="0" cellspacing="0">        <tr>           <td width="88"><img src="imagens/bg_banner_esq.gif" width="88" height="71"></td>          <td width="532"><div align="center">              <table width="520" height="71" border="0" align="left" cellpadding="0" cellspacing="0" background="imagens/bg_banner.gif">                <tr>                   <td valign="middle"><table width="484" border="0" align="center" cellpadding="0" cellspacing="0">                      <tr>                         <td width="13" height="62"><img src="imagens/ex_banner.gif" width="12" height="62"></td>                        <td width="470" height="62" align="center" valign="middle"><!-- #include file="banner468x60.inc" --></td>                      </tr>                    </table></td>                </tr>              </table>            </div></td>        </tr>        <tr valign="top">           <td colspan="2"><table width="610" height="124" border="0" cellpadding="0" cellspacing="0">              <tr>                 <td colspan="2"> </td>              </tr>              <tr>                 <td colspan="2"><img src="imagens/barra.gif" width="600" height="15"></td>              </tr>              <tr>                 <td width="14%"> </td>                <td width="86%"><table width="515" border="0" align="left" cellpadding="1" cellspacing="1" bgcolor="#000000">                    <tr>                       <td width="511" bgcolor="#787878"> <center><font size="2" face="Verdana, Arial, Helvetica, sans-serif">                           <%display_errsdisplay_msg%>                        </center></font>                        <font face="verdana" size="1">  <% if request("mostrar") = "468x60" then %><!-- #include file="utils_banners468x60.inc" --><% end if %>  <% if request("mostrar") = "120x60" then %><!-- #include file='utils_banners120x60.inc' --><% end if %>  <% if request("mostrar") = "banners" then %><!-- #include file='utils_megabanners.inc' --><% end if %>  <% if request("mostrar") = "contatos" then %><!-- #include file='utils_contatos.inc' --><% end if %>  <% if request("mostrar") = "listadeusuarios" then %><!-- #include file='utils_listadeusers.inc' --><% end if %>  <% if request("mostrar") = "top100" then %><!-- #include file='top100.inc.asp' --><% end if %>  <% if request("mostrar") = "namidia" then %><!-- #include file='utils_midia.inc' --><% end if %>  <% if request("mostrar") = "webdesigner" then %><!-- #include file='utils_webdesigner.inc' --><% end if %>  <% if request("mostrar") = "destaques" then %><!-- #include file='utils_destaques.inc' --><% end if %>  <% if request("mostrar") = "divulguenos" then %><!-- #include file='utils_divulguenos.inc' --><% end if %> </font> </center></td>                    </tr>                  </table></td>              </tr>              <tr>                 <td colspan="2"> </td>              </tr>              <tr>                 <td colspan="2">                   <!--#include file="indicacao.inc"-->                  <div align="left"></div></td>              </tr>            </table>          </td>        </tr>      </table></td>    <td width="150" align="center" valign="top"><div align="center"><!--#include file="menu_dir.inc"--></div></td>  </tr>  <tr>     <td colspan="2"><br>      <!--#include file="rodape.inc"--></td>  </tr></table></body></html><%':: assure that any db resources are freedon error resume nextrs.Closeset rs = NOTHINGcn.Closeset cn = NOTHINGuser_cn.Closeset user_cn = NOTHINGon error goto 0%>

 

obs: tem como eu usar case nesse caso?

alguem poderia me passar o codigo?

 

obrigado!

abraços :D

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

obs: tem como eu usar case nesse caso?alguem poderia me passar o codigo?obrigado!abraços :D

acho até melhor usar o case

Compartilhar este post

Link para o post
Compartilhar em outros sites

clone    0

clone
Postado

obs: tem como eu usar case nesse caso?alguem poderia me passar o codigo?obrigado!abraços  ;)

acho até melhor usar o case
tomara q de certo neh kra, mas qual os codigos pra case?eu n sei a simbologia perfeita, soh sei q eh algo do tpocase talinclude talcase elseinclude talheheabraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

select case request("mostrar") case "468x60" response.write("<!-- #include file='utils_banners468x60.inc' -->")case "120x60" response.write("<!-- #include file='utils_banners120x60.inc' -->")case "banners" response.write("<!-- #include file='utils_megabanners.inc' -->")case "contatos" response.write("<!-- #include file='utils_contatos.inc' -->")case "listadeusuarios" response.write("<!-- #include file='utils_listadeusers.inc' -->")case "top100" response.write("<!-- #include file='top100.inc.asp' -->")case "namidia" response.write("<!-- #include file='utils_midia.inc' -->")case "webdesigner" response.write("<!-- #include file='utils_webdesigner.inc' -->")case "destaques" response.write("<!-- #include file='utils_destaques.inc' -->")case "divulguenos" response.write("<!-- #include file='utils_divulguenos.inc' -->")end select

Compartilhar este post

Link para o post
Compartilhar em outros sites

clone    0

clone
Postado

select case request("mostrar") case "468x60" response.write("<!-- #include file='utils_banners468x60.inc' -->")case "120x60" response.write("<!-- #include file='utils_banners120x60.inc' -->")case "banners" response.write("<!-- #include file='utils_megabanners.inc' -->")case "contatos" response.write("<!-- #include file='utils_contatos.inc' -->")case "listadeusuarios" response.write("<!-- #include file='utils_listadeusers.inc' -->")case "top100" response.write("<!-- #include file='top100.inc.asp' -->")case "namidia" response.write("<!-- #include file='utils_midia.inc' -->")case "webdesigner" response.write("<!-- #include file='utils_webdesigner.inc' -->")case "destaques" response.write("<!-- #include file='utils_destaques.inc' -->")case "divulguenos" response.write("<!-- #include file='utils_divulguenos.inc' -->")end select

opa, vlw kra, tentei e ae deu esse erro aqui agora:
Microsoft VBScript compilation error '800a03ea' Syntax error /120x60conectar.asp, line 5 Sub AbreConexao()^
o código do 120x60conectar.asp é:
<!--#include file="120x60config.asp"--><% Set Conexao = CreateObject("ADODB.CONNECTION")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(db)ConexaoAberta = FALSESub AbreConexao()	if not ConexaoAberta then	Conexao.Open ConStr	ConexaoAberta = True	end ifend subSub FechaConexao()	if ConexaoAberta then	Conexao.close	ConexaoAberta = False	end ifend sub %>
pq? ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara fui testar e realmente não funciona com case mesmotem que ser com if mesmo que assim funciona já testei

Compartilhar este post

Link para o post
Compartilhar em outros sites

clone    0

clone
Postado

cara fui testar e realmente não funciona com case mesmotem que ser com if mesmo que assim funciona já testei

entao kra, e se arrumar aquele syntax error do 120x60conectar.asp?tpo.. se for com if, a gente cai naquele erro:
Microsoft VBScript compilation error '800a0400' Expected statement /wareztotal.asp, line 64 end if^
ps: te adicionei no yahooabraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual é a linha 64?

Compartilhar este post

Link para o post
Compartilhar em outros sites

clone    0

clone
Postado

qual é a linha 64?

essa aqui:
<% if request("mostrar") = "468x60" then %><!-- #include file="utils_banners468x60.inc" --><% end if %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

alack    0

alack
Postado

tenta usa esse código (num testei):

 

<%if request("mostrar") = "468x60"          then aux_file="utils_banners468x60.inc"if request("mostrar") = "120x60"          then aux_file="utils_banners120x60.inc"if request("mostrar") = "banners"         then aux_file="utils_megabanners.inc"if request("mostrar") = "contatos"        then aux_file="utils_contatos.inc"if request("mostrar") = "listadeusuarios" then aux_file="utils_listadeusers.inc"if request("mostrar") = "top100"          then aux_file="top100.inc.asp"if request("mostrar") = "namidia"         then aux_file="utils_midia.inc"if request("mostrar") = "webdesigner"     then aux_file="utils_webdesigner.inc"if request("mostrar") = "destaques"       then aux_file="utils_destaques.inc"if request("mostrar") = "divulguenos"     then aux_file="utils_divulguenos.inc"%><!-- #include file="<%= aux_file %>" -->

;)

 

verifique as extenções das includes!

Compartilhar este post

Link para o post
Compartilhar em outros sites

clone    0

clone
Postado

tenta usa esse código (num testei):

<%if request("mostrar") = "468x60"          then aux_file="utils_banners468x60.inc"if request("mostrar") = "120x60"          then aux_file="utils_banners120x60.inc"if request("mostrar") = "banners"         then aux_file="utils_megabanners.inc"if request("mostrar") = "contatos"        then aux_file="utils_contatos.inc"if request("mostrar") = "listadeusuarios" then aux_file="utils_listadeusers.inc"if request("mostrar") = "top100"          then aux_file="top100.inc.asp"if request("mostrar") = "namidia"         then aux_file="utils_midia.inc"if request("mostrar") = "webdesigner"     then aux_file="utils_webdesigner.inc"if request("mostrar") = "destaques"       then aux_file="utils_destaques.inc"if request("mostrar") = "divulguenos"     then aux_file="utils_divulguenos.inc"%><!-- #include file="<%= aux_file %>" -->
:blink: verifique as extenções das includes!
Active Server Pages error 'ASP 0126' Include file not found /wareztotal.asp, line 76 The include file '<%= aux_file %>' was not found.
:(

Compartilhar este post

Link para o post
Compartilhar em outros sites

clone    0

clone
Postado

posta o "utils_banners468x60.inc". só para efeito de teste: você já chamou outro arquivo no lugar desse? ele pode estar com erro...

utils_banners468x60.inc
<!--#include file="468x60conectar.asp"--><html><% AbreConexaoacao=request.querystring("acao")Select case acaoCase "logout"Session.Abandon %><font size="2" face="Verdana">Logout realizado com sucesso</font><% Case else %><br><CENTER><b><FONT SIZE="2">BANNERS TRADICIONAIS</b></CENTER></FONT>                                <table width="100%" border="0" cellspacing="0" cellpadding="0">                                  <tr>                                     <td height="10"><img src="imagens/linha_col_dir.gif" width="100%" height="2"></td>                                  </tr>                                </table><BR><BR><% Sql = "SELECT * FROM banner ORDER BY id DESC" Set rs = Conexao.Execute(Sql)If rs.EOF Then %>Nenhum registro encontrado!<% Else While Not rs.EOF %></font><center><table  align="center" border="0" cellpadding="0" cellspacing="0" width="470">  <tr>    <td><br><font face="Verdana" size="1"><center><%=rs("alt")%><br></font></center></td>  </tr>  <tr>    <td align="center" width="468"><a href="<%=rs("url")%>" target="blank"><font face="Verdana" size="1" color="#333333"><%if rsMostra("flash")="1" then %><a target="_blank" href="vai.asp?id=<%=rsMostra("id")%>&url=<%=rsMostra("url")%>"><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="468" height="60">                    <param name="movie" value="<%=rsMostra("banner")%>">                    <param name="quality" value="high">                    </object></a><%else%><a href="vai.asp?id=<%=rsMostra("id")%>&url=<%=rsMostra("url")%>"><font face="Verdana" size="1"><img alt="<%=rsMostra("alt")%>" src="<%=rsMostra("banner")%>" border="0"></font></a><%end if%><% Sql1 = "UPDATE banner SET exibicoes = exibicoes + 1 WHERE id = "&rsMostra("id")&" "Conexao.Execute(Sql1) %>
tentei... top100.. na midia...http://wtotal.donserv.com/wareztotal.asp?m...?mostrar=top100http://wtotal.donserv.com/wareztotal.asp?m...?mostrar=468x60http://wtotal.donserv.com/wareztotal.asp?m...?mostrar=120x60abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunofilhorj    0

brunofilhorj
Postado

não consegui acessar os links que você postou ms tudo bem... Quanto a chamar outro include, funcionou? beleza? Se sim, dá um tempo pra analisar o .inc que você postou...

Compartilhar este post

Link para o post
Compartilhar em outros sites

clone    0

clone
Postado

não consegui acessar os links que você postou ms tudo bem... Quanto a chamar outro include, funcionou? beleza? Se sim, dá um tempo pra analisar o .inc que você postou...

opa, você n conseguiu acessar pq ta dando erro, e é isso que estou tentando arrumar...desmarca a opção Mostrar mensagens de erro amigáveis das configurações do IE, ae você ve o erro.mas então, não funcionou.. os erros sao aquelesSyntaz error no sube aquele end if^

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito