Include File

[mistério 0]

Tenho o seguinte código:

<script>
function Validar() {
	if(document.getElementById('cliEmail').value =='E-mail'){
	 	alert('Informe o seu E-mail');
		document.getElementById('cliEmail').focus();
		return false;
		}
	if(document.getElementById('cliSenha').value =='Senha'){
	 	alert('Informe a sua senha');
		document.getElementById('cliSenha').focus();
		return false;
	 	}		
//	else {
		form1.submit();
}	
</script>
<% 

Sub MenuTop()
	
	Dim cliEmail
	
	cliEmail = LCase(Filtra(Request.Form("cliEmail")))
	cliSenha = LCase(Filtra(Request.Form("cliSenha")))
	
	
	'**************** Efetua o login do usuário *************************
	If Request("acao") = "LogarCliente" Then	
		Dim strSel, rsSel
		strLogin = " cliente_sel_cliEmail '" & cliEmail &  "', '" & cliSenha & "'"
		Set rsLogin = Conexao.Execute(strLogin)				
		
		If Not rsLogin.EOF Then
			Session("cliCodigo") = Trim(rsLogin("cliCodigo"))
			Session("cliNome") = rsLogin("cliNome")
			Session("cliIp") = rsLogin("cliIp")
			Session("cliDtAcesso") = rsLogin("cliDtAcesso")
			Session("cliContador") = rsLogin("cliContador")+1
			
			sqlUpd = " cliente_upd_acesso "&_ 
					" "& validateNumber(Session("cliCodigo")) &", "&_
					" '"& Request.ServerVariables("Remote_Addr") &"', "&_
					" "& validateNumber(Session("cliContador")) &" "
			Conexao.Execute(sqlUpd)
			
			Response.Redirect Session("SSL_URL")&"Cliente/Pedidos.asp"
		Else
			strMsg = "Login inválido!"
		End If
	
		rsLogin.Close
		Set rsLogin = Nothing
	End If
	
%>

