Ir para conteúdo

POWERED BY:

Arquivado

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

#Felipe#

Já Fazem 15 Dias Q Tento Corrigir E Não Consigo

Por , em ASP Clássico

Recommended Posts

#Felipe#    0

#Felipe#
Postado

Pessoal !

 

Já fazem 15 dias +ou- que tento corrigir uma falha banal e não estou conseguindo

 

Se você deseja me ajudar, terá que no minnimo copiar o código e rodar em seu server..

 

PORFAVOR Não dê nenhuma dica SEM TESTAR O CODIGO.....à menos q tenha certeza do que está dizendo..

JÁ TESTEI TUDO QUÉ É DICA....

 

alias eu já estou desconfiado de que possa ser um problema no meu server até ...

 

seria uma grande ajuda se alguem rodase em seu server ..

 

<%@LANGUAGE="VBSCRIPT" %>

 

<HTML>

 

<%

set conn = server.CreateObject ("ADODB.Connection")

 

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("bancodedados.mdb")

 

 

Session.Timeout = 60

Session.LCID = 1046

%>

 

<HEAD><TITLE>Distribuidora de gua Mineral Santana</TITLE>

 

</HEAD>

 

<BODY text="#000000" bottomMargin="0" vLink="#800080" aLink="#ff0000" link="#374e84" bgColor="#ffffff" leftMargin="0" background="layout bala_arquivos/bg_main.gif" topMargin=0 rightMargin=0 marginheight="0" marginwidth="0" >

<TABLE height=102 cellSpacing=0 cellPadding=0 width=776 align=center summary="" border=0>

<TBODY>

<TR>

<TD height=102 background="gif/topo.gif"> <div align="center">

<table width="100%" height="100%">

<tr>

<td width="31%"><div align="right"></div></td>

<td width="69%"><div align="center"><a href="" ><img height=60 src="gif/banneranimado.gif" width=468 align=middle border=0 ></a></div></td>

</tr>

</table>

</div></TD>

</TR>

</TBODY>

</TABLE>

<TABLE cellSpacing=0 cellPadding=0 width=774 align=center summary="" border=0 >

<TBODY>

<TR>

<TD vAlign=top width=185 background="layout bala_arquivos/bg_framemidl.gif"><TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%" align=center summary="" border=0

valign="top">

<TBODY>

<TR>

<TD height=20><div align="center"><IMG height=2 alt="" src="layout bala_arquivos/sep.gif"

width=185 align=middle border=0></div></TD>

</TR>

<TR>

<TD height="20" > <div align="center"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="">

</a><a href="<%=Request.ServerVariables("SCRIPT_NAME")%>">Principal</a></strong></font></div></TD>

</TR>

<TR>

<TD height=20> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><IMG height=2 alt="" src="layout bala_arquivos/sep.gif" width=185 align=middle border=0></strong></font></div></TD>

</TR>

<TR>

<TD height="20" > <div align="center"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="?area=cadastro">Cadastre-se</a></strong></font></div></TD>

</TR>

<TR>

<TD height=20> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><IMG height=2 alt="" src="layout bala_arquivos/sep.gif" width=185 align=middle border=0></strong></font></div></TD>

</TR>

<TR>

 

 

 

 

<TD height="20" > <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="?area=contato"></a><a href="?area=contato">Contato</a><a href=""></a></strong></font></div></TD>

</TR>

<TR>

<TD height=20> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><IMG height=2 alt="" src="layout bala_arquivos/sep.gif" width=185 align=middle border=0></strong></font></div></TD>

</TR>

<TR>

<TD height="20" ><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="?area=empresa">Empresa</a></strong></font></div>

</TD>

</TR>

<TR>

<TD height=20> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><IMG height=2 alt="" src="layout bala_arquivos/sep.gif" width="185" align="middle" border="0"></strong></font></div></TD>

</TR>

<TR>

<TD height=10><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong></strong></font></div><div align="center"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="?area=login">Login</a></font></strong></div></TD>

</TR>

<TR>

<TD height="20"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><IMG height=2 alt="" src="layout bala_arquivos/sep.gif"width=185 align=middle border=0></strong></font></TD>

</TR>

<TR>

<TD height="20"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong></a><a href="?area=ajuda">Ajuda</a><a href=""> </a></strong></font></div></TD>

</TR>

<TR>

<TD height="20"><IMG height=2 alt="" src="layout bala_arquivos/sep.gif" width=185 align=middle border=0></TD>

</TR>

<TR>

<TD height="20" align=middle vAlign=top ><BR><BR> </TD>

</TR>

<TR>

<TD vAlign=bottom align=middle height="20"><BR></TD>

</TR>

</TBODY>

</TABLE></TD>

<TD width="595" vAlign=top background="layout bala_arquivos/bg_framemidr.gif">

 

 

 

<BR>

<%

 

if request("area")="detalhes" then

%><!--#include file="detalhes.asp" --><%

 

elseif request("area")="contato" then

%><!--#include file="contato.asp"> --><%

 

elseif request("area")="cadastro" then

%><!--#include file="cadastro.asp"> --><%

 

elseif request("area")="privacidade" then

%><!--#include file="privacidade.asp"> --><%

 

