Ja Ke Ninguem Ker Ajudar

[crucifier]

bom...ninguém quis me ajudar no caso foxplay/subcategorias...

então vou te que tirar dinhero do bolso mesmo porq só assim pra me darem atenção...

o negocio é fazer uma única página...onde seja +/- isso:

http://www.foxplay.com.br/galeria_galeras.htm

só que se a pessoa não kizer cadastrar a subcategoria td bem...vai aparece do mesmo jeito...

preciso disso o mais breve possivel..e me mandem um e-mail pra dizer o preço:

pedro@centropaulista.com.br

vo tenta conversa ca empresa pra paga..se não aceitarem eu vo te que tira do meu proprio bolso..então sejam generosos..

[fantasma]

Eu não entendi o que você quer você pode explicar melhor???

[crucifier]

então...eu coloquei a explicação no outro tópico onde eu pedia ajuda...mas eu ponho aki de novo...vo copia e cola:

..para entender melhor precisa ver as imagens:

http://www.foxplay.com.br/admin/duvida.jpg

http://www.foxplay.com.br/admin/duvida2.jpg

vou explicar novamente..

na hora do cadastro...não é obrigatorio cadastrar a subcategoria da foto...

então beleza..a pessoa foi la cadastro a foto "x" "y" "w" e "z" na categoria dedo...

dentro da categoria dedo existe uma subcategoria chamado "unha"..beleza..

daih a pessoa cadastro a imagem "x" e "y" na subcategoria unha...e a imagem "z" e "W" ela não selecionou nenhuma subcategoria no cadastro...ou seja...a foto "z" ficou sem subcategoria..

daih beleza..tem a pagina pra exibi as categorias...essa pagina esta com o nome "categorias.asp"...nessa pagina a pessoa clica na categoria desejada e aparece as fotos..quando ela clica vai para a pagina "galeria_fotos.asp"

a pagina galeria_fotos.asp tera que ficar como nas figuras abaixo...

http://www.foxplay.com.br/admin/pagina1.gif

daih na paginacao...quando a pessoa clicar na pagina 2 ficara assim:

http://www.foxplay.com.br/admin/pagina2.gif

qualquer duvida pergunte

[crucifier]

não precisa mais...consigui aki

e desculpem por ser meio que grossero no outro tópico=\

tava moh nervoso por causa de prazo e tal..desculpem-me

[fantasma]

COLOQUE O COD PARA QUE POSSAMOS VER.......!!!!!!!!!!!!!!!!!

[crucifier]

na verdade eu não consigui...eu fiz de um outro jeito...coloquei pra exibir as subcategorias caso tivesse...caso tivesse só fotos...exibia só fotos...caso houvesse sub-categorias e fotos apareceria fotos em cima e subcategorias embaixo...

mas eu passo o codigo..o codigo que ficou é esse(vou postar o codigo inteiro...):

<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr> 
                        <td><a href="galeria.asp"><img src="images/tit_galeria.gif" alt="Clique aqui para ver todas as categorias dispon&iacute;veis" width="178" height="52" border="0"></a></td>
                      </tr>
                      <tr> 
                        <td valign="top"> <div align="center"><strong> 
                            <%
      	
  	if request.querystring("id_categoria") = "" then
  	response.redirect "galeria.asp"
  	end if
  	
  	
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.ConnectionString = strcon
ObjConn.CursorLocation   = 3 '<- Cursor de conex&atilde;o
ObjConn.Open '<- Abre a conex&atilde;o



'Estou utilizando aqui o driver MySQL ODBC 3.51, mas funciona com qualquer um viu!!
'Conex&atilde;o com o banco de dados
'-----------------------------------------------------------
'Cria&ccedil;&atilde;o de RecordSet
Set ObjRecSet = Server.CreateObject("ADODB.RecordSet")
'-----------------------------------------------------------
'Conex&atilde;o Ativa
Set ObjRecSet.ActiveConnection = ObjConn
'-----------------------------------------------------------
'Select na tabela do banco
if not request.QueryString("id_sub") = "" then
StrQuery = "Select Fotos.*, subcategoria.* From Fotos, subcategoria Where Fotos.id_categoria= "& request.querystring("id_categoria")
StrQuery = StrQuery & " AND Fotos.id_subcat=" & request.querystring("id_sub") 
StrQuery = StrQuery & " AND Fotos.id_subcat = subcategoria.id_sub Order by Fotos.ID desc"                              	
else
StrQuery = "Select * From Fotos Where id_categoria= "& request.querystring("id_categoria") & " AND id_subcat = 0"
end if
'-----------------------------------------------------------
ObjRecSet.CursorType = 3 'Tipo do cursor do RecordSet
ObjRecSet.PageSize   = 12 'Qtde de registros a serem exibidos
ObjRecSet.Open StrQuery '<- Executa o Select


	Set Objcat = Server.CreateObject("ADODB.RecordSet")
'-----------------------------------------------------------
'Conex&atilde;o Ativa
Set Objcat.ActiveConnection = ObjConn       
        
Strcat = "Select * From categoria Where id_categoria= "& request.querystring("id_categoria")

Objcat.CursorType = 3 'Tipo do cursor do RecordSet
Objcat.PageSize   = 12 'Qtde de registros a serem exibidos
Objcat.Open Strcat '<- Executa o Select

