com session

[hunger 0]

Fala pessoal...estava com uma dúvida e, pelo que pesquisei, percebi que resolveria utilizando sessions. Mas, ainda sou meia-boca em ASP, então não sei exatamente como fazer. No caso, estou fazendo um sistema que gera receituarios medicos. só que estou fazendo o seguinte: serão cadastrados varios medicos, e o login deles será o CRM. Há uma tabela no BD para as receitas. Só que todas as receitas cadastradas (independente do médico) irá para a mesma tabela.O que preciso fazer é um jeito de que, quando o medico mandar listar suas receitas cadastradas, a programação pegue apenas as que ele realmente cadastrou, no meio de todas as outras.Pensei em fazer isso da seguinte forma: quando o médico cadastrar uma receita, junto com o form irá o numero de seu CRM, e registra em uma das colunas la da tabela. Assim, quando ele mandar puxar a lista, o sistema tem como filtrar.ate ae td bem. toda a questão é a seguinte: preciso que, quando o medico fizer o login (com o CRM), preciso que as páginas seguintes guardem este login na programação para que, qdo ele cadastrar algo, ou solicitar alguma informação do BD, a própria programação use automaticamente este CRM, sem que ele precise digitar toda hora. Seria mesmo com session??agradeço mto toda ajuda... fico no aguardo, enquanto vou quebrando a cabeça aqui...rs... :blink: abço!!marcos hunger.

[meirelles 0]

JOGA SESSÃO PARA OUTRA PÁGINA ASSIM ÓH:

 

LANÇA SESSÃO

CRM = REQUEST.FORM("TXT_CRM")

SESSION("CRM") = CRM

 

 

RESGATA SESSÃO

 

RESPONSE.WRITE SESSION("CRM")

 

OU

 

VARIAVEL = SESSION("CRM")

RESPONSE.WRITE VARIAVEL

ESPERO TER AJUDADO... B)

 

você AINDA PODE ADICIONAR

 

ASP

[*]IF VARIAVEL <> "" THEN

 

[*]FAZ ISSO

 

[*]ELSE

 

[*]FAZ AQUILO

 

[*]END IF

[hunger 0]

fala...beleza?entao, só uma duvida... no caso, a parte que você chamou de "lança sessao", eu coloco na página de login, e o "resgata sessao" nas outras, é isso?obgdo!!

[meirelles 0]

BEM NA PAGINA DE LOGIN você CHAMA UMA PAGINA PRA VALIDAR CERTO...NA PAGINA DE VALIDAR você JOGA A SESSÃORESGATA O LOGIN DO FORM QUE NO CASO É O CRM E JOGA UMA SESSÃOCRM = REQUEST.FORM("TXT_CRM")SESSION("CRM") = CRMAÍ PRONTO, JÁ GRAVOU UM SESSÃOAGORA VAMOS ESCREVER O QUE você JOGOU NA SESSÃOS = SESSION("CRM")RESPONSE.WRITE SIF S <> "" THENFAZ ALGUMA COISA(CADASTRA)ELSEREDIRECIONA PARA A TELA DE LOGONEND IFSE QUISER SABER MAIS PODE PERGUNTAR...

[hunger 0]

bom, na verdade, minha página de login vai direto para outra página da programação.... nao chega a passar por uma só de validação. mas, se for necessario pra esse lance da session funcionar, posso tentar fazer!o q você acha?

[meirelles 0]

NÃO TEM NECESSIDADE, você TEM QUE RESGATAR O CRM, CERTO?CRM = REQUEST.FORM("CRM")TRANQUILO?AGORA É O SEGUINTEJOGAR O VALOR DA VARIAVEL CRM PRA DENTRO DE UMA SESSÃO, CERTO?SESSION("CRM") = CRMbeleza?ACABOU JÁ TEM UMA SESSÃO.AGORA VAMOS FAZER A VERIFICAÇÃOvocê VAI MANDAR ELE BUSCAR ALGO NO BANCOS = SESSION("CRM")IF S = "" THENMANDO USUÁRIO PRA LOGAR, PQ ELE NÃO LOGOUELSEMANDO ELE BUSCA, TUDO QUE FOR RELATIVO A CRMEND IF

[hunger 0]

