cyberalexxx

Pensando melhor sobre o que se pretende fazer nessa tópico, além do método que eu utilizei, da pra fazer também via instruções SQL, como SELECT COUNT(tabela.campo_dia) e SELECT SUM(tabela.campo_qtdade) WHERE data=datadesejada

Na documentação do Dundas, tem como pegar o nome do arquivo, não te passo agora pois não tenho ele aki em casa, só no pc do trampo.

Ué!! já tem 2 exemplos ai. não é isso q você quer?? explica ai.

Não entendi muito bem não, mais v c é isso: Do while not RecordSet.Eof variavel = variavel & ", " & RecordSet.fields("campo") RecordSet.MoveNext loop response.write variavel

Olha o que você precisa fazer e diga onde esta a duvida. 1 - listar os registros e cliar um link passando dados dados via querystring para abrir os dados completos em outra pagina 2 - criar a pagina que exibira os detalhes, recuperando os dados passados pela primeira pagina através de request.querystring("variavel"). 3 - fazer um select usando Where para no banco pegar apenas o registro desejado. 4 - agora é so mostrar os dados.

Quando quiser usar as tags de formatação use a tag quote aos invés da tag code.

Não entendi nada. voce tem outro post com o mesmo nome "codigo", caso tenha postado errado, me avise que eu junto os tópicos. e também apaguei aquele tópico duplicado.

Mesmo tendo sido injustiçado, pois fui eu que fiz o primeiro script que é "simplesmente um luxo" Resolvi ajudar (brincadeira) deixa assim: <% set conexao=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath("vendas.mdb") conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath SQL="select * from vendas order by data" set rs = conexao.execute(sql) dim datas datas=array() %> <table bordercolor="#111111" bgcolor="#C0C0C0"> <tr> <td bgcolor="#000080"><b> <font face="Verdana" size="2" color="#66CCFF">Nome</font></td> <% dim data dim quant do while not Rs.Eof if data <> Rs.Fields("data") then data = Rs.Fields("data")%> <td bgcolor="#000080"> <font face="Verdana" size="2" color="#66CCFF"><%=Rs.Fields("data")%></font></td> <% redim preserve datas(Ubound(datas)+1) datas(Ubound(datas)) = Rs.Fields("data") end if Rs.MoveNext Loop SQL2="select * from vendas order by nome, data" set rs2 = conexao.execute(SQL2) dim nome dim n_vend(31) dim n_prod(31) do while not rs2.eof if nome <> Rs2.Fields("nome") then for i = 0 to Ubound(datas) n_vend(i) = 0 n_prod(i) = 0 next nome = Rs2.Fields("nome") %> <tr> <td bgcolor="#000080"><b> <font face="Verdana" size="2" color="#66CCFF"><%=Rs2.fields("Nome")%></font></td><% end if for i = 0 to Ubound(datas) if CStr(datas(i)) = CStr(Rs2.Fields("data")) then n_vend(i) = n_vend(i) + 1 n_prod(i) = n_prod(i) + Rs2.Fields("quant") end if next Rs2.MoveNext if not rs2.EOF then if nome <> Rs2.Fields("nome") then for i = 0 to Ubound(datas)%> <td bgcolor="#000080"> <font face="Verdana" size="2" color="#66CCFF">nº vendas:<%=n_vend(i)&"-Qtde:"&n_prod(i)%></font></td><% next end if end if if rs2.EOF then for i = 0 to Ubound(datas)%> <td bgcolor="#000080"> <font face="Verdana" size="2" color="#66CCFF">nº vendas:<%=n_vend(i)&"-Qtde:"&n_prod(i)%></font></td><% next end if loop %> é so adaptar o meu script aos campos de sua tabela. Abraços

A função include apenas insere um bloco de comandos, não permitindo um pré processamento no servidor de tal bloco (o que seria via querystring)

Não entendi como você esta usando Request.QueryString("id") com um formulário enviado pelo método post.

Caso o campo nomerep seja alfanumérico o select deve estar assim: strQuery = "SELECT * FROM pedido WHERE nomerep='" & strBusca & "'"

