Ir para conteúdo

POWERED BY:

Arquivado

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

expertro25

Fazer select da cidade onde o usuário reside

Recommended Posts

como assim tiozinho???

Compartilhar este post


Link para o post
Compartilhar em outros sites

quando ele logar se estiver certo login e senha voce aproveita e pega o restante dos dados que voce quer e armazena em session para usar posteriormente

Compartilhar este post


Link para o post
Compartilhar em outros sites

quando ele logar se estiver certo login e senha voce aproveita e pega o restante dos dados que voce quer e armazena em session para usar posteriormente

É isto que eu quero saber!Como pego os dados e como fica a session, OBS: Akela session com o RS não da certo! Ajuda http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Primeiramente você vai precisar da pagina de login....

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>Exemplo de Filipe Alves - filipescoob@ig.com.br</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><%erro = Request.QueryString("erro")if erro = "yes" then%><script language="JavaScript">alert("Usuário ou Senha inválida! Tente Novamente!")</script><%ElseIf erro = "restrito" Then %><script language="JavaScript">alert("Área Restrita! Identifique-se")</script><%elseend if%><script language="JavaScript">function verificar(){{if (document.form1.usuario.value < 1) {alert("Informe seu Usuário!");document.form1.usuario.focus();return false;}}{if (document.form1.senha.value < 1) {alert("Informe sua Senha!");document.form1.senha.focus();return false;}}}</script></head><body onLoad="javascript:form1.usuario.focus();"><table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">  <tr>	<td align="center" valign="middle"><br>	  <br>	  <br>	  <br>	  <br>	  <br>	  <br>	  <br>	  <br>	   <form name="form1" method="post" action="valida.asp">			  <table width="300" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="roda">			  <tr class="Texto">				<td height="18" colspan="2" align="right"><div align="center"><img src="img/login.bmp" align="top"></div></td>				</tr>			  <tr class="Texto">				<td width="18%" height="18" align="right">Usuário:</td>				<td width="82%" height="18"><br><input name="usuario" type="text" class="input" id="usuario">				</td>			  </tr>			  <tr class="Texto">				<td height="18" align="right"><div align="right">Senha:</div></td>				<td height="18"><input name="senha" type="password" class="input" id="senha"></td>			  </tr>			  <tr class="Texto">				<td height="18" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">					<tr>					  <td><div align="center"> <br>							<input name="Submit" type="submit" class="form4" value=" Entrar">							<input name="Submit2" type="reset" class="form4" value=" Limpar">					  </div></td>					</tr>					<tr>					  <td><br>					  </td>					</tr>				</table></td>			  </tr>		 </table>		  </form>	</td>  </tr></table></body></html>

Depois você valida esta pagina

 

<!--#include file="conectstringcoa.asp"--><% 'Response.expires = 0'Response.Buffer=True'Set conn = Server.CreateObject("ADODB.Connection")'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bancodedados.mdb")usuario = Replace(Request.Form("usuario"),chr(39),"''")senha = Replace(Request.Form("senha"),chr(39),"''")Set Rs = Server.CreateObject("ADODB.RecordSet")SQL = "SELECT * FROM tblusuario WHERE   usuariousu = '"& usuario &"' AND senhausu ='"& senha &"'"Set Rs = conexao.execute(SQL)If Not Rs.EOF then'você atribui aqui o que você quer... e coloca seu select acima...Session("id") = Rs("codusu")Session("senha") = Rs("senhausu")Session("usuario") = Rs("usuariousu")Session("nome") = Rs("nomeusu")Response.Redirect ("index.asp")elseResponse.Redirect ("login.asp?erro=yes")end ifrs.closeset rs = nothingConexao.closeset conexao=nothing%>

