<%@LANGUAGE="VBScript"%> <%if Session("cod_cesta") = "" or Session("cod_cesta") = 0 then response.Redirect("decore.asp?exp=1") response.End() end if%> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "lightway1_site" SQL = "SELECT * FROM categorias WHERE CT_ID="&request("CT_ID") Set RS1 = Server.CreateObject("ADODB.RecordSet") RS1.open SQL,Conn,3,3 SQL2 = "SELECT * FROM subcategorias WHERE CT_ID="&request("CT_ID")&" ORDER BY SCT_NOME" Set RS2 = Server.CreateObject("ADODB.RecordSet") RS2.open SQL2,Conn,3,3 SQLDP = "SELECT P_NOME FROM produtos WHERE P_ID="&request("P_ID") Set RSDP = Server.CreateObject("ADODB.RecordSet") RSDP.open SQLDP,Conn,0 SQL3 = "SELECT * FROM produtos WHERE P_NOME='"&RSDP("P_NOME")&"'" Set RS3 = Server.CreateObject("ADODB.RecordSet") RS3.open SQL3,Conn,3,3 %>