Esse esse ocorre geralmente quando voce tenta ler um dado fora do vetor. Só com essas linhas fica impossivel dizer o q esta acontecendo especificamente.

Cara, acho q qualquer medida q você adotar dentro dessa sua lógica pode ser driblada. O ideal em termos de segurança no seu caso é usar um host que permita a proteção de diretórios por senha.

Concordo com vc!! O importante é aprender e compartilhar conhecimento. T +

Um exemplo: <%Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set principal = FSO.GetFolder("c:\intranet") ' coloque a pasta principal Set arquivos = principal.Files 'criando vetor dim nome nome=array() For each arq in arquivos redim preserve nome(Ubound(nome)+1) nome(Ubound(nome)) = arq.name next 'listando arquivos for x = 0 to Ubound(nome) response.write nome(x) & "<br>" next %>

Bom como fui eu que fiz o código deixa eu explicar e desculpa a demora é que esta semana, c der pra mim pra mim aparecer aki 5 minutos por dia, vais ser muito, to completamente enrolado. mais vamos la: ids = split(request.form("apagar"),",") Seguinte: No seu formulário aparecem varios checkbox com o nome apagar, sendo assim se você der um response.write na variavel request.form("apagar") ela vai ter mais de uma valor expresso assim idx,idy,idz,idetc o que o split faz é criar um vetor Ids, fazendo a quebra pela virgula ficando o resultado assim: quanto ao:FOR EACH Idselecionado IN idstraduzindo: Para cada Idselecionado(essa variavel é você que da o nome) no vetor Ids(vetor esse criado através do split e que armazena os dados das ids selecionadas). Sendo assim a variavel Idselecionado teria o valor da id selecionada no form, que depois é excluida através da instrução SQL que usa WHERE id='" & Idselecionado & "'" Ajudei um pouco??? acho q não, não tenho uma didática muito boa, mais qqer duvida volta ai

1 - Qual o nome do campo?? 2 - no update você usa request.form e request.querystring

da uma olhada se é isso: 1 - O usuario se cadastra 2 - Voce envia uma email pro usuario, informando que ele deve clicar no link de confirmação caso deseje fazer parte da sua lista de contatos, coloque um link tipo www.dominio.com.br/confirmação.asp?email=email@dousuario.com.br&id=999&confirma=true 3 - com base nestes querystrings atualize o cadastro dele, confirmando que o mesmo quer fazer parte da lista. 4 - dispare um email a partir do Cdonts para seu email informando o email dele como remetente. é isso

Ai depende do tipo de transmissão q voce quer: para transmissão ao tempo real (ao vivo), voce vai precisar do windows media encoder. já para exibir arquivos em streaming, é so converter os arquivos para o formato desejado (asf) e deixa-lo disponivel no site. Quanto ao logo eu nunca fiz.

Cara, é melhor postar o código todo, pois assim não ta dando pra entender muito bem a lógica.

Voce que chamar a pagina direto, sem clicar no link, é isso?? Se for é assim: <% pagina = Request.QueryString("pagina") If pagina = "Teste" then response.redirect("http://localhost/arqs_fotos/galerias.asp?dir=ops&prv=y") End if %>

Eu faria assim: <input name="apagar" type="checkbox" id="apagar" value="<%=rs("id")%>"> depois <% ids = split(request.form("apagar"),",") FOR EACH Idselecionado IN ids SQL="DELETE * From noticias WHERE id='" & Idselecionado & "'" RS.Open SQL,Conexao NEXT %>

Faz assim: <% pagina = Request.QueryString("pagina") If pagina = "Teste" then%> <a href="http://localhost/arqs_fotos/galerias.asp?dir=ops&prv=y"> http://localhost/arqs_fotos/galerias.asp?dir=ops&amp;prv=y</a> <% End if %>

beleza!! Vou fechar o tópico. Qualquer coisa avisa por PM que eu abro novamente

Juntei os 2 tópicos, pois você já tinho aberto essa discussão antes. Entre em contato com os servidores que lhe foram passados, que eles lhe instruem como registrar o dominio, o host que eu mais uso para clientes aqui da minha região ele mesmo presta esse serviço.