Ir para conteúdo

POWERED BY:

Arquivado

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

Selt

Session não zera...

Por , em ASP Clássico

Recommended Posts

Selt    0

Selt
Postado

Galera... estou com um problemão numa porcaria de session...

 

ela pertence a um carrinho de compras ... quando você fecha o pedido a session tem que ser zera mas a infeliz não zera... HELLPP

 

é esse o código do carrinho:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Option ExplicitResponse.AddHeader "pragma","no-cache"Response.AddHeader "cache-control","private"Response.CacheControl = "no-cache"if len(session("logado"))=0 thenWith response.Write("<center>Você não está logado.<br>").Write("</center>")End WithResponse.Endend ifif session("tipo")="3" then	With response	.Write("<center>ESSA É UMA AREA RESTRITA<br>")	.Write("Seu cadastro dá direito somente de utilização dos classificados<br>")	.Write("Caso queira acessar esse serviço <a href='extracad.asp'>Clique aqui e cadastre-se</a><br>")	.Write("ou <a href='main.htm'>clique aqui</a> para retornar")	.Write("</center>")	End With	response.endend ifDim conn,objrs,objstr,codigo,codigopedido,codigoaveDim strinsitem, rsiinstem,strdup,rsdup,strmax,rsmax,novopedido,maiorindexDim strinsped,rsinspedped,field_name,totalped,rsitenspedido,stritenspedidoSet conn= Server.CreateObject("ADODB.Connection")conn.Open Application("Conn")codigo=request.QueryString("codigo")'*******verifica o ulitmo numero de pedidoif session("codped")=0 then	strmax="SELECT MAX(index) AS maiorindex FROM pedido"	set rsmax=conn.execute(strmax)	novopedido=maiorindex+1	dim data,dia,mes,ano	dia=day(now)	mes=month(now)	ano=year(now)	if len(dia)=1 then  dia="0"&dia	end if	if len(mes)=1 then  mes="0"&mes	end if  data= ""&dia&"/"&mes&"/"&ano&""'**** insere um novo registro na tabela pedido	strinsped="INSERT INTO pedido (data,index,codcliente) VALUES ('"&data&"','"&Cint(novopedido)&"','"&session("codigo")&"')"	Set rsinspedped=conn.execute(strinsped)	set rsinspedped=Nothing	Dim obj2,rs2	obj2="SELECT * FROM pedido WHERE codcliente="&session("codigo")&" AND index="&novopedido	set rs2=conn.execute(obj2)'***** grava na session o numero do pedido	Session("codped")=rs2("codpedido")	rsmax.close	Set rsmax=Nothing	rs2.close	Set rs2=Nothingend ifcodigopedido=session("codped")codigoave=codigo'********* verifica duplicidadeif codigo<>"" then	strdup="SELECT * FROM item WHERE codave="&codigoave&" AND codpedido="&session("codped")	set rsdup=conn.execute(strdup)	If rsdup.EOF then'****** insere iten na table de itens  strinsitem="INSERT INTO item (codpedido,codave,qtave) VALUES ("&codigopedido&","&codigoave&",1)"  set rsiinstem=conn.execute(strinsitem)  set rsiinstem=nothing	else  Dim qtupdate  qtupdate=rsdup("qtave")  qtupdate=qtupdate+1  strinsitem="UPDATE item SET qtave="&qtupdate&" WHERE codave="&codigoave&" AND codpedido="&session("codped")  set rsiinstem=conn.execute(strinsitem)  set rsiinstem=nothing	end if	rsdup.close	set rsdup=nothingend if'****** monta formulário if request.form <>"" then	conn.execute "DELETE FROM item WHERE codpedido="&session("codped")	For each field_name in request.Form	If field_name <>"btrec" and request.form(field_name)<>"0" and Trim(request.form(field_name)) <> "" THEN'****** insere iten na tabela de itens	strinsitem ="INSERT INTO item (codpedido, codave, qtave) VALUES ("&session("codped")&","&field_name&","&request.form(field_name)&")"	set rsiinstem=conn.execute(strinsitem)	set rsiinstem=nothing	end if	nextend ifstritenspedido="SELECT * FROM AVES INNER JOIN ITEM ON ITEM.CODAVE=AVES.CODIGO WHERE CODPEDIDO = "&session("codped")set rsitenspedido=conn.execute(stritenspedido)%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css"><!--a:link {	font-family: Verdana, Arial, Helvetica, sans-serif;	font-size: 12px;	font-style: normal;	font-weight: bold;	color: #336666;	text-decoration: none;}a:visited {	font-family: Verdana, Arial, Helvetica, sans-serif;	font-size: 12px;	font-style: normal;	font-weight: bold;	color: #336666;	text-decoration: none;}a:hover {	font-family: Verdana, Arial, Helvetica, sans-serif;	font-size: 12px;	font-style: normal;	font-weight: bold;	color: #339999;	text-decoration: none;}a:active {	font-family: Verdana, Arial, Helvetica, sans-serif;	font-size: 12px;	font-style: normal;	font-weight: bold;	color: #336666;	text-decoration: none;}--></style></head><body><table width="100%" height="100%" border="0">  <tr>    <td align="left" valign="top">       <table width="100%" border="0">        <tr>           <td colspan="4"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">Sua             Gaiola</font></td>        </tr>        <%if rsitenspedido.EOF = true then%>        <tr>           <td colspan="4"><div align="center"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>No               momento não existe nenhuma ave na sua gaiola</strong></font></div></td>        </tr>        <tr>           <td><div align="right"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="avesdisp.asp">Retornar</a></font></div></td>        </tr>        <%else%>        <tr>           <td colspan="4"><div align="left"></div>            <div align="left"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">INSTRUÇÕES</font></div>            <div align="left"></div>            <div align="left"></div></td>        </tr>        <tr>           <td colspan="4"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Alterar             a quantidade: </strong> Digite a nova quantidade no campo (Quant.)             e em seguida clique no botão "Recalcular Pedido"<br>            Inserir nova ave na gaiola: Clique no link "Continua comprando"<br>            Excluir uma ave da gaiola: Digite 0 (zero) no campo (Quant.) e em             seguida clique no botão "Recalcular Pedido"<br>            Fechar pedido: Concluída a sua compra, clique no link "Fechar             seu Pedido"</font></td>        </tr>        <form name="form" method="post" action="cesta.asp">          <tr>             <td width="70%"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome               Cientifico / Nome Comercial</font></td>            <td width="10%"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">Sexo</font></td>            <td width="15%"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">Preço</font></td>            <td width="5%"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">Quant.</font></td>          </tr>          <%     totalped=0    rsitenspedido.movefirst    Do while not rsitenspedido.EOF%>          <tr>             <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">               <% =rsitenspedido.fields("especie")%>                /  <%=rsitenspedido.fields("comercial")%></font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rsitenspedido.fields("sexo")%></font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">R$ <%=formatnumber(rsitenspedido.fields("valor"),2)%></font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">               <input type="text" name="<%=rsitenspedido.fields("codave")%>" size="2" maxlength="2" value="<%=rsitenspedido.fields("qtave")%>">              </font></td>          </tr>          <% totalped=( rsitenspedido("qtave") * rsitenspedido("valor"))+totalped    rsitenspedido.movenext    loop    session("totalped")=totalped    rsitenspedido.close    set rsitenspedido=nothing    %>          <tr>             <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>          </tr>          <tr>             <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">Valor               total:</font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">R$ <%=formatnumber(session("totalped"),2)%></font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>          </tr>          <tr>             <td><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><font size="2"><font color="#336600"></font></font></font>               </div></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>          </tr>          <tr>             <td><div align="center"> <font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">                 <input type="submit" name="btrec" value="Recalcular Pedido">                </font></div></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>          </tr>          <tr>             <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>          </tr>          <tr>             <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">O               valor total de sua compra não inclui o frete.</font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>          </tr>          <tr>             <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>            <td><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>          </tr>          <tr>             <td colspan="4"><table width="100%" border="0">                <tr>                   <td><div align="center"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="avesdisp.asp">Continuar                       comprando</a></font></div></td>                  <td><div align="center"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="fecharpedido.asp">Fechar                       seu pedido</a></font></div></td>                  <td><div align="center"><font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="excluircesta.asp">Esvaziar                       gaiola</a></font></div></td>                </tr>              </table></td>          </tr>        </form>        <%end if%>      </table></td>  </tr></table></body></html>

 