desculpe minha falta de conhecimento sobre o assunto. as vezes você está falando algo obvio, mas eu nao consigo enxergar...

 

entao, só recapitulando pra ver se eu entendi...

 

> na página de login eu resgato o CRM com:

 

CRM = REQUEST.FORM("CRM")

 

 

> na página seguinte eu crio a sessão com:

 

SESSION("CRM") = CRM

 

 

> nesta mesma página, ou em qquer outra após o login, eu mando verificar se o CRM está identificado na página (o q só ocorrerá qdo logado), com:

 

S = SESSION("CRM")

 

IF S = "" THEN

response.redirect "login_med.asp"

ELSE

aqui nao sei o q por

END IF

 

 

seria isso? valew mesmo pwla ajuda!

[meirelles 0]

VOU TENTAR SER ÓBVIO

 

VAMOS LÁ:

 

LOGON.ASP

<FORM ACTION="PAGINA_VALIDA.ASP" METHOD=POST>
<INPUT TYPE=TEXT NAME="TXT_CRM">
<INPUT TYPE=SUBMIT VALUE=ENVIAR>
</FORM>

 

PAGINA_VALIDA.ASP

ASP

[*]

 

[*]CRM = REQUEST.FORM("TXT_CRM")

 

[*]SESSION("CRM")=CRM

 

[*]

 

[*]RESPONSE.REDIRECT "SUA_PAGINA_DE_CODIGOS.ASP"

 

[*]

 

SUA_PAGINA_DE_CODIGOS.ASP

 

você RESGATA A SESSÃO ASSIM NA (SUA_PAGINA_DE_CODIGOS.ASP)

 

S = SESSION("CRM")

 

AÍ você BRINCA COM O CÓDIGO

ASP

[*]

 

[*]IF S = "" THEN

 

[*]RESPONSE.REDIRECT LOGON.ASP

 

[*]ELSE

 

[*]'FAZ ALGUMA COISA

 

[*]END IF

 

[*]

 

QUALQUER DÚVIDA ESTAMOS AÍ, VOU ALMOÇAR E JÁ VOLTO.

[hunger 0]

valew meirelles...bom, como to no trampo, preciso fazer um outro projeto pra depois voltar para esse... infelizmente. brigadao pela ajuda e paciencia. depois qdo for mexer nisso aqui de novo provavelmente volto a postar as duvidas aqui. vlw mesmo!marcos hunger.

[hunger 0]

opa.....beleza?

 

fiz as alteraçõesn o código pelo q conversamos... mas agora não está mais funcionando.... tem a ver com o endereço q coloco em dois lugares... ja tentei tanta coisa q perdi noção do q deveria mesmo colocar la pra funcionar. vou mostrar colocando uma seq. de asteriscos na frente:

 

ASP

[*]

 

[*]<%@Language=VBScript%>

 

[*]<%response.buffer="true"%>

 

[*]

 

[*]<%

 

[*]IF request.form("acao") = "login" THEN

 

[*]

 

[*]'Recupero o texto que foi escrito no formulário

 

[*]vlogin = Replace(request.form("CRM"), "'", "''")

 

[*]vsenha = Replace(request.form("senha"), "'", "''")

 

[*]

 

[*]'Faço a conexão com o banco de dados

 

[*]db="c:\inetpub\wwwroot\receita\Dados\bdadm.mdb"

 

[*]Set con = Server.CreateObject( "adodb.Connection" )

 

[*]con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";"

 

[*]set rs=con.execute("select * from medico where CRM='"&vlogin&"' and senha='"&vsenha&"'")

 

[*]

 

[*]'Se não for encontrado nenhum registro aparecerá uma mensagem de erro. Caso contrário o visitante receberá um nome de sessão para poder navegar nas demais paginas protegidas e será redirecionado para a página protegida

 

[*]if rs.EOF then

 

[*]response.write"<span class='tituloform'>Senha ou Login inválido!</span>"

 

[*]else

 

[*]session("logado")="sim" 

 

[*]response.redirect "login_med.asp" *****************************

 

[*]

 

[*]end if

 

[*]END IF

 

[*]%>

 

[*]

 

[*]<%'resgatando o CRM para utilizar depois em session

 

