Ir para conteúdo
Fórum Script Brasil

TIO CARNEGO

Membros
  • Total de itens

    59
  • Registro em

  • Última visita

Tudo que TIO CARNEGO postou

  1. FUI BURRO NA RESPOSTA ANTERIOR 'Todos os direitos reservados ao autor 'Autor: TIO CARNEGO 'Email: tiocarnego@gmail.com 'Data: 12/03/2005 'Descrição: Função que arredonda um número para mais Function APMdoTIOCARNEGO(num) 'Arredonda Para Mais If num>0 Then APMdoTIOCARNEGO= Fix(num) + 1 ElseIf num<0 Then APMdoTIOCARNEGO= Fix(num) - 1 Else APMdoTIOCARNEGO=0 End If End Function --------------------
  2. <% 'Todos os direitos reservados ao autor 'Autor: TIO CARNEGO 'Email: tiocarnego@gmail.com 'Data: 12/03/2005 'Descrição: Função que arredonda um número para mais Function APMdoTIOCARNEGO(num) 'Arredonda Para Mais If num>0 Then APMdoTIOCARNEGO= CInt(num) + 1 Else APMdoTIOCARNEGO= CInt(num) End If End Function %>
  3. TIO CARNEGO

    Interação Com Flash

    Se você quiser um exemplo usando ASP, XML e Componentes 2.0 do Flash manda um emeio pra mim. tiocarnego@gmail.com
  4. Verifique se a caixa onde "Autenticacao do windows integrada" está marcada, na mesma tela onde você habilita o acesso anônimo.
  5. TIO CARNEGO

    Select + Refresh

    Toma: <!--#include file="conexoes.asp" --> <%IdCategoria=CInt(Request.Form("IdCategoria"))%> <html> <body><form method="post"> <select name="IdCategoria" onChange="this.form.submit()"> <%Set rs=Con.Execute("SELECT * FROM Categorias") While Not rs.Eof%> <option<%If IdCategoria=rs("IdCategoria") Then Response.Write " selected "%>value="<%=rs("IdCategoria")%>"><%=rs("Categoria")%></option> <%rs.MoveNext Wend%> </select></form> </body> </html>
  6. TIO CARNEGO

    Listar Fotos

    Dani, <table border="1"> <tr bordercolor="red"> <td><img src="ver_fota.asp?<%=rs("CampoIdentificador")%>" > <td><%= rs("nome")%></td> <td><%= rs("matricula")%></td> </table> Arquivo ver_fota.asp <% Set Con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=blablablablba;" Set rs=Con.Execute("SELECT foto FROM tabela WHERE CampoIdentificador="&Request.QueryString) If Not rs.Eof Then Response.BinaryWrite rs("foto") %> beleza?
  7. TIO CARNEGO

    Formatnumber

    Alguém tem algo contra FormatCurrency(Valor) ?
  8. Informe + detalhes das condições em que você está acessando a página. Está acessando da máquina onde está hospedada a plicação? A autenticação do windows está sendo exigida para o recurso? O sistema de arquivos é FAT32 os NTFS? Qual a conta usada para acesso anônimo e o mesmo está ativado? ... ...
×
×
  • Criar Novo...