If Naum Funciona

[Espartaco]

Olá, cá estou afundado em dúvidas

Essa deve ser bem fácil para quem já está a mais tempo nessa longa jornada ao domínio do ASP, que não é meu caso.

No sistema que montei, as lojas são exibidas, e caso o campo pag_prod do banco de dados seja preenchido com S (sim), o sistema deve mostrar o link para a página de produtos, se estiver N (não), deve mostrar a Mensagem "Essa loja não expõe produtos no site".

O problema é que ela mostra o link para ver ofertas mesmo que no BD esteja marcado como N (não)

Segue o código:

<% AbreConexao
dep = request.querystring("dep")
If dep = "" Then 
%>

<font size="3">Escolha um departamento</font>

<%Sql = "SELECT * FROM departamentos ORDER BY nome asc"
Set rs = Conexao.Execute(Sql)
If rs.EOF Then %>
<font size="2">Nenhum departamento encontrado!</font>
<% Else
While not rs.EOF %>

<font size="2"><a href="lojas.asp?dep=<%=rs("id")%>">
<%=rs("nome")%></font></a><br>

<% rs.MoveNext
Wend
rs.close
End If
Set rs = nothing %>



<% else %>
<% regs = 5
pag = request.querystring("pagina")
If pag = "" Then
pag = 1
End If %>

<% Set rs = Createobject("ADODB.recordset")
set Rs.ActiveConnection = Conexao
rs.cursortype = 3 
rs.pagesize = regs
Sql = "SELECT * FROM lojas WHERE departamento = "& dep &" ORDER BY nome_loja"
rs.Open SQL
if rs.EOF then%>

<font size="2">Não foi localizado nenhuma loja desse departamento.</font>

<% else
prod = ("pagina_prod")
rs.Absolutepage = pag
contador = 0

Do While Not rs.EOF AND contador < rs.Pagesize
contador = contador +1 %>

<table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="40%" id="AutoNumber1">
<tr>
<td width="18%">Nome:</td>
<td width="82%"><%=rs("nome_loja")%></td>
</tr>
<tr>
<td width="18%">Endereço</td>
<td width="82%"><%=rs("endereco")%></td>
</tr>
<tr>
<td width="18%">Telefone:</td>
<td width="82%"><%=rs("telefone")%></td>
</tr>
<tr>
<td width="18%">Ofertas</td>
<td width="82%"><%If prod = "n" Then Response.Write "Esta loja não expôe produtos no site" Else Response.Write "&nbsp;<a href=""redir.asp?id=" & rs("id") & """ target=""_self"">Ver Ofertas desta loja&nbsp;</a>(" & rs("hits") & "&nbsp;cliques desde&nbsp;" & rs("added") & ")</font>" End If%></td>
</tr>
</table>

<% rs.MoveNext
Loop %>


Página 
<% For i = 1 To rs.PageCount
If i = cint(pag) Then
Response.Write i
Else
dep=request.querystring("dep")
Response.Write "<a href='" & request.servervariables("script_name") & "?dep="&dep&"&pagina=" & i & "'>" & i & "</a> "
End If

Next

rs.close
FechaConexao
Set rs = nothing 
end if
end if%>

Mais uma pergunta a título de curiosidade...o que é VBScript.Encode

Eu tava aki, nas minhas análises de códigos, olhando uns scripts baixados de um site americano e me deparei com esse tal de <%@ LANGUAGE = VBScript.Encode %>

O que é isso? para quer serve? não tem como fazer nada para mudar esses códigos?

<%=#@~^EwAAAA==j/dbW `JUYME#vF+!*lgUAAA==^#~@%>

QUE BICHO É ESSE????

[Reginaldo ASP]

Poe o critério no seu select:

Sql = "SELECT * FROM lojas WHERE departamento = "& dep &" AND pag_prod = 'S' ORDER BY nome_loja"

Assim ele só exibirá os pag_prod que tiver S

[Espartaco]

Apareceu uma mensagem de erro

Microsoft OLE DB Provider for ODBC Drivers error '80040e10' 

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1. 

/shopfacil/lojas.asp, line 71