elseif request("area")="empresa" then

%><!--#include file="empresa.asp"> --><%

 

elseif request("area")="login" then

%><!--#include file="login.asp"> --><%

 

 

else

%><!--#include file="home.asp" --><%

end if

%>

 

<BR>

 

</TD>

</TR>

</TBODY>

</TABLE>

<TABLE height=50 cellSpacing=0 cellPadding=0 width=774 align=center summary=""

border=0>

<TBODY>

<TR>

<TD vAlign=center align=middle background="layout bala_arquivos/bg_framebot.gif">

<div align="center"><SMALL><font color="#999999"><font size="2"><strong><small><font face="Verdana, Arial, Helvetica, sans-serif"> 2005

TeleAgua.com.br Ltda. All rights reserved.</font><br>

[</small></strong></font></font><font color="#FFFFFF" size="2"><strong><small>

<font face="Verdana, Arial, Helvetica, sans-serif"><a href="?area=contato">Contato</a></font><font color="#999999">

</font></a><font color="#999999">] - [<font face="Verdana, Arial, Helvetica, sans-serif">

</font></font><font face="Verdana, Arial, Helvetica, sans-serif"><a href="?area=privacidade">Privacidade</a></font> <a href=""><font color="#999999"> </font></a><font color="#999999">]</font></small></strong></font></SMALL></div></TD></TR></TBODY></TABLE>

 

<% set conn = nothing %>

 

</BODY>

</HTML>

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03F6)

'End' esperado

/_default/x/asp/- Meus Códigos/& Agua Mineral/default.asp, line 107

elseif request("area")="cadastro" then

 

 

fico no aguardo...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Não é preciso testar, só olhar com calma. Troque seu If..Then...ElseIf's por isso:

ASP
  1. Select Case request("area")
     
  2. Case "detalhes"
     
  3. %><!--#include file="detalhes.asp" --><%
     
  4. Case "contato"
     
  5. %><!--#include file="contato.asp"> --><%
     
  6. Case "cadastro"
     
  7. %><!--#include file="cadastro.asp"> --><% 
     
  8. Case "privacidade"
     
  9. %><!--#include file="privacidade.asp"> --><% 
     
  10. Case "empresa"
     
  11. %><!--#include file="empresa.asp"> --><% 
     
  12. Case "login"
     
  13. %><!--#include file="login.asp"> --><% 
     
  14. Case else 
     
  15. %><!--#include file="home.asp" --><%
     
  16. End Select

Ou, como disse o AALVES, use SERVER.EXECUTE e é só pensar com calma que verá a solução.

 

 

 

Desculpe a brincadeira, mas passou 15 dias procurando no lugar errado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

a vantagem do execute é que só será incluido o codigo que necessita mesmo, pois tanto com if quanto com o select case todos os codigos serão incluidos mesmo executando apenas o que tiver na opção correta

Compartilhar este post

Link para o post
Compartilhar em outros sites

#Felipe#    0

#Felipe#
Postado

Pessoal !

 

Vcs testaram o codigo em seus próprios micros pra ver o erro ??

se testaram por favor me informe o Win que utilizou ...

olhe só !

uma pessoa testou e o codigo rodou perfeitamente ....

se alguem daqui tivesse testado seria + util à mim

 

e se olharem bem , vão ver q não existe erro...

 

então a conclusão é que o problema é no meu server ..

pode configurção do IIS ....ou algo relativo à ele ...

 

Em relação ao server, IIS, alguem sabe dar alguma dica, sobre o que pode ser ???

Como se utiliza o SERVER.EXECUTE ????

não achei em minhas apostilas ....

 

 

Conforme outra dica; já providenciei win2003...hehe

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
Pessoal !

 

Vcs testaram o codigo em seus próprios micros pra ver o erro ??

se testaram por favor me informe o Win que utilizou ...

olhe só !

uma pessoa testou e o codigo rodou perfeitamente ....

se alguem daqui tivesse testado seria + util à mim

 

e se olharem bem , vão ver q não existe erro...

 

então a conclusão é que o problema é no meu server ..

pode configurção do IIS ....ou algo relativo à ele ...

 

Em relação ao server, IIS, alguem sabe dar alguma dica, sobre o que pode ser ???

Como se utiliza o SERVER.EXECUTE ????

não achei em minhas apostilas ....

 

 

Conforme outra dica; já providenciei  win2003...hehe

E também verifique seus Includes, pode ser que algum deles esteja com problemas de IF aberto.

Compartilhar este post

Link para o post
Compartilhar em outros sites

#Felipe#    0

#Felipe#
Postado

Assim:

 

ASP

[*]Select Case request("area")<br />Case "detalhes"<br />server.execute("detalhes.asp")<br />Case "contato"<br />serve.execute("contato.asp")<br />'faz o resto<br />Case else <br />server.execute("home.asp")<br />End Select

Veja http://www.w3schools.com/asp/met_execute.asp

 

B)

<{POST_SNAPBACK}>

mas eu posso usar o server.execute com IFs tb né ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

ultra    0

ultra
Postado

Abre cada include no seu browser, pra ver se tem alguma falha de IFNum tem nem como nós testarmos sua página, pois tem BD e includes (você teria q nos mandar tudo)

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