Ir para conteúdo

POWERED BY:

Arquivado

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

Ronaldo_wt

(Sistema de Promoções)

Por , em ASP Clássico

Recommended Posts

Ronaldo_wt    0

Ronaldo_wt
Postado

Boa tarde gente, estou com uma dorzinha de cabeça aqui e ai vai:

Estou criando um sistema de promoções em que tera varias delas eu ja tenho tudo pronto o que me falta e uma logica aki que não estou conseguindo fluir, é que eu quero que o usuario veja no seu painel de controle uma lista das promoçoes que ele esta participando "somente as que ele esta participando" mas não consigo listalas no meu banco eu tenho:

 

1 tabela que cadastra a promoção

IDPromocao - NomePromocao - DataSorteioPromocao - IDAgendaPromocao - DetalhesPromocao

 

e tenho uma tabela que quando o usuario particapa de uma das promoções sao enviados os dados dele e da promoção

 

IDUsuPromocao - UsuIDPromocao - UsuIDCasaPromocao - UsuIDUsuario UsuNomeUsuario - UsuEmailUsuario - UsuTelefoneUsuario

 

na minha pagina que lista as promoçoes que o usuario esta participando a minha ideia era comparar a id da promocao IDPromocao com a id da promoção que o usuario solicitou UsuIDPromocao

 

alguem teria alguma logica disso pq eu to com meus miolos torrados de tanto pensar

Detalhe(Programo o basico no asp =/)

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

eu tenho em um sistema uma parte admisnitrativa, onde o admin se logo e pode verifcar os produtos k estao em promocao como tambem fazer a manutencaun, colocar e retirar produtos em promocao

exemplo:

 

<%
Option Explicit
'Admin das promoções - colocar
%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="../Asp/bib_conexao.asp"-->
<%
Dim strSQL, Conexao, rs, varPesquisa
varPesquisa = Request("pesquisa")
varPesquisa = Trim(Replace(varPesquisa, "'", ""))

strSQL = "SELECT COD_Produto, Produto, Descricao, VRL_Unitario FROM Produtos "
strSQL = strSQL & "WHERE Produto LIKE '%" & varPesquisa & "%' AND Promo = false  OR "
strSQL = strSQL & "Descricao LIKE '%" & varPesquisa & "%' AND Promo = false "
strSQL = strSQL & "ORDER BY Produto"
%>
<HTML>
<HEAD>
</HEAD>
<title>Administração de promoções - Colocar</title>
<BODY marginheight=0 topmargin=0 leftmargin=0 marginwidth=0>

<div align=left> <font size=5 face=verdana,arial,helvetica color=black><b> </b></font>
<table width="93%" border="0">
  <tr> 
    <td width="67%"><font size=3 face=verdana,arial,helvetica color=black><b>Administração 
        de Promoções - Colocar</b></font></td>
    <td width="33%"> 
      <form method="post" action="<%= Request.ServerVariables("SCRIPT_NAME") %>">
        <input type="text" name="pesquisa" size="15" maxlength="50">
        <input type=image src="../pictures/go2.gif" width="27" height="17" name="image">
      </form>
    </td>
  </tr>
</table>
<table width="82%" border="0" cellpadding="0" cellspacing="0">
  <%
  'abre a conexao
  Call abre_conexao

  'executa a instrução SQL
  Set rs=Conexao.Execute(strSQL)

  IF rs.EOF then
     Response.write "Não existem produtos a serem colocados em promoção..."
  ELSE
     While not rs.EOF
        %> 
      <tr> 
        <td colspan="2"> 
         <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
         <%
         Response.Write "<b>" & rs("Produto")
         Response.write " - Preço: </b>" & FormatNumber(rs("VRL_Unitario"),2)
         %> 
         <a href="AdmPromocaoColocar2.asp?id=<%=rs("COD_Produto")%>">Colocar</a>
         <%
         Response.write "<br>" & rs("Descricao") %>
         </font>
         </div>
        </td>
      </tr>
      <tr> 
        <td colspan="2"> 
          <hr align="left" width=550>
        </td>
      </tr>
        <%
        rs.movenext
     Wend
  End If
  rs.Close
  'fecha a conexao
  Call fecha_conexao
  Set rs = Nothing
  %> 
</table>
</div>
</BODY>
</HTML>


<%
Option Explicit
'Admin das promoções - colocar
%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="../Asp/bib_conexao.asp"-->
<%
Dim Conexao, rs, strSQL, varID
varID = Request("id")

strSQL = "UPDATE Produtos SET Promo = True "
strSQL = strSQL & "WHERE COD_Produto = " & varID

'abre a conexao
Call abre_conexao
Set rs=Conexao.Execute(strSQL)

'fecha a conexao
Call fecha_conexao
Set rs = Nothing
%>
<HTML>
<BODY bgcolor="#FFFFFF">
<DIV align="center">
  <P> </P>
  <P><FONT color="#FF6633" face="verdana"><B><font size=4 face=verdana,arial,helvetica color=black><b><font color="#663399">Produto 
    colocado na promoção !!!<br>
    </font><br>
    </b></font><b> <font size=3 face=verdana,arial,helvetica color=black><b> </b></font></b></B></FONT><A href="AdmPromocaoColocar1.asp"><img src="../pictures/voltar.gif" border="0"></A> 
  </P>
  </DIV>
</BODY>
</HTML>
na verdade você apenas dá um UPDATE no status do produto

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ronaldo_wt    0

Ronaldo_wt
Postado

Desculpa minha ignorancia mas acho que nao entendi bem o seu codigo bom vou colocar ai o que eu tentei e talvez você possa me dizer o que esta errado:

 

O usuario clica na pagina gerencia_promo.asp

nela eu tentei fazer o seguinte:

<%
'Select na tabela onde tem os dados dos participantes das promoções
set rs_estas_promocoes = server.CreateObject("adodb.recordset")
sqlpromo = "select * from UsuPromocao order by IDUsuPromocao"
rs_estas_promocoes.open sqlpromo,obj_conexao%>

<%
'Select na tabela de promoções
set rs_lista_promo = server.CreateObject("adodb.recordset")
sqllista = "select * from Promocao order by IDPromocao"
rs_lista_promo.open sqllista,obj_conexao%>

<%'Faço um while percorrendo os participantes
while not rs_estas_promocoes.eof%>
<%
'Na tabela de participantes ele compara a ID do participante com a ID da sessão do usuario logado
if rs_estas_promocoes("UsuIDPromocao") = session("IDUsu") then
%>

É aqui que eu fico trancado nao sabendo como fazer esta comparação, nao consigo colocar uma logica nisso dizendo que se a id da promoção que o usuario esta participando for = a ID da promoção cadastrada entao mostra somentes elas.

<%end if%>
<%rs_estas_promocoes.movenext
wend%>
da vontade de chorar http://forum.imasters.com.br/public/style_emoticons/default/natal_sad.gif

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