Ir para conteúdo
Fórum Script Brasil

Marcos-rj

Membros
  • Total de itens

    638
  • Registro em

  • Última visita

Tudo que Marcos-rj postou

  1. Marcos-rj

    Janela Pop-up

    Para pop-up uso esse codigo. java script:window.open('pagina.asp','Codigo','toolbar=no,location=no,status=yes,menubar=no,resizable=no,scrollbars=no,width=440,height=365');void(0);" bem simples!
  2. Bom galera, p/ quem precisa. segue ai o exemplo p/ calculo de juros compostos. é so colocar o valor, nº de pacelas, nº de parcelas com juros e o juros a.m. já montei numa tabela, so copiar e colar. <% 'calcula o valor de cada parcela, e em quantas vezes o produto poderá ser parcelado e com quantas parcelas 'possui juros, e quantas não possui. x = "2.550,00" 'Valor do Produto y = "12" 'Nº total de Parcelas cjuros = "0,05" 'Juros Cobrado a.m juros = "6" -1 +1 'Nº de Parcela C/ Juros %> <table border="0" width="200"cellspacing="1" cellpadding="0" bgcolor="#F2F2F2"> <tr> <td width="197" align="center" colspan="3"> <p align="left"><b><font face="Verdana" size="2">Parcelamento</font></b></td> </tr> <% For i = 1 To y If (i-1) = Round(y/2,0) Then End If %> <tr> <td width="38"><font face="Verdana" size="2"><%=i%> x</font></td> <td width="90"><font face="Verdana" size="2"><%If juros > i Or juros = 0 Then valor = FormatCurrency(Round(x/i,1),2) else valor = FormatCurrency(x * (cjuros * (1+cjuros)^ i) / ((1+cjuros)^ i -1))%><%=valor%></font></td> <td width="67"><font face="Verdana" size="2"><%If juros > i Or juros = 0 Then juro = "sem juros" Else juro = "<font color='#FF0000'>com juros</font>"%><%=juro%></font></td> </tr> <%Next%> </table>
  3. Marcos-rj

    Juros Compostos

    valeu, vou colocar a função p/ calculo de juros compostos com parcelamento mensal.
  4. Marcos-rj

    Update! Está Certo?

    Está dando alguma mensagem de erro?
  5. Marcos-rj

    Juros Compostos

    alguém ai tem a formula p/ calculo de juros compostos? já tentei de varias maneiras mas não rola! tipo: pv = "550,00" 'valor i = "0.10" 'juros n = "6" 'parcelas pmt = pv * i (1+i)^ n / (1+i)^ n -1 mas também não rola! :blink: valeu. conse gui resolver. pv = "10,00" i = "0,10" n = "2" pmt = pv * (i * (1+i)^ n) / ((1+i)^ n -1)
  6. Marcos-rj

    Verificando Error

    Dá uma olhada neste link. http://www.aspbrasil.com.br/conteudo/detal...p;Secao=ARTIGOS
  7. Marcos-rj

    Usando Fso

    Não tenho certeza, mas no FSO você tem que colocar o caminho físico do arquivo. e você esta colocando: caminho = "default.asp" tenta o que o quereta colocou.
  8. da uma conferida, geralmente quando copia e cola o nome é mudado.
  9. http://scriptbrasil.com.br/forum/index.php?showtopic=96995#
  10. Verificou se os campos do formulario estão com o nome certos?
  11. tem que entrar em contato com a visa. o boleto você pode pegar o do banco que vai usar e confihgurar na sua loja. e tem que solicitar no seu banco.
  12. Marcos-rj

    Estrutura Ecommerce

    da um aprocurada pela virtuastore, é uma loja em asp gratis. a url do grupo: http://br.groups.yahoo.com/group/virtuastore/
  13. Eu uso assim e funciona: <script> //Verificar se a resolução vídeo for > 800 X 600 if(screen.width > 800) { document.write ('<div id=floater style="position:absolute; left:790px; top:5px">') document.write ('<form name="frm"><iframe name="topo" id="topo" src="barra_lateral.asp" framespacing="0" frameborder="no" scrolling="no" width="180" height="700" allowtransparency="true" marginwidth="0" marginheight="0">') document.write ('</iframe></form>') document.write ('</div>'); } </SCRIPT>
  14. Marcos-rj

    Bof E Eof

    tenta assim: <!--#include file="conecta_banco.asp"--> <% set listar = server.CreateObject("ADODB.Recordset") listar.open "Select * from socios where mostrar='sim' order by nome asc",conexao <%dim conta%> <table border = 0 align="center" cellpadding="2" cellspacing="2" bordercolor="#000000"> <%If listar.EOF or listar.BOF Then%> NENHUM RESGISTRO ENCONTRADO! <% else do while not listar.eof%> <%for conta = 1 to contador step 1%> <% 'aqui vem a tabela com os dados, o for serve para dividir em linhas e colunas.%> ..... ..... <%if conta mod 2 = 0 then%> <tr> <%end if%> <%listar.movenext%><%next%><%loop%> </table> </body> </html> <%end if end if%>
  15. da uma conferida: http://scriptbrasil.com.br/forum/index.php...st&p=410993
  16. O arquivo global.asa você tem que salvar na raiz do site. segue um código que uso p/ mostrar os usuarios online. usuarios_online.asp <% Sub LogNewUser Dim strUserList Dim intUserStart, intUserEnd Dim strUser Dim strDate strUserList = Application("UserList") If Instr(1, strUserList, Session.SessionID) > 0 Then Application.Lock intUserStart = Instr(1, strUserList, Session.SessionID) intUserEnd = Instr(intUserStart, strUserList, "|") strUser = Mid(strUserList, intUserStart, intUserEnd - intUserStart) strUserList = Replace(strUserList, strUser, Session.SessionID & ":" & Now()) Application("UserList") = strUserList Application.UnLock Else Application.Lock Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1 Application("UserList") = Application("UserList") & Session.SessionID & ":" & Now() & "|" Application.UnLock End If End Sub 'Cleans up the user count so that the script can read the user details from it... Sub ActiveUserCleanup Dim ix Dim intUsers Dim strUserList Dim aActiveUsers Dim intActiveUserCleanupTime Dim intActiveUserTimeout intActiveUserCleanupTime = 1 'In minutes, how often should the UserList be cleaned up. intActiveUserTimeout = 20 'In minutes, how long before a User is considered Inactive and is deleted from UserList If Application("UserList") = "" Then Exit Sub If DateDiff("n", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then Application.Lock Application("ActiveUsersLastCleanup") = Now() Application.Unlock intUsers = 0 strUserList = Application("UserList") strUserList = Left(strUserList, Len(strUserList) - 1) aActiveUsers = Split(strUserList, "|") For ix = 0 To UBound(aActiveUsers) If DateDiff("n", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then aActiveUsers(ix) = "XXXX" Else intUsers = intUsers + 1 End If Next strUserList = Join(aActiveUsers, "|") & "|" strUserList = Replace(strUserList, "XXXX|", "") Application.Lock Application("UserList") = strUserList Application("ActiveUsers") = intUsers Application.UnLock End If End Sub ' Shows the amount of users surfing the site Call LogNewUser() Call ActiveUserCleanup() Response.Write Application("ActiveUsers") %> e no local onde você quiser exibir o nº de usuarios coloca: <!--#include file="usuarios_online.asp"-->
  17. Marcos-rj

    Rodar Ms-dos No Servidor

    Oi, vou postar um código que achei na net. Prompt de comando + ASP Public Function Ping(IP) Dim WshShell, oExec Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("ping " & IP) [COLOR=#008800]'<-Comando do DOS [/COLOR] If Not oExec.StdOut.AtEndOfStream Then sText = sText & oExec.StdOut.ReadAll() End If Response.write(sText) End Function [COLOR=#008800]'Chama a função passando o ip ou nome do computador [/COLOR] Call ping("127.0.0.1") um exemplo de pingar um host ou servidor em uma rede através de uma página ASP. acho que em cima disso ai você pode fazer o que está querendo.
  18. O próprio google oferece uma ferramenta p/ criação de sitemap. que é o Sitemap Generator http://www.google.com.br/support/webmaster...amp;ctx=sibling
  19. Não tenho certeza mas no Aspmail acho que para autenticar você precisa colocar: mailer.UserName = USUARIO mailer.Password = SENHA no usuario acho que tem que ser o email completo com a extenção
  20. A conexão com o banco está certa? já tive esse problema, não conseguia fazer o Select e voltava p/ página de login.
  21. Isso ai, faz um select count e usa um IF p/ ver se já chegou a 10 e desabilita a opção de inserir.
  22. Vou te dar uma idéia por que você não faz diferente, pega o que vem depois da / ? tipo: option explicit response.addHeader "pragma", "no-cache" response.cacheControl="private" response.expires=0 link = lcase(request.servervariables("HTTP_HOST")) link = right(link,instr(strreverse(link),"/") - 1) select case link case "adm" response.redirect "pasta1/adm" Case Else response.redirect "pasta1/" end select montei agora , testa ai e vê se rola!
  23. eu uso assim com ASP e funciona normal. StringdeConexao = "Driver={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=bancodedados; UID=root; PWD=" Set abredb = Server.CreateObject("ADODB.Connection") abredb.Open StringdeConexao
  24. Marcos-rj

    Erro em loja virtual

    o que v fez na totalecommerce ficou muito maneiro. so uma pergunta. você tirou os codigos que enviam informação ao criador da loja? senão vai tomar prejuízo.
×
×
  • Criar Novo...