Preciso de / Erro nas sessoes

[gisela 0]

Oi Pessoal,Estou com um problema....estou fazendo uma integracao com outro sistema, mas o meu nao esta conseguindo "ler" as variaveis de sessao...Entao quando mando finalizar compra ou alterar ele me retorna que o carrinho esta vazio....alguem pode me ajudar??? Tem como nao passar os dados por essas variaveis? O que pode estar acontecendo?<%@ Language=vb script: submitFunction(1);"><IMG src="images/conticomp.gif" width=158 height=21 border=0 hspace=0></A> </td> <td width=138> <A HREF="java script: submitFunction(2);"><IMG src="images/recalc.gif" width=158 height=20 border=0 hspace=0 ></A> </td> <td width=158> <A HREF="java script: submitFunction(3);"><IMG src="images/confirmcomp.gif" width=158 height=20 border=0 hspace=0 ></A> </td> </tr> </TABLE> </B> </FORM> <table> <tr> <TD width="96" ></TD> <TD width="285" ><B style=font-size:10px;FONT-WEIGHT:normal> Atenção! Escolha seu método de entrega para efetuar sua compra. </TD> </tr> <tr> <TD width="96" ></TD> <% CSClube.openDataSrc(Session("loja")) CSClube.openDataRS("SELECT * FROM Entrega ") %> <TD width="285" height="25"> <form name="astral" action=""> <select onChange="document.location.href = document.astral.url.options[document.astral.url.selectedIndex].value" name="url" size="1" style="background-color: #ffffff"> <% If Session("entrega") = 0 Then %> <OPTION value="carrinho.asp" SELECTED>Entrega</option> <%End If%> <% Dim local_ent(5), ent, taxa(5), prazomin(5), prazomax(5), id_entrega Do While Not CSClube.m_rsData.EOF id_entrega = CSClube.m_rsData("id_entrega") local_ent(1)= CSClube.m_rsData("local1") local_ent(2)= CSClube.m_rsData("local2") local_ent(3)= CSClube.m_rsData("local3") local_ent(4)= CSClube.m_rsData("local4") local_ent(5)= CSClube.m_rsData("local5") taxa(1) = CSClube.m_rsData("taxa1") taxa(2) = CSClube.m_rsData("taxa2") taxa(3) = CSClube.m_rsData("taxa3") taxa(4) = CSClube.m_rsData("taxa4") taxa(5) = CSClube.m_rsData("taxa5") prazomin(1) = CSClube.m_rsData("prazomin1") prazomin(2) = CSClube.m_rsData("prazomin2") prazomin(3) = CSClube.m_rsData("prazomin3") prazomin(4) = CSClube.m_rsData("prazomin4") prazomin(5) = CSClube.m_rsData("prazomin5") prazomax(1) = CSClube.m_rsData("prazomax1") prazomax(2) = CSClube.m_rsData("prazomax2") prazomax(3) = CSClube.m_rsData("prazomax3") prazomax(4) = CSClube.m_rsData("prazomax4") prazomax(5) = CSClube.m_rsData("prazomax5") for ent = 1 to 5 Dim teste teste = "" If local_ent(ent) <> "" Then For space = 1 to Len(Trim(local_ent(ent))) If mid(Trim(local_ent(ent)), space, 1) = " " Then teste = teste & "%20" Else teste = teste & mid(Trim(local_ent(ent)), space, 1) End If Next%> <OPTION value="carrinho.asp?ent=<%= id_entrega %>&tx=<%= taxa(ent)%>&pmin=<%=prazomin(ent)%>&pmax=<%=prazomax(ent)%>&local=<%=teste%>" <%if CInt(id_entrega) = CInt(Session("entrega")) and Trim(local_ent(ent)) = Trim(Session("local")) then %> SELECTED <%End If%>><%= CSClube.m_rsData("met_entrega")%>/<%= local_ent(ent)%> <% End If Next CSClube.m_rsData.MoveNext Loop CSClube.closeDataSrc %> </SELECT> </form> </TD> </tr> <tr> <TD width="96" ></TD> <td width="285" ><B style=font-size:10px;> <% If Session("entrega") <> 0 Then Response.Write "Prazo para entrega de: " & Session("pmin") & " a " & Session("pmax") & " dias." End If If error = "ent" Then %> <script language = "javascript"> alert("Você deverá escolher o método de entrega"); </script> <%End If%></B> </td> </tr> </table> <%End If %> </td> </tr></table><!--#include file="footer.asp"---></BODY></HTML>

[Engespro 0]

Não sei se você já testou isso, mas a variável de sessão nada mais é do que um cookie disfarçado se na sua estação não estiver com permisão de gravação de cookies a variável de sesssão não funciona.

?Que eu saiba Cookies são gravadas na máquina do cliente (quem abre a página) e sessions estão no servidor. Desculpe se estiver enganado mas uma coisa não depande da outra.

[gisela 0]

Eu tenho permissao para gravar cookies....mas nao esta funcionando...