<table width="770" height="114" border="0" cellpadding="0" cellspacing="0">
  <tr> 
	<td width="210" height="80" valign="top"><a href="<%=Session("Path")%>Default.asp"><img src="<%=Session("Path")%>images/logo_emciencia.jpg" alt="emCiência" border="0"></a></td>
	<td height="80" align="right" valign="top"><table width="100%" height="80" border="0" cellpadding="0" cellspacing="0">
		<tr> 
		  <td align="right">
		<form name="meuespaco" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onSubmit="return Validar();">
		  <input type="hidden" name="acao" value="LogarCliente">
			  <table width="362" border="0" cellpadding="0" cellspacing="0">
				<tr> 
				  <td width="100"><img src="<%=Session("Path")%>images/Bg_meuespaco2.jpg"></td>
				  <td valign="top" background="<%=Session("Path")%>images/dotBg_meuespaco.jpg"><table width="100%" height="45" border="0" cellpadding="0" cellspacing="0">
					  <tr> 
						<td align="right" valign="top"><table width="260" border="0" cellspacing="0" cellpadding="0">
							<tr> 
							  <td align="right" valign="top"><img src="<%=Session("Path")%>images/meuEspaco.gif"></td>
							  <td align="right" valign="bottom"> <input id="cliEmail" name="cliEmail" type="text" class="list" onFocus="this.value = '';" onBlur="if(this.value == '') this.value = 'E-mail'" onClick="if(this.value == 'E-mail') this.value = ''" value="E-mail" size="10"></td>
							  <td align="right" valign="bottom"> <input id="cliSenha" name="cliSenha" type="password" class="list" onFocus="this.value = '';" onBlur="if(this.value == '') this.value = 'Senha'" onClick="if(this.value == 'Senha') this.value = ''" value="Senha" size="6"></td>
							  <td width="37" align="center" valign="bottom"><input type="image" src="<%=Session("Path")%>images/bt_setaAzul.gif" border="0"></td>
							</tr>
						  </table></td>
					  </tr>
					  <tr> 
						<td align="right" class="Pequena"><font color="#FF0000"><%=strMsg%></font> <a href="<%=Session("Path")%>Cliente/Login.asp?acao=FormSenha" class="Pequena">Esqueci 
						  minha senha  </a></td>
					  </tr>
					</table></td>
				</tr>
			  </table>
			</form>
		 </td>
		</tr>
		<tr> 
		  <td height="25" align="right" valign="top"><div align="left">       <a href="<%=Session("Path")%>Conteudo/Quem_Somos.asp" class="Normal">Quem 
			somos</a> <span class="Normal">| </span><a href="<%=Session("Path")%>conteudo/Parceiros.asp" class="Normal">Parceiros 
			  </a><span class="Normal">|</span> <a href="<%=Session("Path")%>Cliente/Cadastro.asp" class="Normal">Cadastre-se</a> 
			  <span class="Normal">|</span> <a href="<%=Session("Path")%>Carrinho/Carrinho.asp" class="Normal">Carro 
				de compras</a> <span class="Normal">|</span> <a href="<%=Session("Path")%>Conteudo/Contato.asp" class="Normal">Fale 
			conosco</a></div></td>
		</tr>
	  </table></td>
  </tr>
  <tr align="center" valign="bottom"> 
	<td colspan="2"> <table width="634" height="24" border="0" cellpadding="0" cellspacing="0">
		<tr> 
		  <td width="127" valign="bottom"><a href="<%=Session("Path")%>Conteudo/Biblioteca.asp?catCodigo=2"><img src="<%=Session("Path")%>images/bt_biblioteca.jpg" alt="Biblioteca emCiência" border="0"></a></td>
		  <td width="127" valign="bottom"><a href="<%=Session("Path")%>Conteudo/Manuscritos.asp"><img src="<%=Session("Path")%>images/bt_manuscritos.jpg" alt="Manuscritos  emCiência" border="0"></a></td>
		  <td width="127" valign="bottom"><a href="<%=Session("Path")%>Conteudo/Periodicos.asp"><img src="<%=Session("Path")%>images/bt_periodicos.jpg" alt="Periódicos  emCiência" border="0"></a></td>
		  <td width="127" valign="bottom"><a href="<%=Session("Path")%>Conteudo/Grafica.asp"><img src="<%=Session("Path")%>images/bt-grafica.jpg" alt="Gráfica  emCiência" border="0"></a></td>
		  <td width="126" valign="bottom"><a href="<%=Session("Path")%>Conteudo/Links.asp"><img src="<%=Session("Path")%>images/bt_links.jpg" alt="Links  emCiência" border="0"></a></td>
		</tr>
	  </table></td>
  </tr>
</table>
<% End Sub %>

Está página não aperece quando chamo pelo include e fica em branco quando abro direto no navegador, ela tem alguma trava ???

[champignoncpg 0]

Ki include companheiro ???

 

especifica sua duvida melhor !!!

[mistério 0]

O include:

<!--#include file="../_padrao.asp" -->

Mas se tento abrir a página padra.asp no navegador... ela fica em branco.

[champignoncpg 0]

esta pagina q você colocou e ah padrao.asp neh ???

 

se sim.... tem primeiramente abrir ela sozinha... direto no browser !!!

 

flw

[Mário Monteiro 179]

faça este teste com a pagina solitaria mesmo

[mistério 0]

Fiz o teste e a página não abre... é isso que estou achando estranho.

 

Fica em em branco !

[champignoncpg 0]

Olha pod estar dando pau na pagina sim !!!

 

quando isso acontece comigo vou no IIS e mexo lah.... ae volt ao normal...

 

mas faz um teste com esta pagina msm antes, tira as partes q você acha q pode estar dando pau... deixa soh um

response.write "ahuahauhahhau"

 

esses tipos d teste ajudam bastante

[Public2004 79]

Tá tudo dentro de uma Sub...

Você está chamando essa Sub em algum lugar?