Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
  • Total de itens

    2.500
  • Registro em

  • Última visita

Posts postados por cyberalexxx

  1. não me lembro de uma função vbscript que faça isso exatamente entaum criei uma:

    <%
    function formata(valor)
       formata = formatnumber(Cint(left(valor,(len(valor)-2)))+(Cint(right(valor,2))/100),2)
    end function
    
    a=671969
    response.write formata(a)
    %>
    

  2. Pessoal tenho uma dúvida... instalei o IIS tah funcionando perfeitamente... só tem 1 porém... eu estou tentando enviar um email pelo componente cdonts e não funciona... eu não recebi o email, mas acho que é algum problema com o SMTP, mas alguém aí sabe como eu faço para configurar o SMTP para enviar hotmail ou yahoo ou gmail ou qualquer outro mail??? Um tuto??!?

    Valeu

    No caso do hotmail, você verificou c o email não entrou na pasta de lixo eletronico???

  3. rode esse script que ira lhe mostar todas as variaveis de servidor e seu resultado ai voce ve c alguma lhe atende:

    <style type='text/css'>
    tr { background-color: #E4EAF2; font-color: #465584; font-family:Arial; font-size:12 }
    </style>
    <table>
    <%FOR EACH ITEM IN Request.ServerVariables 
    Response.write "<tr><td>" & ITEM & "<td>" & Request.ServerVariables(ITEM) & "<tr>"
    NEXT%>
    </table>

  4. faça uma comparação com o dado do banco se for pra marcar o checkbox é só colocar um checked:

    fica mais ou menos assim:

    response.write"<input type='checkbox' name='nome' value="
    if condição=marcar then ' aki voce testa o campo 
       response.write"'ON' checked>"
    else
       response.write"'off'>"
    end if
    

  5. tenta isso:

    <%
    
    Set Conn = Server.CreateObject("AdoDb.Connection") 
    Conn.provider="Microsoft.Jet.OLEDB.4.0" 
    Conn.connectionstring=Server.Mappath("users/userbd.mdb") 
    Conn.open
    
    login = Request.Form("txt_login")
    senha = Request.Form("txt_senha") 
    
    SQL = "select * from usuarios where login = '"&login&"' and senha = '"&senha&"' "
    Set RS = Conn.Execute(SQL)
    
    If RS.EOF Then
       Response.Write "usuário ou senha inválida!"
       Response.End
    else
       if rs("login") <> login then
          Response.Write "usuário ou senha inválida!"
          Response.End
       end if
       if rs("senha") <> senha then
          Response.Write "usuário ou senha inválida!"
          Response.End
       end if
    end if
    session("nivel_acesso") = RS("nivel") 'Session
    Response.Redirect "adm.asp" 'página restrita
    %> 

  6. Não recomendo voce usar paginação com getrows caso o BD seja grande, pois voce não tera nenhum ganho de performance, pois voce estara criando um array muito grande para usar apenas 10 registros, para paginação recomendo usar as propriedades do recordset.

×
×
  • Criar Novo...