Pronto kara é só adaptar para o q você quer...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Primeiramente você vai precisar da pagina de login....

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>Exemplo de Filipe Alves - filipescoob@ig.com.br</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><%erro = Request.QueryString("erro")if erro = "yes" then%><script language="JavaScript">alert("Usuário ou Senha inválida! Tente Novamente!")</script><%ElseIf erro = "restrito" Then %><script language="JavaScript">alert("Área Restrita! Identifique-se")</script><%elseend if%><script language="JavaScript">function verificar(){{if (document.form1.usuario.value < 1) {alert("Informe seu Usuário!");document.form1.usuario.focus();return false;}}{if (document.form1.senha.value < 1) {alert("Informe sua Senha!");document.form1.senha.focus();return false;}}}</script></head><body onLoad="javascript:form1.usuario.focus();"><table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">  <tr>	<td align="center" valign="middle"><br>	  <br>	  <br>	  <br>	  <br>	  <br>	  <br>	  <br>	  <br>	   <form name="form1" method="post" action="valida.asp">			  <table width="300" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="roda">			  <tr class="Texto">				<td height="18" colspan="2" align="right"><div align="center"><img src="img/login.bmp" align="top"></div></td>				</tr>			  <tr class="Texto">				<td width="18%" height="18" align="right">Usuário:</td>				<td width="82%" height="18"><br><input name="usuario" type="text" class="input" id="usuario">				</td>			  </tr>			  <tr class="Texto">				<td height="18" align="right"><div align="right">Senha:</div></td>				<td height="18"><input name="senha" type="password" class="input" id="senha"></td>			  </tr>			  <tr class="Texto">				<td height="18" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">					<tr>					  <td><div align="center"> <br>							<input name="Submit" type="submit" class="form4" value=" Entrar">							<input name="Submit2" type="reset" class="form4" value=" Limpar">					  </div></td>					</tr>					<tr>					  <td><br>					  </td>					</tr>				</table></td>			  </tr>		 </table>		  </form>	</td>  </tr></table></body></html>
Depois você valida esta pagina
<!--#include file="conectstringcoa.asp"--><% 'Response.expires = 0'Response.Buffer=True'Set conn = Server.CreateObject("ADODB.Connection")'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bancodedados.mdb")usuario = Replace(Request.Form("usuario"),chr(39),"''")senha = Replace(Request.Form("senha"),chr(39),"''")Set Rs = Server.CreateObject("ADODB.RecordSet")SQL = "SELECT * FROM tblusuario WHERE   usuariousu = '"& usuario &"' AND senhausu ='"& senha &"'"Set Rs = conexao.execute(SQL)If Not Rs.EOF then'você atribui aqui o que você quer... e coloca seu select acima...Session("id") = Rs("codusu")Session("senha") = Rs("senhausu")Session("usuario") = Rs("usuariousu")Session("nome") = Rs("nomeusu")Response.Redirect ("index.asp")elseResponse.Redirect ("login.asp?erro=yes")end ifrs.closeset rs = nothingConexao.closeset conexao=nothing%>
Pronto kara é só adaptar para o q você quer...
Entaum amigo...Deu erro:(0x800A01A8)Objeto necessário: 'conexao'/tenis/valida.asp, line 12Num tem como você me passar akela session que eh mais ou menos assim:
Session("Cidade") = *Select from Dados Where...
Precisava deste tipo de session!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Voce ja fez a pagina de login????e ja fez o processa desse login??vai por parte que você consegue fazer na boa, primeiro faz o form do login e depois faz o processa autenticando, depois de ter feito isso posta o codigo seu aqui que fica mais facil de te ajudarresumindo vai ser asssim:SQL = "Select * from tbUsuario Where login = '" & Str_Login & "' and senha = '" & Str_Senha & "'"Set RS_Teste = Conn.Execute(SQL)if not RS_Teste.EOF and not RS_Teste.BOF ThenStr_Cidade = RS_Teste("cidade") ou Session("cidade") = RS_Teste("cidade")end ifresumindo é isso

Compartilhar este post


Link para o post
Compartilhar em outros sites

Desculpa kara....ja é segunda vez que posto algo e esqueço de colocar a conexão....conexao é o nome da sua conexão com o banco de dados se form acess segue abaixo falow....<%Set conexao = Server.CreateObject("ADODB.Connection")conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("nome_do_seu_banco")%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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