Ir para conteúdo
Fórum Script Brasil

Thiago Airold Perez

Membros
  • Total de itens

    53
  • Registro em

  • Última visita

Tudo que Thiago Airold Perez postou

  1. Existe a possibilidade, se está certo que os dados para acesso a ftp estão correto e ainda não consegue o acesso, acredito ser melhor entrar em contato com o servidor para estar disponibilizando uma senha que você consiga o acesso externo!
  2. Você esta dentro de uma rede que tem um firewall ? Pois se estiver provavelmente está bloqueado. Se sim, precisa ser feito o desbloqueio de acesso ftp para o seu user.
  3. Exato, com include precisa ser usado o caminho físico. Caso for um html pode estar incluindo com iframe agora se for funções só se estiver no mesmo servidor e com o include.
  4. Para usar o include você precisa do endereço fisico da página que quer inserir e não o link. ex. <!--#include file="pasta/arquivo.asp"--> ou <!--#include file="../arquivo.asp"--> No caso de ser uma pasta anterior Espero ter ajudado!
  5. Thiago Airold Perez

    csv

    Tente colocar a variavel que manda o valor como uma string com a função Cstr() ex. variavel = 0011 variavel = CStr(variavel) variavel fica igual a "0011", ou seja, passou para String Falow
  6. Você usa qual software para ftp ? Tenta instalar um outro do que você usa Abaixo alguns bons. SmartFTP - http://baixaki.ig.com.br/download/SmartFTP.htm Filezilla - http://baixaki.ig.com.br/download/FileZilla.htm
  7. Ola, Tente fazer desta forma! where data >= '"&request.Form("dtinicio")&" 00:00:00""' and data <='"&request.Form("dtfinal")& " 23:59:59""' No lugar do request use sua data, mantenha a hora para identificar que é logo no começo do dia ou no final! Qualquer duvida posta ae!
  8. com o formatnumber você consegue fazer isto da uma olhada como ficou o código Function divi(n1,n2,n3) if isnumeric(n1) And isnumeric(n2) then if n2 > 0 then iReturn = (n1 - n2) * 2 * 100 / n3 else iReturn = 0 end if else iReturn = 0 end if divi = formatNumber(iReturn,3) End Function Caso não der certo posta ai falow!!
  9. Estamos falando de quantas linhas nesta tabela ?
  10. É preciso o cd do windows pois ele copia alguns arquivos do cd para sua maquina para que rode o iis perfeitamente
  11. Amigo tem um link bom explicando passo a passo como instalar o iis neste link abaixo http://www.facaumsite.com.br/leitura.asp?i...mp;codigo1=0002 Se não der certo pode ter algo errado com seu windows!! Falow, espero ter ajudado
  12. Tem uma função que ordena o array por ordem alfabética tente usar para ver se resolve seu problema ficaria assim FUNCTION SortArray(varArray) For i = UBound(varArray) - 1 To 1 Step - 1 MaxVal = varArray(i) MaxIndex = i For j = 0 To i If varArray(j) > MaxVal Then MaxVal = varArray(j) MaxIndex = j End If Next If MaxIndex < i Then varArray(MaxIndex) = varArray(i) varArray(i) = MaxVal End If Next END FUNCTION estado = "Minas Gerais,São Paulo,São Paulo,São Paulo,Rio de Janeiro,Rio de Janeiro,Rio de Janeiro,São Paulo,São Paulo,Rio de Janeiro,Rio de Janeiro,Rio de Janeiro" Searchlocal = Split(estado, ",") antiga = Searchlocal(0) SortArray Searchlocal For i = 0 to UBound(Searchlocal) nova = Searchlocal(i) if antiga=nova then qtds=qtds+1 else if qtds<>0 then response.write antiga&" ("&qtds&")<br>" qtds="1" end if end if antiga = Searchlocal(i) next
  13. A função está correta Agora precisa conferir na hora que chama a função está vindo corretamente! <script LANGUAGE="JavaScript"> <!-- function AbreJanela(arquivo) { alert(arquivo); //window.open(arquivo,'nenWin','resizable=no,toolbar=no,status=no,menubar=no,scrollbars=yes, personalbar=no,width=650,height=250,top=80,left=0"'); } // --> </script> Insira um alert na função e confira se está vindo correto a página que quer abrir!
  14. Thiago Airold Perez

    Senha invalida

    Se você copiou simplesmente os arquivos e copiou em outro pc deveria funcionar. Da uma olhada se o banco de dados não está somente como leitura. Pode ser uma opção! Falow
  15. Ola ... Tente fazer conforme o modelo abaixo. Caso não de certo poste ai o que da de errado que eu vejo. NumPerPage = 20 If Request.QueryString("pag") = "" then CurPage = 1 Else CurPage = Request.QueryString("pag") End If Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.CacheSize = NumPerPage SQL="select * from tabela" set rs = conn.execute(SQL) registros = "" if not rs.eof then rs.PageSize = NumPerPage TotalPages = rs.PageCount rs.AbsolutePage = CurPage else registros = "negado" end if
  16. Thiago Airold Perez

    busca ASP

    Ola, Você já criou um campo que tem os usuários que podem acessar está busca?
  17. Ola Juliana, Fica um pouco dificil te ajudar pelas informações que você mostra. O que deu para ver é que você monta 2 variaveis com o mesmo valor nome = mySmartUpload.form("codigo") codigo=mySmartUpload.form("codigo") Verifique todos os nomes para ver se está coerente caso não consiga poste o código inteiro para que eu ou alguém possa te ajudar melhor ! abraço!
  18. Thiago Airold Perez

    CDOSYS Yahoo

    Opa gnomo beleza? Eu recomendo você entrar em contato com o servidor onde está hospedado o seu cadastro e se informar se existe outro componente de envio de e-mails e trocar para ver se usuarios do yahoo passam a receber os e-mails!
  19. os unicos obrigatórios são Mail.From = "eu@dominio.com.br" - aqui você coloca o email do seu site (remetente) Mail.AddAddress "destinatario@dominio.com.br", "Nome do Destinatário" - destinatário (para quem vai o e-mail)
  20. Respondendo as perguntas Mail.From = "eu@dominio.com.br" - aqui você coloca o email do seu site (remetente) Mail.MailFrom = "eu@meuDominio.com.br" - aqui você coloca o email de retorno caso quem recebeu for responder Mail.FromName = "Eu" - Seu nome Mail.AddAddress "destinatario@dominio.com.br", "Nome do Destinatário" - destinatário (para quem vai o e-mail) 'Assunto da mensagem - Pode colocar o que quiser no assunto 'Com Copia - sim só no caso de querer alguém com cópia Casou houver mais alguma dúvida é só postar ai .. falow
  21. Ola, Neste caso você precisa entender mais de flash do que do asp em si. primeiro você precisa se informar como passar os parametros do flash para uma página em asp. Depois dos parametros enviados no asp você consegue receber os valores e conforme um exemplo abaixo A Locaweb disponibiliza o componente ASPEmail em todos em todos os servidores Windows 2003. Abaixo disponibilizamos um exemplo simples desenvolvido em ASP: (o parâmetro "Mail.Host" não deve ser alterado): <% Set Mail = Server.CreateObject("Persits.MailSender") 'Servidor de SMTP Mail.Host = "localhost" 'O endereço deve ser um e-mail existente no domínio de sua revenda. Mail.From = "eu@dominio.com.br" 'Configura e-mail de retorno Mail.MailFrom = "eu@meuDominio.com.br" 'Remetente Mail.FromName = "Eu" 'Destinatario Mail.AddAddress "destinatario@dominio.com.br", "Nome do Destinatário" 'Com Copia Mail.AddCC "cc1@dominio.com.br", "Nome" Mail.AddCC "cc2@dominio.com.br", "Nome" Mail.AddCC "cc3@dominio.com.br", "Nome" 'Assunto da mensagem Mail.Subject = "TESTE DO ASPEMAIL" 'Corpo da mensagem Mail.Body = "Olá!" & Chr(13) & Chr(10) & "Isso é apenas um teste do componente ASPEmail" On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If %> Obs: No final do script é necessário atribuir o valor "Nothing" para os objetos criados. Para o exemplo acima ficaria assim: <%Set Mail = Nothing%>
  22. Ata entendi Você já tentou fazer isto ! if not rs_estoque_ofertas.eof then estoque_atual_ofertas=rs_estoque_ofertas("estoque") else estoque_atual_ofertas = 0 end if
  23. Ola desta forma abaixo você consegue pegar o penultimo ou outros registro da tabela é só i colocando movenext ex abaixo Set listar = Server.CreateObject("ADODB.Recordset") sql = "Select * from circulares Order by id desc" listar.open sql, conex, 1,1 listar.movenext ' se colocar um só você sabe que é o penultimo listar.movenext ' se colocar 2 sabe que é o antepenultimo 'e assim por diante 'caso precise voltar um registro use listar.movelast é meio que uma gambi mas acho que resolve seu problema se não der ou você tem muitos registros você tem que montar um array para fazer isto!
  24. Tente fazer estas alterações <% '--------------Mostra Ofertas Set ofertas = Server.CreateObject("ADODB.Recordset") SQL = "SELECT top 2 * FROM produtos where idprod <> "&intProdID&" order by RND(INT(NOW*idprod)-NOW*idprod)" ofertas.Open SQL, abredb, 1, 3 %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p><b><%=strLg52%></b> <table align="center" border="0" cellspacing="0" cellpadding="5" width="100%" bordercolor="#003366"> <tr> <% n = 1 c = 2 Do while not ofertas.Eof '***** variaveis dentro do while para atualizar os valores produto = ofertas("idprod") intPrice = ofertas("preço") precitonx = formatnumber(intPrice,2) %> <td valign="bottom" align="center" height="128" width="50%"> <table width="100%" BORDER="0" CELLPADDING="2" CELLSPACING="0" style="border:1px solid #cccccc"> <tr> <td bgcolor=#ffffff> <table width=100% height="135" align=center cellpadding="1" cellspacing="1"> <tr> <td align="center" valign=center> <p align="left"><font style="font-size:11px;font-family:<%=fonte%>"><b><font color="000000"> <a href="produtos.asp?produto=<%=ofertas("idprod")%>" onMouseOut="window.status='';return true;" onMouseOver="window.status='+ Detalhes';return true;" style <%=fontebranca%>";text-decoration:none;"><IMG src="produtos/<%=ofertas("impeq")%>" alt='<%=ofertas("nome")%>' border=0 align="left" ></A></font></b></font><font color="000000" style="font-size:11px;font-family:<%=fonte%>"> </font><font style="font-size:11px;font-family:<%=fonte%>"><b><font color="000000"> <%=ofertas("nome")%></font></b></font><font color="000000" style="font-size:11px;font-family:<%=fonte%>"><b> <br><br> <font face="<%=fonte%>" style="font-size:11px;color:000000"><%=strLg37%> <br> <font face="<%=fonte%>" style="font-size:12px;color:cc0000"><b><%=strlgmoeda & " " & precitonx%></b></font><br><b><%=strLg28%></b></b> <% '*** Verifica se tem Estoque do Produto estoque_atual_ofertas="" set rs_estoque_ofertas = abredb.execute("SELECT estoque FROM estoque WHERE idproduto="&produto&";") if not rs_estoque_ofertas.eof then estoque_atual_ofertas=rs_estoque_ofertas("estoque") rs_estoque_ofertas.close set rs_estoque_ofertas = nothing %> <% 'esta linha havia códigos errados tente desta forma! if estoque_atual_ofertas > 0 then response.write rs_estoque_ofertas("estoque") else response.write "<font color=red>0</font>" end if %> </font></p> <p align="right"><font style="font-size:11px;font-family:<%=fonte%>"><a href="produtos.asp?produto=<%=ofertas("idprod")%>" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg30%>';return true;" style="color:#FFFFFF;text-decoration:none;"><img src=linguagens/portuguesbr/imagens/detalhes.gif width="78" height="32" border="0" align=absbottom></a></font><font><font color="000000"></font></font></p></td> </tr> </table> </table> </td> <% n = n + 1 ofertas.Movenext If n > c then response.write "</tr><tr>" n = 1 End If Loop %>
  25. Tente desta forma <table> <tr> <% count = 0 While Not RS.EOF %> <td> "resultado da busca" </td> <% count = count + 1 if count = 5 then response.write "</tr><tr>" end if rs.movenext wend %> </tr> </table> Espero ter ajudado!
×
×
  • Criar Novo...