%>
                            <% 
      	
      	if request.querystring("id_sub") = "" then
      	response.write "&raquo; " & objcat("nome")
      	else
      	response.write "<a href=" & request.servervariables("script_name") &"?id_categoria=" & request.querystring("id_categoria") & "><font color=#DD8500>&raquo; " & objcat("nome") & "</font></a><font color=#DD8500> - " & ObjRecSet("subcategoria") & "</font>"
      	end if
      	%></font>
                            </strong><br>
                            <%
'-----------------------------------------------------------
'Controles de Pagina&ccedil;&atilde;o
pag = Request.QueryString("pagina")

If pag = "" Then
	pag = 1
End if

'-----------------------------------------------------------
colunas = 4 'N&uacute;mero de Colunas a serem apresentadas
If ObjRecSet.Eof Then
If objcat.eof then
	Response.Write("<b>N&atilde;o Existem Dados cadastrados!</b>")
	else
	response.write ""
	end if
	Else
  ObjRecSet.AbsolutePage = pag
  Response.Write "<br><table border=0 cellspacing=5 width=546 cellpadding=0 >" & Chr(13)
  i = 0
  Do While ((NOT ObjRecSet.EOF)  AND (i < ObjRecSet.PageSize))
    	
  	Response.Write " <tr>" & Chr(13)
  	For x = 1 to colunas 'N&uacute;mero de Colunas
    If ObjRecSet.EOF = True then
      id_categoria   = ""
      id     = ""
      miniatura   = ""
    	imagem = "<td align=center valign=middle><img src=""images/spacer.gif"" border=0 width=95 height=63 /></td>" & Chr(13)
    	Else
      id_categoria   = ObjRecSet("id_categoria")
      id     = ObjRecSet("id")
      miniatura   = ObjRecSet("miniatura")
      urlsis = "admin/"
      imagem = "<td align=center valign=middle height=""70""><a href=javascript:; onclick=""MM_openBrWindow('exibe_foto.asp?id=" & id & "','foto','width=400,height=300')"" border=0><img src=" & urlsis&miniatura&" border=0 width=95 height=63 /></a></td>"
      ObjRecSet.MoveNext
      i = i + 1
    End If
    Response.Write imagem & Chr(13)
  	Next
  	Response.Write "</tr>" & Chr(13)
  Loop
  Response.Write "</table>" & Chr(13)
'-----------------------------------------------------------
'--------------------------------------------------------------------------------------------------------
   TotalPaginas = objrecset.PageCount
  If Pag > 1 then
        'não estamos no comeco, mostra o link de Anterior
                  voltar = "<a href=galeria_fotos.asp?id_categoria="& request.querystring("id_categoria") &"&pagina=" & pag - 1 & "&id_sub="& request.querystring("id_sub") &">&laquo; Voltar</a>"

     Else

voltar = ""

     End If


     If CInt(Pag) <> CInt(TotalPaginas) then

                  avancar = "<a href=galeria_fotos.asp?id_categoria="& request.querystring("id_categoria") &"&pagina=" & pag + 1 & "&id_sub="& request.querystring("id_sub") &">Avançar &raquo;</a>"
else
avancar = ""
     End If
'Numero de p&aacute;ginas (Pagina&ccedil;&atilde;o) cria&ccedil;&atilde;o de links para a navega&ccedil;&atilde;o
  With Response
  	.Write("<br><table width=""500"" align=""center"" cellspacing=""0"" cellpadding=""2"" border=""0"">")
  	.Write("<tr><td width=""250"" align=right>"&voltar&"</td><td width=""250"" align=""right"">"&avancar&"</td></tr></table>")& Vbcrlf
  End With
    end if
%>
                            <br>
                            <br>
                          </div></td>
                      </tr>
                      <tr> 
                        <td valign="top"> 
                          <table width="90%"  border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#333333">
                            <%
Set objrs = Server.CreateObject("ADODB.RecordSet")
'-----------------------------------------------------------
'Conex&atilde;o Ativa
Set objrs.ActiveConnection = ObjConn
'-----------------------------------------------------------
'Select na tabela do banco
sqlstmt2 = "Select * From Subcategoria Where id_categoria="& request.querystring("id_categoria") & " Order by subcategoria ASC"
'-----------------------------------------------------------
objrs.CursorType = 3 'Tipo do cursor do RecordSet
objrs.Open sqlstmt2 '<- Executa o Select
do while not objrs.eof
%>
                            <tr> 
                              <td height="20" bgcolor="#FEDA5C" > <strong><font color="#000000">&nbsp;&nbsp;&nbsp;&raquo;</font></strong> 
                                <%
        if ObjRecSet.eof = true then
        	response.write ""
        else
        	response.write "<a href=" & request.servervariables("script_name") & "?id_categoria=" & request.querystring("id_categoria") &  	"&id_sub=" & objrs("id_sub") & ">" & objrs("subcategoria") & "</a>"
        end if
        %>
                              </td>
                            </tr>
                            <%objrs.movenext
      	loop
      	%>
                          </table>
                          <br> </td>
                      </tr>
                      <tr>
                        <td valign="top">&nbsp;</td>
                      </tr>
                    </table>