Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 ???Carregando comentários...