--------------------------------------------------------------------------------------------

 

esse o do fechamento do pedido..

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Response.AddHeader "pragma","no-cache"Response.AddHeader "cache-control","private"Response.CacheControl = "no-cache"if len(session("logado"))=0 thenWith response.Write("<center>Você não está logado.<br>").Write("</center>")End WithResponse.Endend ifif session("tipo")="3" then	With response	.Write("<center>ESSA É UMA AREA RESTRITA<br>")	.Write("Seu cadastro dá direito somente de utilização dos classificados<br>")	.Write("Caso queira acessar esse serviço <a href='extracad.asp'>Clique aqui e cadastre-se</a><br>")	.Write("ou <a href='main.htm'>clique aqui</a> para retornar")	.Write("</center>")	End With	response.endend ifDim conn,email,body,body2,strpedido,rspedido,email2,codcliente,totalSet conn= Server.CreateObject("ADODB.Connection")conn.Open Application("Conn")codcliente=session("codigo")total=cint(session("total"))strpedido="UPDATE pedido SET valorpedido="&total&", statusped='2' WHERE codcliente="&codclienterspedido=conn.execute(strpedido)BODY="Prezado "&session("nome")&"<br> Seu pedido de número "&session("codped")&" será processado e entraremos em contato em breve<br> Atenciosamente - Parrots Place"BODY2="Foi feito um pedido.<br> O número do pedido é: "&session("codped")&"<br> Parrots Place - Aves disponiveis"Dim msgHTML,sch,cdoConfig,cdoMessagemsgHTML=BODY  sch = "http://schemas.microsoft.com/cdo/configuration/"  Set cdoConfig = Server.CreateObject("CDO.Configuration")  cdoConfig.Fields.Item(sch & "sendusing") = 2  cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1  cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.parrotsplace.com.br"  cdoConfig.Fields.Item(sch & "sendusername") = "adm=parrotsplace.com.br"  cdoConfig.Fields.Item(sch & "sendpassword") = "123456"  cdoConfig.fields.update  Set cdoMessage = Server.CreateObject("CDO.Message")  Set cdoMessage.Configuration = cdoConfig  cdoMessage.From = "Parrot's Place <adm@parrotsplace.com.br>"  cdoMessage.To = session("logado")  cdoMessage.Subject = "Pedido de aves - Parrots Place"  cdoMessage.HTMLBody = msgHTML  if msgHTML <> "" then    cdoMessage.AutoGenerateTextBody = false    cdoMessage.TextBody = msgHTML  end if  cdoMessage.Send  Set cdoMessage = Nothing  Set cdoConfig = NothingDim msgHTML2,sch2,cdoConfig2,cdoMessage2msgHTML2=BODY2  sch = "http://schemas.microsoft.com/cdo/configuration/"  Set cdoConfig2 = Server.CreateObject("CDO.Configuration")  cdoConfig2.Fields.Item(sch2 & "sendusing") = 2  cdoConfig2.Fields.Item(sch2 & "smtpauthenticate") = 1  cdoConfig2.Fields.Item(sch2 & "smtpserver") = "smtp.parrotsplace.com.br"  cdoConfig2.Fields.Item(sch2 & "sendusername") = "adm=parrotsplace.com.br"  cdoConfig2.Fields.Item(sch2 & "sendpassword") = "123456"  cdoConfig2.fields.update  Set cdoMessage2 = Server.CreateObject("CDO.Message")  Set cdoMessage2.Configuration = cdoConfig2  cdoMessage2.From = "Parrot's Place <adm@parrotsplace.com.br>"  cdoMessage2.To = "adm@parrotsplace.com.br"  cdoMessage2.Subject = "Pedido de aves - Parrots Place"  cdoMessage2.HTMLBody = msgHTML2  if msgHTML2 <> "" then    cdoMessage2.AutoGenerateTextBody = false    cdoMessage2.TextBody = msgHTML2  end if  cdoMessage2.Send  Set cdoMessage2 = Nothing  Set cdoConfig2 = Nothing  session("totalped")=0session("codped")=0%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><div align="center"><br>  <font color="#336600" size="2" face="Verdana, Arial, Helvetica, sans-serif">Seu pedido foi fechado e   enviado.<br>  Você receberá um email com o código do pedido.<br>  <br>  Em breve entraremos em contato. </font></div></body></html>

 

 

PLEASE... help

Compartilhar este post

Link para o post
Compartilhar em outros sites

Selt    0

Selt
Postado

Só que se não me engano o abandon faz com que todas as session do usuario sejam fechadas... e não é isso que quero... só preciso abandonar ou alterar o valor para zero ou nulo de uma session especifica...como posso fazer isso???HELPPPP

Compartilhar este post

Link para o post
Compartilhar em outros sites

Selt    0

Selt
Postado

Estranho ... olha o erro que deu...

 

Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: 'session(...)' /teste/fecharpedido.asp, line 89

que diacho é esse????

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito