Ir para conteúdo
Fórum CódigoFonte.net

luciano2002

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Sobre luciano2002

  • Data de Nascimento 03/14/1972

Profile Information

  • Gender
    Male
  • Location
    brasil
  • Interests
    asp
  1. luciano2002

    Erro includ

    Estou tentando pegar includ mais não consigo achar o erro, se alguém puder me ajudar, agradeço muito Cód: <% cat= Request.QueryString("cat") %> <!--#include file="BANNERS/"&" "&cat&" "&"/Banner_C.asp"--> ele dia que não encontrou a pastas BANNERS tentei assim tambem , mais não funciona <!--#include file="BANNERS/<%=cat%>/Banner_C.asp" --> a pagina: receitas.asp fica na raiz a qual eu coloco o cod. (Banner_C.asp) fica na pasta (BANNERS) Obrigado
  2. luciano2002

    Tabela Pitagórica, em ASP com access

    Olá pessoal estive afastado mais to de volta p/ variar com duvidas rss. (primeiramente e um Bom Ano a todos) bom alguem tem uma ideia de como posso fazer isso?, já procurei de mais na internet mais não encontrei nada. bom tenho um banco de dados com tabela (letra) e (valor) cada letra tem um valor como na tabela abaixo Ex: A=1 B=2 C=3 D=4 assim por diante então a pessoa digita o nome dela e o sistema teria que somar tipo assim: LUCIANO e MARIA CLARA 3339156= 30 = 3 e 41991 33191 = 41 = 5 Quando a soma dos numeros for maior que 20 soma e reduz o numero entre 1 e 20 tem um link abaixo que encontrei mais foi feito em php, eu não manjo nada de php, mais seria exatamente isso modelo em php http://www.profcardy...-pitagorica.php alguem teria alguma ideia de como fazer isso?? algum link que explique a formula sei la rss. ja tentei com replace --------- Function formatar(nome_A) nome_A = replace(nome_A,"A","1") nome_A = replace(nome_A,"B","2") nome_A = replace(nome_A,"C","3") nome_A = replace(nome_A,"D","4") formatar=nome_A end function ----------- mais não consegui. Agradeço a todos Feliz 2015
  3. luciano2002

    gravar session

    Olá algum poderia me dar uma luz faço uma consulta no access retorna 5 registros, preciso gravar em uma session com fazer ? estou fazendo assim, só que só grava o primeiro registro <% cnpath="DBQ=" & Server.MapPath("dados/banco.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource Set RS = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = conn RS.open "SELECT top 5 * FROM carta order by Rnd(Int(Now()*[id_carta])-Now()*[id_carta]); " Set fso = CreateObject("Scripting.FileSystemObject") Set textStreamObject = fso.CreateTextFile(Server.Mappath("log.txt"),true,false) textStreamObject.WriteLine (rs("titulo") ) textStreamObject.Close %> <% if not rs.eof then while not rs.eof Set textStreamObject = Nothing Set fso = Nothing %> titulo: <%=rs("titulo")%><br> <% rs.Movenext wend end if %> Obrigado
  4. luciano2002

    conflito com DISTINCT. help

    Olá pessoal estou a dias tentando resolver esta clausula alguem poderia me ajudar preciso que lista 12 registro aleatorios sem repeti-los (banco access) então fiz assim funciona uma beleza mais repete: PESQUISAR="SELECT TOP 12 * FROM tabela order by Rnd(Int(Now()*[iD])-Now()*[iD]) " entao fiz assim, funciona mais não dá aleatorio: PESQUISAR="SELECT distinct TOP 8 * FROM tabela " o distinct não roda com order by alguem teria uma sugestão. muito obrigado mesmo Luciano
×