cyberalexxx

Voce usa mysql??? se sim da pra formatar direto no select: SELECT date_format(campodata, '%d/%m/%Y') AS data_br from tabela

Aki na empresa usamos o Firebird com um sistema em Delphi realmente o banco é muito bom!! é uma cópia do Interbase na verdade. O problema é suporte nos servidores.

Na verdade da maneira que eu coloquei ele pega os 10 primeiros, para pegar os 10 ultimos tem que usar ORDER BY campo DESC, a construção do LIMIT é a seguinte: LIMIT 0, 10 (0=numero do registro, ele começa de 0 e voce pode colocar qualquer outro registro, já o 10 é a qtdade de registros q você quer)

a lógica é essa: variavel=Fso.readline response.write left(variavel,6) & "<br>" response.write mid(variavel,7,3) & "<br>" response.write mid(variavel,10,6) & "<br>" ai é so dar sequencia.

tentou colocar o endereço do host na parte em vermelho:

beleza!! q bom q deu certo!! to fechando o tópico obs: Quando perguntei o q você tomou, não tava pensando em drogas, mais sim um coquetel tipo Gasolina de avião com RedBull isso sim te da asas []'s

voce pode estar tentando gravar letras em um campo numérico ou não esta colocando ' (aspas simples) nos campos texto . de um response.write na intrução sql antes de executa-la pra ver c ta tudo ok

Aconselho a mudança sim. Da pra testar localmente na boa, você só vai precisar baixar o Driver(adodb) do Mysql.

Nunca ouvi falar deste ADABA, e como estamos falando de ASP geralmente usado em sistemas Web, que servidores dão suporte para este banco ADABA??

ok! fechado!!

O melhor seria o MS SQLServer (muito caro) com relação ao access X mysql: o MySQL é muito, mais muito superior, recomendo o access somente para aplicações pequenas.

Nossa véio!!! o q q você tomou antes de fazer isso eu quero um pouco Ta muito louco, dei uma organizada, da uma olhada: <% corpo = "<table width='416' border='0' cellspacing='0' cellpadding='0'><tr><td><img src='imagens/logo_rinos.gif' width='157' height='100'></td></tr><tr><td><table width='416' border='0' cellspacing='0' cellpadding='0'><tr><td width='10'>&nbsp;</td><td><font face='tahoma' size='2' color='#000000'>" & trim(request("variasp_corpo")) & "</font></td><td width='10'>&nbsp;</td></tr></table></td></tr><tr><td><img src='imagens/titulospaginasfront/eventos_tt.gif' width='416' height='28'></td></tr><tr><td>" SQL="SELECT TOP 4 * FROM noticias ORDER BY id DESC" SET RS = Server.CreateObject("AdoDB.RecordSet") RS.Open SQL,Conexao,3,3 if not rs.eof then noticia = rs.getrows() end if rs.close set rs = nothing if isarray(noticia) then FOR I = 0 to UBOUND(noticia,2) corpo = corpo & "<table width='416' border='0' cellspacing='0' cellpadding='0'><tr>" if NOT noticia(3,i) = empty then corpo = corpo & "<td width='100' height='74' align='right' valign='top'><a href='evento.asp?id=" & noticia(0,i) & "'><img src='" & caminho_noticias & noticia(3,i) "' width='90' height='68' border='0'></a></td><td width='10'>&nbsp;</td>" end if corpo = corpo & "<td valign='top'><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='20' valign='top'><font face='tahoma' size='2' color='#000000'><b><a href='evento.asp?id=" & noticia(0,i) & "'>" & noticia(1,i) & "</a></b></font></td></tr><tr><td><font face='tahoma' size='2' color='#000000'>" if len(noticia(2,i)) > 150 then texto = left(noticia(2,i),150) procura = instrrev(texto,chr(32)) corpo = corpo & left(texto,cint(procura) - 1) & "..." else corpo = corpo & noticia(2,i) end if corpo = corpo & "</font></td></tr></table></td><td width='10'>&nbsp;</td></tr></table><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td align='center'><img src='backoffice/editor/imagens/tracejado.gif' width='400' height='1'></td></tr></table>" NEXT END IF corpo = corpo & "</td></tr><tr><td align='center'><img src='imagens/rinoerino_c.gif' width='128' height='20'></td></tr></table>" %>

tenta assim: set rs=conn.execute("select*from Boletim where data= '"&mrdia&"/"&mrmes&"'")

esse erro é que ele não acho nada na sua consulta. Quanto ao ano, voce não deve informa-lo tambem na busca???

Quando o tópico esta sem nenhuma resposta eu simplesmente deleto, quando alguém já respondeu ao tópico, em respeito a pessoa que respondeu eu não deleto mais edito o conteudo da mensagem.

