Passar dados de uma pagina para outra...

[gisela 0]

Bom, sou bem iniciante em asp e estou precisando de uma super ajuda...Preciso transformar uma pagina que passava os dados antes por post em get.....ate consegui passar mas a pagina que recebe nao esta recebendo os dados....so fica aparecendo na url.....Pergunto...o que estou fazendo de errado?Vou colocar um pedaco do codigo da que envia os dados:.....................................<%@ Language=VBScript %><%Option Explicit%><!--#include virtual="/include/sclib1.asp"---><%Dim CSClubeSet CSClube = Session("objCSClube")Dim dept(4), prod(4), dept1(4)Dim cont, par, div, strfile, storecont = 1strfile = Server.MapPath(Request.ServerVariables("Path_Info"))store = mid(strfile,33,Len(strfile)-(33 + Len(right(strfile, len(strfile)-InstrRev(strfile, "\", len(strfile), 1)))))If Session("loja") <> store Then ReDim arrcart(Atributos,maxItens) Session("Carrinho") = arrcart Session("Item") = 0 Session("carac1") = "" Session("carac2") = "" Session("entrega") = 0 Session("taxa") = 0 Session("pmin") = "" Session("pmax") = "" Session("local") = "" Session("id_cli") = 0 End IfSession("loja") = storeIf Request.QueryString ("action") = "start" Then ReDim arrcart(Atributos,maxItens) Session("Carrinho") = arrcart Session("Item") = 0 Session("carac1") = "" Session("carac2") = "" Session("entrega") = 0 Session("taxa") = 0 Session("pmin") = "" Session("pmax") = "" Session("local") = "" Session("id_cli") = 0 End IfDim id_dept, strdeptid_dept = Request.QueryString("id")openDept()Function openDept() CSClube.openDataSrc(Session("loja")) On Error Resume Next CSClube.openDataRS("Select * From departamentos WHERE(Id_Dept =" & id_dept & ")") strdept = CSClube.m_rsData("nome_dept") 'closeData() End FunctionFunction Produto() CSClube.openDataSrc(Session("loja")) Dim id, nome_prod, descricao, html, preco, image, tam, larg, id_prod, promocao, atributo Dim carac1, carac2, car1_op1, car1_op2, car1_op3, car1_op4, car1_op5, car2_op1, car2_op2, car2_op3, car2_op4, car2_op5 id_prod = Request.QueryString("id") CSClube.openDataRS("Select * From produtos WHERE(Id_prod =" & id_prod & ")") id = Trim(CSClube.m_rsData("id_prod")) nome_prod = Trim(CSClube.m_rsData("nome_prod")) descricao = Trim(CSClube.m_rsData("desc_prod")) atributo = Trim(CSClube.m_rsData("atrib_prod")) preco = CSClube.m_rsData("preco_prod") image = Trim(CSClube.m_rsData("image_prod")) tam = Trim(CSClube.m_rsData("tam_image")) larg = Trim(CSClube.m_rsData("larg_image")) carac1 = Trim(CSClube.m_rsData("carac1")) carac2 = Trim(CSClube.m_rsData("carac2")) car1_op1 = Trim(CSClube.m_rsData("car1_op1")) car1_op2 = Trim(CSClube.m_rsData("car1_op2")) car1_op3 = Trim(CSClube.m_rsData("car1_op3")) car1_op4 = Trim(CSClube.m_rsData("car1_op4")) car1_op5 = Trim(CSClube.m_rsData("car1_op5")) car2_op1 = Trim(CSClube.m_rsData("car2_op1")) car2_op2 = Trim(CSClube.m_rsData("car2_op2")) car2_op3 = Trim(CSClube.m_rsData("car2_op3")) car2_op4 = Trim(CSClube.m_rsData("car2_op4")) car2_op5 = Trim(CSClube.m_rsData("car2_op5")) promocao = CSClube.m_rsData("promocao") html = "" html = html & "<form action=nonon.php?tp_pag=carrinho.asp&id_prod="&id_prod&" method=post id=form1 name=form1><table border=0 width=400 >" html = html & "<tr><td colspan=2 class=bgspacer valign=top width=300><IMG SRC=" & Chr(34) & "http://www.nonon.com.br/shopping/nonon/images/spacer.gif" & Chr(34) & " WIDTH=250 HEIGHT=1></td></tr>" html = html & "<tr><td width=300 colspan=2 height=21 bgcolor=" & Chr(34) & "#C0C0C0" & Chr(34) & ">" html = html & "<p align=right><B>" & nome_prod & "</B></td></tr>" html = html & "<tr><td width=250 valign=top class=Car><font style=font-size=10px;>" & descricao & "</font><p>" html = html & "<tr><td width=250 valign=top class=Car><font color=red style=font-size=10px;>Informações sobre o produto:</font><br><font style=font-size=10px;>" & atributo & "</font><br><p>" If len(carac1) <> "" Then html = html & carac1 & "<br>" If car1_op1 <> "" Then html = html & "<input type=radio checked value=" & Chr(34) & car1_op1 & Chr(34) & " name=cor>" & car1_op1 & " " If car1_op2 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car1_op2 & Chr(34) & " name=cor>" & car1_op2 & " " If car1_op3 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car1_op3 & Chr(34) & " name=cor>" & car1_op3 & " " If car1_op4 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car1_op4 & Chr(34) & " name=cor>" & car1_op4 & " " If car1_op5 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car1_op5 & Chr(34) & " name=cor>" & car1_op5 & " " End If html = html & "<br><p>" If len(carac2) <> "" Then html = html & carac2 & "<br>" If car2_op1 <> "" Then html = html & "<input type=radio checked value=" & Chr(34) & car2_op1 & Chr(34) & " name=tamanho>" & car2_op1 & " " If car2_op2 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car2_op2 & Chr(34) & " name=tamanho>" & car2_op2 & " " If car2_op3 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car2_op3 & Chr(34) & " name=tamanho>" & car2_op3 & " " If car2_op4 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car2_op4 & Chr(34) & " name=tamanho>" & car2_op4 & " " If car2_op5 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car2_op5 & Chr(34) & " name=tamanho>" & car2_op5 & " " End If html = html & "<br></td><td width=150 height=100 valign=top align=center><img src=http://www.nonon.com.br/shopping/" & Session("loja") & "/fotos/" & image & " width=" & larg & " height=" & tam & "></td></tr>" If ChkSale(CSClube.m_rsData("inicio"), CSClube.m_rsData("fim")) Then html = html & "<tr><td width=150 height=21 class=Price>" html = html & "<strike>De: R$ " & preco & "</strike></td>" html = html & "<td width=150 height=21 class=Sale>" html = html & "Por: R$ " & CalcSale(preco, promocao) & "</td></tr>" Else html = html & "<tr><td width=150 height=21 class=Price valign=top>" html = html & "Por: R$ " & preco & "</td></tr>" End If html = html & "<tr><td width=40 height=21></td>" html = html & "<td width=150 height=21 valign=top><input type=hidden name=idprod value=" & id & "><input type=image value=Comprar name=comprar src=http://www.nonono.com.br/shopping/nonon/images/comprar.gif width=76 height=20 border=0>" html = html & "</form></td></tr></table>" Response.Write html CSClube.closeDataSrcEnd Function%>.......................................Codigo de quem recebe os dados<%@ Language=VBScript %><%Option Explicit%><!--#include virtual="/include/sclib1.asp"---><%Dim CSClubeSet CSClube = Session("objCSClube")Dim dept(4), prod(4), dept1(4)Dim cont, par, div, strfile, storecont = 1strfile = Server.MapPath(Request.ServerVariables("Path_Info"))store = mid(strfile,33,Len(strfile)-(33 + Len(right(strfile, len(strfile)-InstrRev(strfile, "\", len(strfile), 1)))))If Session("loja") <> store Then ReDim arrcart(Atributos,maxItens) Session("Carrinho") = arrcart Session("Item") = 0 Session("carac1") = "" Session("carac2") = "" Session("entrega") = 0 Session("taxa") = 0 Session("pmin") = "" Session("pmax") = "" Session("local") = "" Session("id_cli") = 0 End IfSession("loja") = storeIf Request.QueryString ("action") = "start" Then ReDim arrcart(Atributos,maxItens) Session("Carrinho") = arrcart Session("Item") = 0 Session("carac1") = "" Session("carac2") = "" Session("entrega") = 0 Session("taxa") = 0 Session("pmin") = "" Session("pmax") = "" Session("local") = "" Session("id_cli") = 0 End IfDim id_dept, strdeptid_dept = Request.QueryString("id")openDept()Function openDept() CSClube.openDataSrc(Session("loja")) On Error Resume Next CSClube.openDataRS("Select * From departamentos WHERE(Id_Dept =" & id_dept & ")") strdept = CSClube.m_rsData("nome_dept") 'closeData() End FunctionFunction Produto() CSClube.openDataSrc(Session("loja")) Dim id, nome_prod, descricao, html, preco, image, tam, larg, id_prod, promocao, atributo Dim carac1, carac2, car1_op1, car1_op2, car1_op3, car1_op4, car1_op5, car2_op1, car2_op2, car2_op3, car2_op4, car2_op5 id_prod = Request.QueryString("id") CSClube.openDataRS("Select * From produtos WHERE(Id_prod =" & id_prod & ")") id = Trim(CSClube.m_rsData("id_prod")) nome_prod = Trim(CSClube.m_rsData("nome_prod")) descricao = Trim(CSClube.m_rsData("desc_prod")) atributo = Trim(CSClube.m_rsData("atrib_prod")) preco = CSClube.m_rsData("preco_prod") image = Trim(CSClube.m_rsData("image_prod")) tam = Trim(CSClube.m_rsData("tam_image")) larg = Trim(CSClube.m_rsData("larg_image")) carac1 = Trim(CSClube.m_rsData("carac1")) carac2 = Trim(CSClube.m_rsData("carac2")) car1_op1 = Trim(CSClube.m_rsData("car1_op1")) car1_op2 = Trim(CSClube.m_rsData("car1_op2")) car1_op3 = Trim(CSClube.m_rsData("car1_op3")) car1_op4 = Trim(CSClube.m_rsData("car1_op4")) car1_op5 = Trim(CSClube.m_rsData("car1_op5")) car2_op1 = Trim(CSClube.m_rsData("car2_op1")) car2_op2 = Trim(CSClube.m_rsData("car2_op2")) car2_op3 = Trim(CSClube.m_rsData("car2_op3")) car2_op4 = Trim(CSClube.m_rsData("car2_op4")) car2_op5 = Trim(CSClube.m_rsData("car2_op5")) promocao = CSClube.m_rsData("promocao") html = "" html = html & "<form action=nonon.php?tp_pag=carrinho.asp&id_prod="&id_prod&" method=post id=form1 name=form1><table border=0 width=400 >" html = html & "<tr><td colspan=2 class=bgspacer valign=top width=300><IMG SRC=" & Chr(34) & "http://www.nonon.com.br/shopping/nonon/images/spacer.gif" & Chr(34) & " WIDTH=250 HEIGHT=1></td></tr>" html = html & "<tr><td width=300 colspan=2 height=21 bgcolor=" & Chr(34) & "#C0C0C0" & Chr(34) & ">" html = html & "<p align=right><B>" & nome_prod & "</B></td></tr>" html = html & "<tr><td width=250 valign=top class=Car><font style=font-size=10px;>" & descricao & "</font><p>" html = html & "<tr><td width=250 valign=top class=Car><font color=red style=font-size=10px;>Informações sobre o produto:</font><br><font style=font-size=10px;>" & atributo & "</font><br><p>" If len(carac1) <> "" Then html = html & carac1 & "<br>" If car1_op1 <> "" Then html = html & "<input type=radio checked value=" & Chr(34) & car1_op1 & Chr(34) & " name=cor>" & car1_op1 & " " If car1_op2 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car1_op2 & Chr(34) & " name=cor>" & car1_op2 & " " If car1_op3 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car1_op3 & Chr(34) & " name=cor>" & car1_op3 & " " If car1_op4 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car1_op4 & Chr(34) & " name=cor>" & car1_op4 & " " If car1_op5 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car1_op5 & Chr(34) & " name=cor>" & car1_op5 & " " End If html = html & "<br><p>" If len(carac2) <> "" Then html = html & carac2 & "<br>" If car2_op1 <> "" Then html = html & "<input type=radio checked value=" & Chr(34) & car2_op1 & Chr(34) & " name=tamanho>" & car2_op1 & " " If car2_op2 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car2_op2 & Chr(34) & " name=tamanho>" & car2_op2 & " " If car2_op3 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car2_op3 & Chr(34) & " name=tamanho>" & car2_op3 & " " If car2_op4 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car2_op4 & Chr(34) & " name=tamanho>" & car2_op4 & " " If car2_op5 <> "" Then html = html & "<input type=radio value=" & Chr(34) & car2_op5 & Chr(34) & " name=tamanho>" & car2_op5 & " " End If html = html & "<br></td><td width=150 height=100 valign=top align=center><img src=http://www.nonon.com.br/shopping/" & Session("loja") & "/fotos/" & image & " width=" & larg & " height=" & tam & "></td></tr>" If ChkSale(CSClube.m_rsData("inicio"), CSClube.m_rsData("fim")) Then html = html & "<tr><td width=150 height=21 class=Price>" html = html & "<strike>De: R$ " & preco & "</strike></td>" html = html & "<td width=150 height=21 class=Sale>" html = html & "Por: R$ " & CalcSale(preco, promocao) & "</td></tr>" Else html = html & "<tr><td width=150 height=21 class=Price valign=top>" html = html & "Por: R$ " & preco & "</td></tr>" End If html = html & "<tr><td width=40 height=21></td>" html = html & "<td width=150 height=21 valign=top><input type=hidden name=idprod value=" & id & "><input type=image value=Comprar name=comprar src=http://www.noinon.com.br/shopping/nonon/images/comprar.gif width=76 height=20 border=0>" html = html & "</form></td></tr></table>" Response.Write html CSClube.closeDataSrcEnd Function%>

[augusto 0]

Olá,Não li todo o código, mas quando envia por GET ou POST você deve mudar o requestGET: request.QueryString("Campo")POST: request.Form("Campo")GET ou POST: request("Campo")Espero q seja seu problema...