[*]CRM = REQUEST.FORM("CRM")%>

 

[*]

 

[*]

 

[*]<html>

 

[*]<title>Receituário Médico - Login Médico</title>

 

[*]<style type="text/css">

 

[*]<!--

 

[*]@import url("../receitastyle.css");

 

[*]-->

 

[*]</style>

 

[*]

 

[*]<body>

 

[*]

 

[*]<table width="400" height="132" cellpadding="0" cellspacing="0">

 

[*]<tr>

 

[*] <td width="126" valign="top"><img src="../images/topo_qdro.jpg" width="160" height="145"></td>

 

[*]<td width="58"> </td>

 

[*]<td width="214"><form action="valida_login_med.asp" method="POST"> *******************

 

[*]

 

[*] <input name="acao" type="hidden" value = "login" >

 

[*] <p><span class="form">Login</span><br>

 

[*] <input name="CRM" type="text" class="preenche" id="login">

 

[*]</p>

 

[*] <p><span class="form">Senha</span><br>

 

[*] <input name="senha" type="password" class="preenche" id="senha">

 

[*]</p>

 

[*] <input type="submit" class="preenche" value="Entrar">

 

[*]</form></td>

 

[*]</tr>

 

[*]</table>

 

[*]</body></html>

 

O problema está no endereço q estou colocando nestas duas partes do códico. do jeito q está ae agora, após preencher os campos e dar OK, a página continua estática, nao vai pra lugar nenhum. mesmo se tentar fazer um login errado, ele nao acusa o erro, como o código manda fazer.

 

antes de colocar esse lance da session "CRM" funcionava...

 

alguem tem alguam sugestão?!

 

agradeço a todos!!

 

marcos hunger.

[explore 3]

To chegando agora e naum oque está acontecendo!!!você quer logar na mesma pagina do formulario???

[meirelles 0]

vamos lá, vou tentando. agente consegue

 

formulario.asp

<form action="valida_login_med.asp" method="POST">

login: <input name="login" type="hidden" value = "login" ><br>

CRM: <input name="CRM" type="text" class="preenche" id="login"><br>

Senha:<input name="senha" type="password" class="preenche" id="senha"><br>

<input type="submit" class="preenche" value="Entrar">

</form>

 

valida_login_med.asp

ASP

[*]vlogin = Replace(request.form("CRM"), "'", "''")

 

[*]

 

[*]vsenha = Replace(request.form("senha"), "'", "''")

 

[*]

 

[*]

 

[*]

 

[*]'Faço a conexão com o banco de dados

 

[*]

 

[*]db="c:\inetpub\wwwroot\receita\Dados\bdadm.mdb"

 

[*]

 

[*]Set con = Server.CreateObject( "adodb.Connection" )

 

[*]

 

[*]con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";"

 

[*]

 

[*]set rs=con.execute("select * from medico where CRM='"&vlogin&"' and senha='"&vsenha&"'")

 

[*]

 

[*]

 

[*]

 

[*]'verifica se existe no banco

 

[*]if (rs.bof and rs.eof) then

 

[*]

 

[*]response.write "<span class='tituloform'>Senha ou Login inválido!</span>"

 

[*]

 

[*]else

 

[*]

 

[*]session("logado")="sim" 

 

[*]

 

[*]response.redirect "login_med.asp"

 

[*]

 

[*]end if

 

login_med.asp

 

ASP

[*]verificar = resquest.session("logado")

 

[*]

 

[*]if veficar = "sim" then

 

[*]'continua nessa página

 

[*]'exibe a pagina ou redireciona para pagina desejada

 

[*]

 

[*]else

 

[*]

 

[*]'redireciona para formulario.asp

 

[*]

 

[*]end if

 

bem estuda isso, mas qualquer duvida você escreve denovo http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[hunger 0]

FALA!!!

 

entao, andei estudando isso q você passou, ajustei nas paginas e tals... mas está dando um errinho q deve ser bobeira. Só pra explicar melhor, estou mexendo em 3 paginas:

 

login_med > q é a página com o formulario para fazer o login (como a q você havia nomeado de formulario.asp)

 

valida_login_med > q é justamente a página para validação do login

 

cad_sec > q é a página para onde o sistema redirecionará após a validação do login

 

