Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    2.500

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por cyberalexxx

  2. Qual O Melhor Banco De Dados?

    em ASP

    Postado

    Alguém já esperimentou Firebird ? ... é ótimo.. muuito mais rápido que mysql , .. e é grátis biggrin.gif .

    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.

  3. Select Top

    em ASP

    Postado

    limit deu certo.....

    desse jeito ele pega sempre os ultimos não é? ??

    valeu moçada

    []'s

    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)

  7. Ajuda!

    em ASP

    Postado

    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

  8. Até Onde Um Sistema Em Asp Pode Ir?

    em ASP

    Postado

    As dicas estão ajudando bastant, agora... até hj eu só utilizei BD ACCESS, seria aconselhavel migrar para MYSQL para melhorar a performance?

    Nunca trabalhei com MYSQL localmente, integrado ao ISS, isso é possível?

    Vo procurar aki no fórum c tiverem umas dicas ficarei feliz em receber!

    VLW

    Aconselho a mudança sim.

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

  12. Cdonts + Comandos

    em ASP

    Postado

    Nossa véio!!! o q q você tomou antes de fazer isso smile.gif eu quero um pouco smile.gif

    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>"
%>

  15. Fora Spamers!

    em ASP

    Postado

    Pessoal esses anúncios de piramide é pura ladroagem. gnha quem cria a priirâmide em detrimento dos que estão na base. Se quiserem fazer isso, é crime, então criem suas próprias pirâmides (em outro lugar espero), mas não entrem nas já prontas senão vão ou perder dinheiro ou perder amigos. Ou até ambas as coisas.

    É que essas mensagens estão inundando este e outros fóruns do site e não parece bastante apenas "fechar" os tópicos deixando-os sem resposta.

    Ainda mais que numa pesquisa eles, mesmo fechados, continuam aparecendo, dai sugiro que os moderadores deem uma "queimada" no tópico antes de fechá-lo.

    Fui!

    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.

  16. Otima Função Para Conectar No Banco!

    em ASP

    Postado

    eu usei esse codigo que o VINICIOSJAU colocou , mais ele dá esse erro:

    Microsoft VBScript runtime error '800a01a8'

    Object required: ''

    /livro/root/aprende.asp, line 225

    a minha linha 25 é essa:

    <% set rs = objConn.Execute("Select * from Tabela1")%>

    alguém pode me ajudar ? sad.gifunsure.gif

    tenta assim:

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

  17. Opertador Like

    em SQL Server

    Postado

    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.

  19. Resgatar Dados E Enviar Por Email,como Faço?

    em ASP

    Postado

    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")
%>

  20. Opertador Like

    em SQL Server

    Postado

    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.

  23. Dividir

    em ASP

    Postado

    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

  25. Insert

    em ASP

    Postado

    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
%>

×
×
  • Criar Novo...