mariofdf

adapte ao que voce precisa <% <% Diretorio = left(Server.MapPath("index.asp"), (len(Server.MapPath("index.asp"))-9)) 'declara variaveis Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta, vetor() TamanhoPagina = 27 If Request.QueryString("Linha") = "" then Linha = 0 else Linha = Request.QueryString("Linha") end If TotalArquivos = ---'tem que declarar CodCategoria = ---'tem que declarar DiretorioCategoria = ---'tem que declarar NomeCategoria = ---'tem que declarar 'inicia o objeto e define qual a NomeCategoria a ser listada Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") Set ObjPasta = ObjFso.GetFolder(Diretorio & DiretorioCategoria) 'conta quantos arquivos tem no DiretorioCategoria e coloca dentro de uma array redim Vetor(TotalArquivos) For Each ObjArq in ObjPasta.Files arquivo = arquivo + 1 vetor(arquivo) = ObjArq.Name next Response.Write "<font id='resumo'><b>" Response.Write "Galeria: " & NomeCategoria & "</b> / " Response.Write "<font id='resumo'>" Response.Write "total de fotos:" &TotalArquivos Response.Write "<br><br>" 'mosta fotos Response.Write "<table align=left width='780'>" Response.Write "<tr>" Response.Write "<td align=center>" Response.Write "<table><tr><td id=tabela-principal>" If TamanhoPagina > TotalArquivos then Pagina = TotalArquivos else LinhaAnterior = Linha - TamanhoPagina Pagina = Linha + TamanhoPagina end If While Linha <> Pagina AND Linha <> Arquivo Linha = Linha + 1 if vetor(Linha) <> "WS_FTP.LOG" then if session("autenticado") = true then Response.Write "<a href='cartao-formulario.asp?diretoriocategoria="&diretoriocategoria&"&codcategoria="&codcategoria&"&foto="&vetor(Linha)&"'>" else Response.Write "<a href='cartao-formulario.asp?diretoriocategoria="&diretoriocategoria&"&codcategoria="&codcategoria&"&foto="&vetor(Linha)&"'>" end if Response.Write "<img src="& diretoriocategoria &"/"& vetor(Linha) &" width=90 height=130 border=0 hspace=20 vspace=5></a>&nbsp;&nbsp;" end if wend Response.Write "</td></tr></table><br>" Response.Write "" Response.Write "</td></tr></table><br>" If Pagina > TamanhoPagina then Response.Write "<a href='pesquisa-acao.asp?diretoriocategoria="&DiretorioCategoria&"&nomecategoria="& NomeCategoria &"&TotalArquivos="& TotalArquivos &"&Linha="&LinhaAnterior&"'>Anterior |</a>" end if If Linha < Arquivo then Response.Write "<a href='pesquisa-acao.asp?diretoriocategoria="&DiretorioCategoria&"&nomecategoria="&NomeCategoria&"&TotalArquivos="&TotalArquivos&"&Linha="&Linha&"'>Proxima</a>" end if 'limpa a memoria Set ObjPasta = Nothing Set ObjArq = Nothing Set ObjSubPasta = Nothing Set ObjFso = Nothing %> %>

AONDE VOCE QUER CHEGAR NA VERDADE, É FAZER UMA PAGINAÇÃO DOS OBJETOS ENCONTRADOS?

eu faço assim. Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") Set ObjPasta = ObjFso.GetFolder(caminho da pasta) 'conta quantos arquivos tem no Diretorio e coloca dentro de uma array redim Vetor(TotalArquivos) For Each ObjArq in ObjPasta.Files arquivo = arquivo + 1 vetor(arquivo) = ObjArq.Name next Temvarias formas que voce pode puxar a quantia de arquivos agora, tanto pelo array quanto pelo cont direto...

Resolução <% if session("nivel_acesso") = "" Then Response.Write ("Você não está logado!") Response.End End If %> ou <% logado = session("nivel_acesso") if logado = "" Then Response.Write ("Você não está logado!") Response.End End If %>

tente assim: <% 'Sistema Desenvolvido por Rafael Marciano dim db, rs set db = Server.CreateObject("ADODB.Connection") db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb") set rs = Server.CreateObject("ADODB.recordset") aluno = Request.form("aluno") turma = Request.form("turma") disc = Request.form("disc") prova1b = request.form("prova1b") prova2b = request.form("prova2b") examespecial = request.form("examespecial") sql = "UPDATE connotas SET NomeAluno = "&aluno&", Prova1bim = "&prova1b&", Prova2bim = "&prova2b&", Examespecial = "&examespecial&" WHERE Turma = "&Turma&" AND AbrevDisc = '"&disc&"'" rs.open sql, db response.redirect "testeraro.asp" rs.close db.close set rs = nothing set db = nothing %>

tente assim. <% variavel=request.Severvariables("remote_ADDR") response.write (variavel) %> ou mais aconselhavel <% variavel=request.Severvariables("remote_ADDR") %> <%=variavel%>

Não sei se é bem isto que voce quer mas para chamar paginas em asp se usa includes. <!--#include file="vitrine.asp"-->

facim <%if session("user")="" then%> <!--(i)--Login--> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="765" id="AutoNumber2" height="160"> <tr> <td align="center" valign="top" width="140" height="160"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="140" height="160"> <param name="movie" value="swfs/login.swf"> <param name="quality" value="High"> <param name="_cx" value="3704"> <param name="_cy" value="4233"> <param name="FlashVars" value> <param name="Src" value="swfs/login.swf"> <param name="WMode" value="Window"> <param name="Play" value="0"> <param name="Loop" value="-1"> <param name="SAlign" value> <param name="Menu" value="-1"> <param name="Base" value> <param name="AllowScriptAccess" value="always"> <param name="Scale" value="ShowAll"> <param name="DeviceFont" value="0"> <param name="EmbedMovie" value="0"> <param name="BGColor" value> <param name="SWRemote" value> <param name="MovieData" value> <embed src="swfs/login.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="139" height="160"></embed></object> </td> <!--(f)--Login--> <td align="center" valign="top" width="486" height="160"> <!--(i)--Chat--> <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" WIDTH="486" HEIGHT="160" id="Chat" ALIGN="center"> <param name="movie" VALUE="swfs/Chat.swf"> <param name="quality" VALUE="High"> <param name="devicefont" VALUE="-1"> <param name="bgcolor" VALUE="FFFFFF"> <param name="_cx" value="12859"> <param name="_cy" value="4233"> <param name="Src" value="swfs/Chat.swf"> <param name="WMode" value="Window"> <param name="Play" value="0"> <param name="Loop" value="-1"> <param name="Menu" value="-1"> <param name="AllowScriptAccess" value="always"> <param name="Scale" value="ShowAll"> <param name="EmbedMovie" value="0"> <EMBED src="swfs/Chat.swf" quality="High" devicefont="true" bgcolor=#FFFFFF WIDTH="486" HEIGHT="160" NAME="Chat" ALIGN="Center" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED></OBJECT> </td> <!--(f)--Chat--> <!--(i)--Caixa--Utilidades--> <td align="center" valign="top" width="139" height="160"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="139" height="160"> <param name="movie" value="swfs/utilidades.swf"> <param name="quality" value="high"> <embed src="swfs/utilidades.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="139" height="160"></embed></object> </td> </td> </tr> <!--(f)--Caixa--Utilidades--> </table> <%else%> <!--(f)--Mostra--Se--Logado--> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="765" id="AutoNumber2" height="160"> <tr> <td align="left" valign="bottom" width="140" height="160" background="imgs/login_fundo.jpg"> <!--(i)--Painel--De--Controle--> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="140" height="130"> <param name="movie" value="swfs/login_painel_de_controle.swf"> <param name="quality" value="High"> <param name="_cx" value="3704"> <param name="_cy" value="3440"> <param name="FlashVars" value> <param name="Src" value="swfs/login_painel_de_controle.swf"> <param name="WMode" value="Window"> <param name="Play" value="0"> <param name="Loop" value="-1"> <param name="SAlign" value> <param name="Menu" value="-1"> <param name="Base" value> <param name="AllowScriptAccess" value="always"> <param name="Scale" value="ShowAll"> <param name="DeviceFont" value="0"> <param name="EmbedMovie" value="0"> <param name="BGColor" value> <param name="SWRemote" value> <param name="MovieData" value> <embed src="swfs/login_painel_de_controle.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="139" height="160"></embed></object> </td> <!--(f)--Painel--De--Controle--> <!--(i)--Chat--> <td align="center" valign="top" width="486" height="160"> <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" WIDTH="486" HEIGHT="160" id="Chat" ALIGN="center"> <param name="movie" VALUE="swfs/Chat.swf"> <param name="quality" VALUE="High"> <param name="devicefont" VALUE="-1"> <param name="bgcolor" VALUE="FFFFFF"> <param name="_cx" value="12859"> <param name="_cy" value="4233"> <param name="Src" value="swfs/Chat.swf"> <param name="WMode" value="Window"> <param name="Play" value="0"> <param name="Loop" value="-1"> <param name="Menu" value="-1"> <param name="AllowScriptAccess" value="always"> <param name="Scale" value="ShowAll"> <param name="EmbedMovie" value="0"> <EMBED src="swfs/Chat.swf" quality="High" devicefont="true" bgcolor=#FFFFFF WIDTH="486" HEIGHT="160" NAME="Chat" ALIGN="Center" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED></OBJECT> </td> <!--(f)--Chat--> <!--(i)--Caixa--Utilidades--> <td align="center" valign="top" width="139" height="160"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="139" height="160"> <param name="movie" value="swfs/utilidades.swf"> <param name="quality" value="high"> <embed src="swfs/utilidades.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="139" height="160"></embed></object> </td> </td> </tr> </table> <!--(f)--Caixa--Utilidades--> <!--(f)--Mostra--Se--Logado--> <%end if%>

E ai GUTO recebeu minha PM, era aquilo que voce queria?

Ai Toninho , Parabéns pela data, e só não se esqueça que voce esta um ano mais perto de Morrer Boa Sorte... e aproveite o maximo que voce puder... E ficar uma semana sem dar uns beijinhos, fala serio, eu não fico nem um dia...

Centi ironia de sua parte Guto, mas deixa pra la... Sobre o desafio. E se tiver mais de uma brexa, voce quer que apareça a 1 ou todas as brexas,,, Acho que vou ser o 1º novamente...

Se eu não me engano o dundas, acho que é este o nome, ele é free, de uma pesquisada pela palavra que voce deve encontrar algo, se não de um toque... Fui

Este ta mole mole em, que pena que não poderei participar pois tenho um monte de projetos, estou afogado no serviço... Mas o guto já resolveu praticamente tudo num tutorial feito a um tempo atraz é so dar uma pesquisadinha, eu ate tinha montado um codigo com a linha de raciocinio dele... e ai dipreza não é isso que ele quer não... de uma lidinha melhor la... T+++

Ta ate ai tudo bem , mas o problema ta na hora de saber das vendas feitas pelo afiliado... Aquele sistema todo, se alguém tiver sugestões...

crie no seu bd um compo Sim/Não e coloque padrão Não, dai atualiza para sim via comando sql para a equete que quer que apareça e quando for escolher em sua função sql coloque por exemplo sql=... were aparecer = "sim"

Ola a todos... Gostaria da ajuda dos meus amigos e ate dos inimigos ( se tiver alguém aqui que me considere um) para que eu possa iniciar um novo projeto. Vou começar a montar uma loja virtual, para um sistema de cosmeticos, e esta loja tem que ter um sistema de afiliados... Gostaria de receber sugestões da logica de construção de tal projeto, a loja já tenho uma ideia pois já criei varios sistemas de venda mas o sistema de afiliação não tenho ideia... Se alguém puder me ajudar ficarei grato...

Ae Kadu. Podemos trocar radios, eu te mando a minha e voce me manda a sua , para trocarmos experiencias...

ai longdongjunior valeu pela proposta vou entrar em contato com voce, estou terminando já minha radio, so queria mesmo sugestões, mas se ninguém mais tiver pode feixar o tópico...

Ai colega Urso é o seguinte, no php quando se uso assim, http://www.meusite.com.br/?class=1.0&menu=asp como no seu exemplo todo processamento é feito na primeira pagina ou seja primeira pagina padrão do site, que na maior parte em servidor php é default.php, esta pagina processa e chama o que voce pede, eu testei isso em asp e no meu is funcionol mas no meu servidor deu erro de parametro, mas dai acho que é esquema de configuração, fiz um bd rapidinho e fiz um menu que chamava as paginas, dai no meu index fis um sql que captura a query e busca as info no BD... Acho que me compliquei todo para explicar, se voce não endendeu fala que explico melhor....

Ai dark0 acho melhor voce pegar mais leve no proximo desafio, o pessoal esta com dificuldades, tente um mais facinho tipo, vamos ver quem consegue mostrar a data de hoje em ASP , porque mais facil do que este desafio que o dark propos é só este que eu estou propondo, sera que é dificuldade ou preguiça de pensar...

ninguém tem sugestões,,,

Sou programador ASP, e gostaria de saber como faço para montar uma radio On-line...

Por Nada ,,, Precisando estamos ai. So não esqueça de pedir para Fechar o tópico...

pagina parceiros.asp <% 'Inicia o banco Set Connexao = Server.CreateObject("ADODB.Connection") ConnString = "DBQ=" & server.mappath("Caminho de seu BD") Connexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & ConnString %> <% if request.form("acao") <> "" then 'declara variavel... id_user = Request.Form("usuario") acao = Request.Form("acao") end if %> <p>--:: Seleciona os usuários ::--</p> <form action="parceiros.asp" method="post"> Usuario: <select name="usuario" size="1"> <% SQL = "SELECT * FROM parceiros ORDER BY nome" Set RC = Connexao.Execute(SQL) Do While NOT RC.EOF %> <option value="<%=RC("id")%>"><%=RC("nome")%></option> <% RC.MoveNext Loop %> </select> <input type="submit" name="acao" value="mostrar"> </form> <%If acao = "mostrar" then%> <% SQL = "SELECT * FROM parceiros WHERE id = "& id_user &"" Set RS = Connexao.Execute(SQL) %> <%If RS.EOF Then%> Usuario Não Encontrado... <%else%> <div align="left"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="400" id="AutoNumber1"> <tr> <td width="73">Nome:</td> <td width="327"><%=RS("nome")%></td> </tr> <tr> <td width="73">Descrição:</td> <td width="327"><%=RS("desc")%></td> </tr> <tr> <td width="73">Site:</td> <td width="327"><a target="_blank" href="<%=RS("http")%>"><%=RS("http")%></a></td> </tr> </table> </div> <%end if%> <%end if%> Eu nem testei , se der algum problema fala ai...

me mande os dados que solicitei por PM que te posto a solução...