Bom, sabendo disso, está acontecendo o seguinte: se na página de login eu colocar um usuario ou senha errado, ele retorna a msg de erro (q está na página de validação) ; agora, se eu faço o login corretamente, ele "fica" na propria página de login.

 

Mas, forcei um erro na página de validação e fiz o login corretamente. Dae então apareceu uma página de erro, exatamente como eu quis. Fiz isso para ver q na verdade, após preenchido o formulario na página de login, o sistema corretamente está jogando la para a pagina de validação. O erro então está ali (na valida_login_med.asp), pois qdo o login está errado aparece a mensagem de erro como programamos, mas qdo está certo ao invés de direcionar para a cad_sec.asp , ela volta para a login_med.asp

 

Sendo assim, enquanto vou tentando aqui :blink: , estou passando o código das três páginas em questão...

 

login_med.asp

ASP

[*]<%@Language=VBScript%>

 

[*]<%response.buffer="true"%>

 

[*]

 

[*]<%'resgatando o CRM para utilizar depois em session

 

[*]CRM = REQUEST.FORM("CRM")%>

 

[*]

 

[*]

 

[*]<html>

 

[*]<title>Receituário Médico - Login Médico</title>

 

[*]<style type="text/css">

 

[*]<!--

 

[*]@import url("../receitastyle.css");

 

[*]-->

 

[*]</style>

 

[*]

 

[*]<body>

 

[*]

 

[*]<table width="400" height="132" cellpadding="0" cellspacing="0">

 

[*]<tr>

 

[*] <td width="126" valign="top"><img src="../images/topo_qdro.jpg" width="160" height="145"></td>

 

[*]<td width="58"> </td>

 

[*]<td width="214"><form action="valida_login_med.asp" method="POST">

 

[*] <input name="acao" type="hidden" value = "login" >

 

[*] <p><span class="form">Login (CRM)</span><br>

 

[*] <input name="CRM" type="text" class="preenche" id="login">

 

[*]</p>

 

[*] <p><span class="form">Senha</span><br>

 

[*] <input name="senha" type="password" class="preenche" id="senha">

 

[*]</p>

 

[*] <input type="submit" class="preenche" value="Entrar">

 

[*]</form></td>

 

[*]</tr>

 

[*]</table>

 

[*]</body></html>

 

valida_login_med.asp

ASP

[*]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

 

[*]

 

[*]<%

 

[*]vlogin = Replace(request.form("CRM"), "'", "''")

 

[*]vsenha = Replace(request.form("senha"), "'", "''")

 

[*]

 

[*]

 

[*]'Faço a conexão com o banco de dados

 

[*]db="c:\inetpub\wwwroot\receita\Dados\bdadm.mdb"

 

[*]Set con = Server.CreateObject( "adodb.Connection" )

 

[*]con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";"

 

[*]set rs=con.execute("select * from medico where CRM='"&vlogin&"' and senha='"&vsenha&"'")

 

[*]

 

[*]

 

[*]'verifica se existe no banco

 

[*]if (rs.bof and rs.eof) then

 

[*]response.write "<span class='tituloform'>Senha ou Login inválido!</span>"

 

[*]else

 

[*]session("logado")="sim" 

 

[*]response.redirect "cad_sec.asp"

 

[*]end if

 

[*]%>

 

cad_sec.asp (este código está um pouco "sujo" pq fiz pelo Dreamweaver)

ASP

[*]<%@LANGUAGE="VBSCRIPT"%>

 

[*]

 

[*]<%

 

[*]if not session("logado")="sim" then

 

[*]response.redirect "login_med.asp"

 

[*]end if

 

[*]%> 

 

[*]

 

[*]<%

 

[*]S = SESSION("CRM")

 

[*]

 

[*]IF S = "" THEN

 

[*]RESPONSE.REDIRECT "login_med.asp"

 

[*]END IF

 

[*]%>

 

[*]

 

[*]

 

[*]<!--#include file="Connections/Conexao.asp" -->

 

[*]<%

 

[*]' *** Edit Operations: declare variables

 

[*]

 

[*]Dim MM_editAction

 

[*]Dim MM_abortEdit

 

[*]Dim MM_editQuery

 

