cyberalexxx
-
Total de itens
2.500 -
Registro em
-
Última visita
Tudo que cyberalexxx postou
-
Poste o seu formulário pra gente dar uma olhada.
-
Que Bom que Funcionou!! Vou fechar o tópico então, qualquer coisa me manda PM que eu reabro o tópico. Abraços
-
O cnpj de uma filial não pode ser igual ao da matriz. A receita federal deixa os cnpj assim:
-
Modifiquei seu código da uma olha c da certo <%@Language="VBScript"%> <%Option Explicit Response.Expires = 0%> <html> <head> </head> <body> <table width="100%" border="1" align="center" cellpadding="0" cellspacing="10"> <tr> <%DIM FSO, strCaminho, strPrincipal, strArquivos, xx, conta, strArq, pagina, fim, anterior, proxima strCaminho = "/imag" pagina = Request.QueryString("p") if pagina = "" then pagina = 1 end if Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set strPrincipal = FSO.GetFolder(strCaminho) Set strArquivos = strprincipal.Files IF strArquivos.count=0 then fim = 1%> <td> Não existem imagens disponiveis </td> <% response.end end if xx=0 conta=3 FOR EACH strArq IN strArquivos xx = xx + 1 IF xx > ((pagina-1)*9) and xx < ((pagina*9)+1) then if conta=0 then response.write "</tr><tr>" conta=3 end if if strArq.name="Thumbs.db" then else%> <td> <a href="imag/<%=strArq.name%>"><img src="imagm/<%=strArq.name%>"></a> </td> <%end if conta=conta-1 end if NEXT %> </tr> </table> <%if fim = "" then anterior = pagina - 1 proxima = pagina + 1 if anterior <> 0 then%> <a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>" onMouseOver="window.status='Página <%=anterior%>';return true" onMouseOut="window.status='';return true">Anterior</a><% end if%> |   Página: <%=pagina%> |   <a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>" onMouseOver="window.status='Página <%=proxima%>';return true" onMouseOut="window.status='';return true">Próxima</a><% end if%> <body> </html>
-
Entendeu a lógica que eu passei?? qualquer coisa posta ai!!
-
Nunca vi algo parecido, Caso não queira usar o arquivo texto temporário você via ter que exibir as fotos usando contadores dentro da pasta e usando comparações para exibir ou não, tipo se pagina = 4, exibir quando o contador for de (((pagina-1)*9)+1) ou seja 28 até (pagina*9) ou seja 36
-
Cara!! O que vou propor é meio maluco mais c não pintar nenhuma solução legal de repente serve?!?! já que você esta usando FSO você poderia poderia criar um arquivo texto com os dados dos arquivos. e depois criar um recordset com base no arquivo texto e usar paginação. entendeu??
-
Na verdade o request.serverVariables("remote_addr") pega o IP do client e não do servidor
-
quando voce listar a categoria voce tera que fazer um select count mais ou menos assim: SELECT COUNT(*) FROM tb_tb_subcategorias WHERE b_categoria = categoria listada
-
não tem a linha de erro??
-
Aki na minha região (pois há diferença de R$ entre estados) Paraná esse sistema implantado estaria entre 300 e 500, dependendo do potencial do projeto que ele estaria incluido.
-
Isso na verdade é um erro na definição do cursor quando você cria o RecordSet, deixe desta forma que ai o RecordCount funciona.
-
já usou jmail antes?? e funcionou?? os dados do smtp e porta estão corretos??
-
Veja se esta lógica lhe ajuda: Deve haver um link para o usuario clicar do tipo: indique esta foto, que redirecionara para a pagina indique.asp Neste link coloque assim: indique.asp?foto=www.urldafoto.com.br depois na pagina indique recupere esse arquivo: foto = request.form("foto") depois é só usar a variavel foto para exibir o link da foto. entendeu?? é isso q você quer??
-
Varias vezes já discutimos sobre livros neste forum e a grande maioria dos membros do forum relatou que nunca usou nenhum livro para aprender ASP. Faça uma busca no forum para ver os outros tópicos.
-
De uma verificada no valor da session, através de response.write
-
geralmente o mismatch ocorre com tipo de dados incompativeis. Poste a linha q ta dando erro.
-
Valeu, to mais ou menos dentro então, o problema é que o mercado é totalmente "prostituido", o q faz com q as vezes você não consiga receber aquilo que seu trabalho merece. Pelo jeito, vou ter que fechar em 2.000 (entrada 1000 + entrega 1000) e manutençao de 100. Com relação a Bancos, clientes, Fornecedores o cliente foi informado da importância de tais modulos integrados, mais prefere investir nesses módulos apenas futuramente. Obrigado novamente e T +
-
Aproveitando que o assunto é preço, também estou com duvida para passar um orçamento. O sistema é para uma loja de calçados e será da seguinte forma: 1 - Cadastro de produtos (estoque) 1.1 - Relatórios de estoque: compras no periodo, saldo de estoque, listagem de estoque de segurança, produtos que necessitam de novas compras, etc. 2 - Sistema de Vendas, dando baixa automática no estoque e gerando informações para fluxo de caixa(contas a receber) 2.1 - Relatórios de Vendas: Fechamento de caixa do perído, fluxo de recebimentos, estatisticas de vendas (produtos mais vendidos, numeração mais vendida, etc) 3 - Cadastro de clientes e histórico do mesmo 4 - Mala direta (via email) Tudo isso com controle de usuário por nível de acesso. Quanto Vale?? Pretendo receber pelo sistema e fechar um contrato de manutençao de 1 ano com recebto mensal.
-
Em ultimo caso, tente redirecinar para a pagina asp usando javascript ou via html mesmo, olha aqui: Index.html <head> <META HTTP-EQUIV="Refresh" CONTENT="0; URL= index.asp"> </head>
-
Aderindo a galera, também nunca usei ASPemail. Mais já tentou separando os destinatarios por ; (ponto e virgula)
-
Fiz meio na loucura, mais não custa tentar: var_categoria = Request.form("f_categoria") var_tipo = Request.form("f_tipo") var_local = Request.form("f_local") Response.Expires = 0 Const intPageSize = 20 If Request.Querystring = "" then intCurrentPage = 1 Else intCurrentPage = CInt(Request.Querystring("CurrentPage")) Select Case Request.Querystring("Submit") Case "Previous" intCurrentPage = intCurrentPage -1 Case "Next" intCurrentPage = intCurrentPage +1 End Select End If Set exe = Server.CreateObject("ADODB.Recordset") exe.CursorLocation = adUseClient exe.CursorType = adOpenStatic exe.CacheSize = intPageSize sql = "SELECT * FROM imoveis " e = false onde = false precisae = false if var_tipo <> "todos" then if e = false then sql = sql & "WHERE tipo='" & var_tipo & "' " onde = true end if end if if var_local <> "todos" then if onde = false then sql = sql & "WHERE bairro='" & var_local & "' " onde = true else sql = sql & "and bairro='" & var_local & "' " end if end if if categoria <> "todos" then if onde = false then sql = sql & "WHERE categoria='" & categoria & "' " else sql = sql & "and categoria='" & categoria & "' " end if end if sql = sql & "ORDER BY bairro, preço DESC " exe.Open sql, banco, , , adCmdText
-
Posta o código ai!!!
-
O q você quiz fazer exatamente quando usou a função len() aqui: if var_categoria= len("todos") AND var_tipo = len("todos") AND var_local = len("todos") then
-
também acho q através da função MOD é a melhor maneira, você tambem pode testar o valor da variavel caso seja > 4 nova linha e variavel=1