tenta assim: <% set rs = Conn.Execute("Select * from Tabela1")%>

voce vai ter que tratar a informação via sistema antes de executar a query, olha aki um exemplo em ASP. pesq=variavelprincipal pesq = replace(pesq,"a","[a,á,à,ã,â,ä,A]") pesq = replace(pesq,"e","[e,é,è,ê,ë,E]") pesq = replace(pesq,"i","[i,í,ì,î,ï,I]") pesq = replace(pesq,"o","[o,ó,ò,õ,ô,ö,O]") pesq = replace(pesq,"u","[u,ú,ù,û,ü,U]") pesq = replace(pesq,"c","[c,ç]") agora quando executo a query não uso mais a variavel principal e sim a variavel pesq que já foi tratada.

Voce esta dando um Response.write(rshome) para que isso??? pois Rshome é o nome do seu objeto (recordset), deve ser por isso q da erro.

Como desconheço o seu nivel de conhecimento, vou postar um script meu da intranet da minha empresa que faz o seguinte, pega dados de uma tabela, caso tenha email cadastrado ele envia um email usando o componente CDONTS para a pessoa anexando um arquivo padrão e depois grava as informações ref. a envio em outra tabela, da uma olhada c você entende a lógica: <% ' -------------------------------------------------------------- ' Enviauser.asp - V.1.0 - 09/08/2004 ' Envia mensagens para representantes do atendente ' Script by: Cyberalexxx ' -------------------------------------------------------------- set conrep=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath("/intranet/database/rep.mdb") caminho=server.mappath("/intranet/uploads") conrep.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath set rsrep=conrep.execute("select * from REP where atendente = '"&session("user")&"' and len(email)>0") %> <% data=now() X=0 do while not rsrep.eof remetente="cobranca@empresa.com.br" assunto="Relatório de Titulos em Aberto" dest=rsrep.fields("email") arquivo=caminho&"\"&rsrep.fields("codigo") + ".doc" Set FSO = Server.CreateObject("Scripting.FileSystemObject") if FSO.FileExists(arquivo)=true then mensagem = "Segue anexo relatório de titulos em aberto." & vbcrlf _ & "O anexo deve ser aberto com o Microsoft Word" & vbcrlf _ & "Atenciosamente" & vbcrlf _ &"" & vbcrlf _ & session("user") & vbcrlf _ & now() fromEmail = remetente toEmail = dest Emailsubject = assunto sMessage = mensagem Email=session("user") Set ObjMail = CreateObject("CDONTS.NewMail") Call ObjMail.AttachFile(arquivo) ObjMail.to = toEmail ObjMail.from = fromEmail ObjMail.subject = Emailsubject ObjMail.body = mensagem ObjMail.send Set eObjMail = nothing set conmsg=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath("/intranet/database/mensagens.mdb") conmsg.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath SQL = "INSERT INTO mensagens(Data,Atendente,Para,copia,assunto,anexo,mensagem)VALUES(" SQL = SQL & "'" & Data & "'," SQL = SQL & "'" & session("user") & "'," SQL = SQL & "'" & toEmail & "'," SQL = SQL & "'" & ccEmail & "'," SQL = SQL & "'" & Emailsubject & "'," SQL = SQL & "'" & arquivo & "'," SQL = SQL & "'" & mensagem & "')" set rsmsg=conmsg.execute(SQL) X=X+1 end if if FSO.FileExists(arquivo)=false then response.write ("arquivo inexistente: ") & arquivo & "<br>" end if rsrep.MoveNext LOOP response.write(X) response.write(" Mensagens enviadas com sucesso") %>

dentro de seu sistema deixe a palavra calculo assim: c[a,á,à,â,ã]lculo assim ele pegar a palavra com qualquer tipo de acento. como trabalho em asp fiz uma função que da um replace em todas os vogais antes de realizar a busca.

acredito que seja simples: sempre que o usuário acessar voce grava o ip e a data de acesso em uma tabela. depois é so fazer um select count dos registros com determinado IP em determinado período.

eu uso o mysql query browser e ele tem a opção: File > Export ResultSet > Export as Excel File

pega direto o resultado da divisão: SELECT (cumprido.valor/meta.valor) as percentual, meta.central from cumprido, meta where cumprido.central=meta.central a idéia é essa, agora é so adaptar aos nomes de seus campos/tabelas. []'s

Eu estou usando o seguinte selo em alguns de meus sites: http://www.tempoagora.com.br/selosomar.php

voce tem que converter a data para o formato do mysql: <% data=now() data1=split(data,"/") datahora=split(data1(2),chr(32)) datamysql = datahora(0)&"-"&data1(1)&"-"&data1(0)&chr(32)&datahora(1) response.write datamysql %>