[*]Dim MM_editCmd

 

[*]

 

[*]Dim MM_editConnection

 

[*]Dim MM_editTable

 

[*]Dim MM_editRedirectUrl

 

[*]Dim MM_editColumn

 

[*]Dim MM_recordId

 

[*]

 

[*]Dim MM_fieldsStr

 

[*]Dim MM_columnsStr

 

[*]Dim MM_fields

 

[*]Dim MM_columns

 

[*]Dim MM_typeArray

 

[*]Dim MM_formVal

 

[*]Dim MM_delim

 

[*]Dim MM_altVal

 

[*]Dim MM_emptyVal

 

[*]Dim MM_i

 

[*]

 

[*]MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

 

[*]If (Request.QueryString <> "") Then

 

[*] MM_editAction = MM_editAction & "?" & Request.QueryString

 

[*]End If

 

[*]

 

[*]' boolean to abort record edit

 

[*]MM_abortEdit = false

 

[*]

 

[*]' query string to execute

 

[*]MM_editQuery = ""

 

[*]%>

 

[*]<%

 

[*]' *** Insert Record: set variables

 

[*]

 

[*]If (CStr(Request("MM_insert")) = "form1") Then

 

[*]

 

[*] MM_editConnection = MM_Conexao_STRING

 

[*] MM_editTable = "secretaria"

 

[*] MM_editRedirectUrl = "cad_sec_ok.asp"

 

[*] MM_fieldsStr = "NOME|value|CRM|value|senha|value"

 

[*] MM_columnsStr = "NOME|',none,''|CRM|',none,''|senha|',none,''"

 

[*]

 

[*] ' create the MM_fields and MM_columns arrays

 

[*] MM_fields = Split(MM_fieldsStr, "|")

 

[*] MM_columns = Split(MM_columnsStr, "|")

 

[*]

 

[*] ' set the form values

 

[*] For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

 

[*] MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))

 

[*] Next

 

[*]

 

[*] ' append the query string to the redirect URL

 

[*] If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

 

[*] If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

 

[*] MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

 

[*] Else

 

[*] MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

 

[*] End If

 

[*] End If

 

[*]

 

[*]End If

 

[*]%>

 

[*]<%

 

[*]' *** Insert Record: construct a sql insert statement and execute it

 

[*]

 

[*]Dim MM_tableValues

 

[*]Dim MM_dbValues

 

[*]

 

[*]If (CStr(Request("MM_insert")) <> "") Then

 

[*]

 

[*] ' create the sql insert statement

 

[*] MM_tableValues = ""

 

[*] MM_dbValues = ""

 

[*] For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

 

[*] MM_formVal = MM_fields(MM_i+1)

 

[*] MM_typeArray = Split(MM_columns(MM_i+1),",")

 

[*] MM_delim = MM_typeArray(0)

 

[*] If (MM_delim = "none") Then MM_delim = ""

 

[*] MM_altVal = MM_typeArray(1)

 

[*] If (MM_altVal = "none") Then MM_altVal = ""

 

[*] MM_emptyVal = MM_typeArray(2)

 

[*] If (MM_emptyVal = "none") Then MM_emptyVal = ""

 

[*] If (MM_formVal = "") Then

 

[*] MM_formVal = MM_emptyVal

 

[*] Else

 

[*] If (MM_altVal <> "") Then

 

[*] MM_formVal = MM_altVal

 

[*] ElseIf (MM_delim = "'") Then ' escape quotes

 

[*] MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"

 

[*] Else

 

[*] MM_formVal = MM_delim + MM_formVal + MM_delim

 

[*] End If

 

[*] End If

 

[*] If (MM_i <> LBound(MM_fields)) Then

 

[*] MM_tableValues = MM_tableValues & ","

 

[*] MM_dbValues = MM_dbValues & ","

 

[*] End If

 

[*] MM_tableValues = MM_tableValues & MM_columns(MM_i)

 

[*] MM_dbValues = MM_dbValues & MM_formVal

 

[*] Next

 

[*] MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

 

[*]

 

[*] If (Not MM_abortEdit) Then

 

[*] ' execute the insert

 

[*] Set MM_editCmd = Server.CreateObject("ADODB.Command")

 

[*] MM_editCmd.ActiveConnection = MM_editConnection

 

[*] MM_editCmd.CommandText = MM_editQuery

 

[*] MM_editCmd.Execute

 

[*] MM_editCmd.ActiveConnection.Close

 

[*]

 

[*] If (MM_editRedirectUrl <> "") Then

 

[*] Response.Redirect(MM_editRedirectUrl)

 

[*] End If

 

[*] End If

 

[*]

 

[*]End If

 

[*]%>

 

[*]

 

[*]

 

[*]<title>Receituário Médico - Cadastro de Secretária</title>

 

[*]<style type="text/css">

 

[*]<!--

 

[*]@import url("../receitastyle.css");

 

[*]-->

 

[*]</style>

 

[*]

 

[*]<form name="form1" method="POST" action="<%=MM_editAction%>">

 

[*] <table width="780">

 

[*] <tr>

 

[*] <td width="169" align="left" valign="top"> 

 

[*] <%'<!--#include file="med_menu.asp" -->%>

 

[*] </td>

 

[*] <td width="599" align="center" valign="top">

 

[*]<table width="59%" border="0">

 

[*] <tr bgcolor="#F9F9F9"> 

 

[*] <td colspan="2"> <div align="center" class="tituloform"><strong>Cadastro 

 

[*] de SECRETÁRIA</strong></div></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td width="21%"> </td>

 

[*] <td width="79%"> </td>

 

[*] </tr>

 

[*] <tr bgcolor="#F9F9F9"> 

 

[*] <td class="form"> <div align="right">Login (CRM DO MÉDICO):</div></td>

 

[*] <td class="preenche">

 

[*] <%response.write SESSION("CRM")%>

 

[*] </td>

 

[*] </tr>

 

[*] <tr bgcolor="#F4F4F4"> 

 

[*] <td class="form"> <div align="right">nOME DA SECRETÁRIA:</div></td>

 

[*] <td> <input name="NOME" type="text" class="preenche"id="NOME" size="30"> 

 

[*] </td>

 

[*] </tr>

 

[*] <tr bgcolor="#F4F4F4"> 

 

[*] <td class="form"> <div align="right">Senha:</div></td>

 

[*] <td> <input name="senha" type="password" class="preenche" id="senha" size="9" maxlength="8"> 

 

[*] <span class="form">máx. 8 caract. entre letras e números</span> 

 

[*] </td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td><input type="hidden" name="CRM" value="<%response.write SESSION("CRM")%>"></td>

 

[*] <td> </td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td colspan="2"> <div align="center"> 

 

[*] <input name="Submit" type="submit" class="preenche" value="Gravar">

 

[*] </div></td>

 

[*] </tr>

 

[*] </table>

 

[*] <div align="center"></div></td>

 

[*] </tr>

 

[*] </table>

 

[*] <p><strong><font color="#006666" face="Verdana"></font></strong></p>

 

[*] <input type="hidden" name="MM_insert" value="form1">

 

[*]</form>

 

DESCOBRI ALGO! Estava testando e percebi que o problema na verdade está na session. Acontece que na página cad_sec.asp a programação define a session S e pede para que, se ela estiver "vazia", seja direcionada para a página de login.

 

E é exatamente isso que está acontecendo. Mesmo mandando captar o CRM para esta session, ele não está chegando lá após a validação. Só não descobri ainda o que arrumar!! ;)

[hunger 0]

pessoal..consegui!

 

vou colocar aqui o q foi para quem quiser acompanhar já fica sabendo...

 

na página valida_login_med.asp estava faltando o seguinte:

 

ASP

[*]<%CRM = REQUEST.FORM("CRM")

 

[*]SESSION("CRM")=CRM%>

 

eu havia colocado apenas a linha <%CRM = REQUEST.FORM("CRM")%> na página login_med.asp , que não adiantava nada!

 

Agora está tudo ok!

 

Brigadao ae pro meirelles q deu uma boa ajuda nesse problema!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

vlw a todos...

[meirelles 0]

A intensão é ajudar a quem precisa, sempre me ajudam aqui, nada mais justo do que ajudar tmb, sucesso pra ti!Satisfação em ver seu sucesso!Fernando Meirelles.