Ir para conteúdo
Fórum Script Brasil

Ronnie_Quintino

Membros
  • Total de itens

    55
  • Registro em

  • Última visita

Posts postados por Ronnie_Quintino

  1. Meu esse efeito aqui tem quase a mesma lógica. o detalhe que faz a iluminação dele.

    efeitos visuais

    Boa sorte

    Valeu cara, o efeito não era aquele q você me indicou, mas o q eu queria tinha no site, era o efeito aqua..

    Se puder me tirar uma duvida, eu uso o photoshop7 em portugues.

    (menu: layer, new adjustment layer, hue/saturation - escolhendo GROUP WITH PREVIOUS LAYER) em portugue fica como? Não consigo achar

  2. rolleyes.gif Galera, é o seguinte, eu estou fazendo um site que tem um banco de dados SQL e eu não manjo nada de SQL quero saber se alguém quer ganhar uma graninha pra fazer o seguinte: eu tenho todos os dados que tem de ser inseridos feito em um banco de dados MDB. o que eu preciso é exportar isso para SQL de algum jeito, parece bem simples, e deve ser para que entende, mas eu não sei como faz, por isso quero saber se tem alguém quer ganhar algum extra pra fazer isso, ai me mande um e-mail com o valor e o telefone para: ronniequintino@hotmail.com
  3. Leve? Tá doido, deve estar com uns 4mb no minimo. Site leve em flash é esse q eu fiz -> blink.gif, e esse aqui q eu fiz também ó -> biggrin.gif

    Mas quanto ao seu site cara, notas: nota 1 pelo peso do site, eu o vi com virtua de 512kbps e demorou 09min pra caregar. Pelo designer nota 4 por ser original.

    Obs: essas notas são "minhas" pois eu curto coisas leves. Mas são apenas criticas construtivas.

  4. Curti, nota 8!

    Mas acho q só eu q penso isso:

    ficou muito style pro assunto que o site aborda, tipow, acho q teu design seria melhor num site de balada!

    já q todos fazem propaganda:

    Homem de puro prazer, 29 cm de pura madera! Se você é mulher, irei satisfazer seus desejos!

    Atendo a domicilio!

    Tel: 668666/20comer

    ----------

    UHAUHAUHAUHAUHUHA  tongue.gif  tongue.gif  laugh.gif  laugh.gif  laugh.gif

    hahahaha vai a merda...

  5. mas mesmo assim, achei legal, mas esta com cara de template

    É, mas não é não. O cliente me pedio assim porque ele entende um pouco e ele queria mudar o conteudo sozinho; assim ó :http://www.interlace.com.br/interlace/interlace2/

    Eu manjo bem de designer, e se precisar um dia, me manda e-mail... Cobro barato e dou o prazo de dois dias pra criar como você quiser, faço o desenho na hora em mãos e passo para o pc se o cliente aprovar.

    é sempre bom aproveitar qualquer espaço pra fazer propaganda, não é??

    vendo superness 2 controles e 5 fitas ...

    edit: Ah ficou legal mesmo ...

    a é, qual o preço?

    hahahaha

  6. mas mesmo assim, achei legal, mas esta com cara de template

    É, mas não é não. O cliente me pedio assim porque ele entende um pouco e ele queria mudar o conteudo sozinho; assim ó :http://www.interlace.com.br/interlace/interlace2/

    Eu manjo bem de designer, e se precisar um dia, me manda e-mail... Cobro barato e dou o prazo de dois dias pra criar como você quiser, faço o desenho na hora em mãos e passo para o pc se o cliente aprovar.

  7. Tem alguns códigos estranhos:

    Utilize o & e não o + para concatenar strings:

    sText = sText & Request.Form("tv") & "<br>" linha53

    A abertura da sua conexão esta assim:

    arquivo = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\interlace\www2\db\interlace.mdb"

    ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + arquivo

    Se você for visualizar a string , ela vai estar assim:

    ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\interlace\www2\db\interlace.mdb"

    Se abriu a conexão foi pura sorte...

    Abraços.

    Cara, valeu, você me ajudou muito. Só um problema com as correções, não esta dando erro, mas eu não estou recebendo os e-mails, só esta gravando no mdb..Ficou assim:

    <%

    var_dia = Request.form("dia")

    var_mes = Request.form("mes")

    var_horario = Request.form("horario")

    var_localidade = Request.form("localidade")

    var_nome = Request.form("nome")

    var_endereco = Request.form("endereco")

    var_bairro = Request.form("bairro")

    var_cidade = Request.form("cidade")

    var_estado = Request.form("estado")

    var_cep = Request.form("cep")

    var_email = Request.form("email")

    var_telefone = Request.form("telefone")

    var_ddd = Request.form("ddd")

    arquivo = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\interlace\www2\db\interlace.mdb"

    ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + arquivo

    Set Conexao = Server.CreateObject("ADODB.Connection")

    Conexao.Open ConnString

    Set Registros = Server.CreateObject("ADODB.Recordset")

    Comando = "Select * from fale"

    Registros.Open Comando, Conexao,3,3

    Registros.addnew

    Registros("data") = date()

    Registros("dia") = var_dia

    Registros("mes") = var_mes

    Registros("horario") = var_horario

    Registros("localidade") = var_localidade

    Registros("nome") = var_nome

    Registros("endereco") = var_endereco

    Registros("bairro") = var_bairro

    Registros("cidade") = var_cidade

    Registros("estado") = var_estado

    Registros("cep") = var_cep

    Registros("email") = var_email

    Registros("telefone") = var_telefone

    Registros("ddd") = var_ddd

    registros.update

    Registros.Close

    Conexao.Close

    Set Registros = Nothing

    Set Conexao = Nothing

    Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

    'Pegando os dados digitados nos campos e colocando em variaveis

    sNameFrom = Request.Form("nome")

    sEmailFrom = Request.Form("email")

    sEmailTo = "ronnie@duplacao.com.br"

    sNameTo = "Nome do Site"

    sText =Request.Form("tv")&"<br>"

    sText =Request.Form("internet")&"<br>"

    sText =Request.Form("revistas")&"<br>"

    sText =Request.Form("indicacoes")&"<br>"

    sText =Request.Form("outros")&"<br>"

    sText =Request.Form("comentarios")&"<br>"

    sText =Request.Form("endereco")&"<br>"

    sText =Request.Form("bairro")&"<br>"

    sText =Request.Form("cidade")&"<br>"

    sText =Request.Form("estado")&"<br>"

    sText =Request.Form("idade")&"<br>"

    sText =Request.Form("profissao")&"<br>"

    sText =Request.Form("cep")&"<br>"

    sText =Request.Form("telefone")&"<br>"

    sText =Request.Form("ddd")&"<br>"

    sText =Request.Form("quero_receber")+"<br>"

    sAssunto = Request.Form("nome")

    'Cria o objeto

    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

    Mailer.FromName = sNameFrom

    Mailer.FromAddress= sEmailFrom

    Mailer.RemoteHost = "smtphost.nsi.com.br"

    Mailer.AddRecipient "Ronnie" , "ronnie@duplacao.com.br"

    Mailer.Subject = sAssunto

    Mailer.ContentType = "text/html"

    Mailer.BodyText = sText

    %>

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

    <html>

    <head>

    <title>Naturallook</title>

    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

    </head>

    <body bgcolor="#eaeaea">

    <div align="center"><font size="1" face="Arial, Helvetica, sans-serif">Obrigado por acessar nosso site.<br>

    Em breve entraremos em contato.</font></div>

    </body>

    </html>

  8. Ae galera, ajuda ai vai. É o seguinte, eu fiz esse sistema ai que funciona assim.

    1 A pessoa preenche o formulario, e quando o formulario é enviado ele faz 2 ações, mandar uma copia pro meu e-mail e a outra gravar no banco de dados.

    Mas esta dando 2 erros que eu não sei resolver, são esses aqui:

    Microsoft VBScript runtime error '800a000d'

    Type mismatch: '[string: "hk"]'

    /voce_envia_fale.asp, line 59

    Microsoft VBScript runtime error '800a000d'

    Type mismatch: '[string: "<br&gt]'

    /voce_envia_fale.asp, line 53

    O codigo fonte é esse:

    <%

    var_dia = Request.form("dia")

    var_mes = Request.form("mes")

    var_horario = Request.form("horario")

    var_localidade = Request.form("localidade")

    var_nome = Request.form("nome")

    var_endereco = Request.form("endereco")

    var_bairro = Request.form("bairro")

    var_cidade = Request.form("cidade")

    var_estado = Request.form("estado")

    var_cep = Request.form("cep")

    var_email = Request.form("email")

    var_telefone = Request.form("telefone")

    var_ddd = Request.form("ddd")

    arquivo = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\interlace\www2\db\interlace.mdb"

    ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + arquivo

    Set Conexao = Server.CreateObject("ADODB.Connection")

    Conexao.Open ConnString

    Set Registros = Server.CreateObject("ADODB.Recordset")

    Comando = "Select * from fale"

    Registros.Open Comando, Conexao,3,3

    Registros.addnew

    Registros("data") = date()

    Registros("dia") = var_dia

    Registros("mes") = var_mes

    Registros("horario") = var_horario

    Registros("localidade") = var_localidade

    Registros("nome") = var_nome

    Registros("endereco") = var_endereco

    Registros("bairro") = var_bairro

    Registros("cidade") = var_cidade

    Registros("estado") = var_estado

    Registros("cep") = var_cep

    Registros("email") = var_email

    Registros("telefone") = var_telefone

    Registros("ddd") = var_ddd

    registros.update

    Registros.Close

    Conexao.Close

    Set Registros = Nothing

    Set Conexao = Nothing

    Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

    'Pegando os dados digitados nos campos e colocando em variaveis

    sNameFrom = Request.Form("nome")

    sEmailFrom = Request.Form("email")

    sEmailTo = "ronnie@duplacao.com.br"

    sNameTo = "Nome do Site"

    sText = sText + Request.Form("tv")+"<br>" linha53

    sText = sText + Request.Form("internet")+"<br>"

    sText = sText + Request.Form("revistas")+"<br>"

    sText = sText + Request.Form("indicacoes")+"<br>"

    sText = sText + Request.Form("outros")+"<br>"

    sText = sText + Request.Form("comentarios")+"<br>"

    sText = sText + Request.Form("endereco")+"<br>"

    sText = sText + Request.Form("bairro")+"<br>"

    sText = sText + Request.Form("cidade")+"<br>"

    sText = sText + Request.Form("estado")+"<br>"

    sText = sText + Request.Form("idade")+"<br>"

    sText = sText + Request.Form("profissao")+"<br>"

    sText = sText + Request.Form("cep")+"<br>"

    sText = sText + Request.Form("telefone")+"<br>"

    sText = sText + Request.Form("ddd")+"<br>"

    sText = sText + Request.Form("quero_receber")+"<br>"

    sAssunto = Request.Form("nome")

    'Cria o objeto

    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

    Mailer.FromName = sNameFrom

    Mailer.FromAddress= sEmailFrom

    Mailer.RemoteHost = "smtphost.nsi.com.br"

    Mailer.AddRecipient "Ronnie" , "ronnie@duplacao.com.br"

    Mailer.Subject = sAssunto

    Mailer.ContentType = "text/html"

    Mailer.BodyText = sText

    %>

×
×
  • Criar Novo...