marcus Gemeos

Ola, Tenho um formulário que a pessoa vai colocar o login e senha no painel, como fazer que quando a pessoa clicar em "entrar" chame a outra página do painel??? Preciso!!!! Obrigado! Marcus

Ola, Tenho um formulário que a pessoa vai colocar o login e senha no painel, como fazer que quando a pessoa clicar em "entrar" chame a outra página do painel??? Preciso!!!! Obrigado! Marcus

Ola, Mas não tem em portugues? para comprar em R$? Grato.

Olá pessoal, Eu possuo um código de upload de arquivos... e gostaria de saber, se alguém possui algum código para remoção desses arquivos enviados ao servidor pelo código upload? Precisso! Obrigado! Marcus

Olá pessoal, Como faço para que não haja mais de um cadastro com usuário repedito? Já tentei de tudo e não dar sucesso! Precisso! Obrigado! Marcus

Olá pessoal, Aonde posso achar hospedagem gratuita? Obrigado! Marcus

Olá pessoal, Como faço para trabalhar com window.open do java script? Eu gostaria que o window.open do javaescript abrisse automatica mente ao carregar uma página, um endereço (url), que está apontada a uma variavel, por exemplo VarURL?? Obrigado! Precisso! Marcus

Falou moderador! desculpas!

Olá pessoal, Estou com uma questão, eu possuo um código de programação em ASPMail, só que na hora do corpo dele, só tem uma opção de corpo de mensagem, mas no formulário tem mais de um campo, pois é um formulario de cadastro, no formulário tem: endereço, cidade, cep... como faço para por esses campos todos ficar dentro do corpo do e-mail da programação abaixo? Precisso! Obrigado! Marcus <% Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.e-construir.com.br" Mail.From = "marcus_gemeos@hotmail.com" Mail.FromName = "Marcus" 'Opcional destinatario="marcus@e-construir.com.br" Mail.AddAddress destinatario 'Descomente a linha abaixo para enviar e-mail em formato HTML 'Mail.IsHTML = True Mail.Subject = "Cadastros de profissional" Mail.Body = "Corpo da mensagem" erro = "" sucesso = False On Error Resume Next 'Verifica erros Mail.Send 'Envia mensagem If Err <> 0 Then erro = Err.Description else sucesso = True End If Set Mail = nothing %> <% If erro <> "" Then%> Ocorreu um erro: <% = erro %> <% End If %> <% If sucesso Then%> Mensagem enviada para <% = destinatario %> com sucesso. <% End If %>

Olá pessoal, Como faço para acrescentar dias a mais nessa data abaixo, mas que fique certo com o calendário? Só que tem que ser desse jeito, para que eu possa inverter: AAAA/MM/DD! Precisso! Obrigado! Marcus VarData_atual = "" & year(Date) & "-" & month(Date) & "-" & day (Date)& "" If Day(Now)> 9 then VarDataDia = Day(Now) Else VarDataDia = "0" & Day(Now) End if If month(Now)> 9 then VarDataMes = month(Now) Else VarDataMes = "0" & month(Now) End if If year(Now)> 9 then VarDataAno = year(Now) Else VarDataAno = "0" & year(Now) End if

Olá Pessoal, Eu possuo o seguinte código: sqlProd = "SELECT top 1 * FROM usuarios " sqlProd = sqlProd & "where codigo = + 1 ORDER BY codigo desc" Mas ele não está somando e está dando o resultado sem a soma! Como faço? Precisso! Marcus

Ola, Gostaria de fazer uma animação onde uma folha que vai caindo até o seu local, mas queria uma animação bastante real de uma folha caindo, só o movimento dela de ir pra ca e pra lá até cair, alguém tem esse movimento em fla? ou como fazer? O meu arquivo onde preciso por essa folha ela desce reto e não pode. Preciso! Obrigado! Marcus

Ola, Abaixo segue um código que sublinha o link de um site quando clica nele, mas queria saber como isso é processado para que serve cada código abaixo: Sua linhas...? <script LANGUAGE = "JavaScript"> // pop-up promocao var width = 250; var height = 150; var left = 40 var top = 20 window.open('chamada.htm','promocao', 'width='+width+', height='+height+', top='+top+', left='+left+', toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, fullscreen=no'); </SCRIPT> Grato! Marcus

Mas cada linha serve para que? Grato! Marcelo

Ola, Abaixo segue um código que sublinha o link de um site quando clica nele, mas queria saber como isso é processado para que serve cada código abaixo: <style> A:link { color: #008000; text-decoration: none; } A:visited { color: #008000; text-decoration: none; } A:active { color: #008000; } A:hover { text-decoration: underline; } </style> Obrigado! preciso! Marcus

Olá pessoal, Como faço para essa formatação tornar-se com um ponto "." e não a virgula ","? FormatNumber (session("ValorTotal")) Pois está assim: 0,00 mas gostaria de ficar assim: 0.00! Precisso! Obrigado! Marcus

Olá pessoal, Como faço para formatar a data atual do relogio do servidor em AAAA/MM/DD? Precisso! Obrigado! Marcus

Olá pessoal, Como pode ocorrer ou fazer o seguinte: Possui um boleto e guando cliente realiza uma compra ele recebe esse boleto, como todo boleto existe a data de vencimento, mas como irei fazer isso? Ex.: Hoje tem a data: 14/06/2005 é a data da realização da compra, e como faz para que o vencimento seja depois de cinco dias depois dessa data? Obrigado! Marcus

Olá pessoal, Tenho um cliente que possui boleto do F2B, não sei se alguém conhece (www.f2b.com.br). No código do boleto possui seguinte blocos: Bloco do Elemento: mensagem Bloco do Elemento: sacador Bloco do Elemento: cobrança... Eu gostaria do seguinte, nesse blocos possui os "campos" como taxa, valor... essas coisas são o dono da loja que determina né? A taxa? Essas coisas? E mais uma coisa: O que siginifica "Bloco do Elemento: mensagem" Pois ele possui os seguinte "campos": Data e Número! Obrigado! Precisso! Marcus

Olá amigo, Como faço, eu tento mas não dar certo porque o cadastro so aceita metodo "post" e não "get" veja o codigo abaixo, e sendo assim com "get" o email não vai... Quero realizar um cadastro e email ao mesmo tempo desse cadastro! O formulario da pagina que chama ele é "action" "GET". Mas esse "get" não serve para realização de cadastro so de envio email! Precisso! Obrigado! Marcus <!--#include file="conexao_dados.asp"--> <% nome = Request.QueryString("nome") email = Request.QueryString("email") subject = "Cadastro" Dim sqlContato, rsContato, ContatoEmail, conexao, varCodigo, varCategorias, sqlProduto, sqlInsertProduto, rsProd, rsProd2 Dim varNome, varCPF, varEND, varBairro, varCidade, varUf, varNacionalidade, varCep, varDdd, varTelefone, varEmail, varUsuario, varSenha varCodigo = Request.Form("codigo") varNome = Request.Form("nome") varCPF = Request.Form("cpf") varEND = Request.Form("end") varBairro = Request.Form("bairro") varCidade = Request.Form("cidade") varUf = Request.Form("uf") varNacionalidade = Request.Form("nacionalidade") varCep = Request.Form("cep") varDdd = Request.Form("ddd") varTelefone = Request.Form("telefone") varEmail = Request.Form("email") varUsuario = Request.Form("usuario") varSenha = Request.Form("senha") varCodigo = replace(varCodigo, "'", "") varNome = replace(varNome, "'", "") varCPF = replace(varCPF, "'", "") varEND = replace(varEND, "'", "") varBairro = replace(varBairro, "'", "") varCidade = replace(varCidade, "'", "") varUf = replace(varUf, "'", "") varNacionalidade = replace(varNacionalidade, "'", "") varCep = replace(varCep, "'", "") varDdd = replace(varDdd, "'", "") varTelefone = replace(varTelefone, "'", "") varEmail = replace(varEmail, "'", "") varUsuario = replace(varUsuario, "'", "") varSenha = replace(varSenha, "'", "") corpo = corpo & Request.QueryString("codigo")& vbnewline corpo = corpo & Request.QueryString("nome")& vbnewline corpo = corpo & Request.QueryString("cpf")& vbnewline corpo = corpo & Request.QueryString("end")& vbnewline corpo = corpo & Request.QueryString("bairro")& vbnewline corpo = corpo & Request.QueryString("cidade")& vbnewline corpo = corpo & Request.QueryString("uf")& vbnewline corpo = corpo & Request.QueryString("nacionalidade")& vbnewline corpo = corpo & Request.QueryString("cep")& vbnewline corpo = corpo & Request.QueryString("ddd")& vbnewline corpo = corpo & Request.QueryString("telefone")& vbnewline corpo = corpo & Request.QueryString("email")& vbnewline corpo = corpo & Request.QueryString("usuario")& vbnewline corpo = corpo & Request.QueryString("senha")& vbnewline sqlProduto = "SELECT * FROM usuarios WHERE Nome ='" & varNome & "'" sqlInsertProduto = "INSERT INTO usuarios (codigo,Nome,cpf,end,bairro,cidade,estado,nacionalidade,cep,ddd,telefone,email,usuario,senha) values (" & varCodigo & ",'" & varNome & "','" & varCPF & "','" & varEND & "','" & varBairro & "','" & varCidade & "','" & varUf & "','" & varNacionalidade & "','" & varCep & "','" & varDdd & "','" & varTelefone & "','" & varEmail & "','" & varUsuario & "','" & varSenha & "')" sqlContato = "SELECT * FROM dados_contato ORDER BY codigo" Call abre_conexao Set rsContato = Conexao.Execute(sqlContato) Set rsProd = Conexao.Execute(sqlProduto) Set rsProd2 = Conexao.Execute(sqlInsertProduto) ContatoEmail = rsContato("email") Call SendMail(nome & " <" & email & ">", "<" & ContatoEmail & ">", subject, corpo) Response.Redirect("http://www.estudioinformatica.com.br/loja/obrigado.asp")%> <html> <% 'não precisa mexer daqui pra baixo Sub SendMail(strFrom, strTo, strSubject, strMessage) Dim cdoConfig Dim objMail sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "localhost" cdoConfig.fields.update Set objMail = Server.CreateObject("CDO.Message") With objMail Set .Configuration = cdoConfig .From = strFrom .To = strTo .Subject = strSubject .TextBody = strMessage ' note que abaixo desligamos o modo html, e deixamos o email em formato txt sem codigos html '.HTMLBody = strMessage .Send End With End Sub %> </html> <% rsContato.close rsProd.close rsProd2.close call fecha_conexao set rsContato = nothing set rsProd = nothing set rsProd2 = nothing %>

Olá amigo, Como faço, eu tento mas não dar certo porque o cadastro so aceita metodo "post" e não "get" veja o codigo abaixo: Precisso! Obrigado! Marcus <!--#include file="conexao_dados.asp"--> <% nome = Request.QueryString("nome") email = Request.QueryString("email") subject = "Cadastro" Dim sqlContato, rsContato, ContatoEmail, conexao, varCodigo, varCategorias, sqlProduto, sqlInsertProduto, rsProd, rsProd2 Dim varNome, varCPF, varEND, varBairro, varCidade, varUf, varNacionalidade, varCep, varDdd, varTelefone, varEmail, varUsuario, varSenha varCodigo = Request.Form("codigo") varNome = Request.Form("nome") varCPF = Request.Form("cpf") varEND = Request.Form("end") varBairro = Request.Form("bairro") varCidade = Request.Form("cidade") varUf = Request.Form("uf") varNacionalidade = Request.Form("nacionalidade") varCep = Request.Form("cep") varDdd = Request.Form("ddd") varTelefone = Request.Form("telefone") varEmail = Request.Form("email") varUsuario = Request.Form("usuario") varSenha = Request.Form("senha") varCodigo = replace(varCodigo, "'", "") varNome = replace(varNome, "'", "") varCPF = replace(varCPF, "'", "") varEND = replace(varEND, "'", "") varBairro = replace(varBairro, "'", "") varCidade = replace(varCidade, "'", "") varUf = replace(varUf, "'", "") varNacionalidade = replace(varNacionalidade, "'", "") varCep = replace(varCep, "'", "") varDdd = replace(varDdd, "'", "") varTelefone = replace(varTelefone, "'", "") varEmail = replace(varEmail, "'", "") varUsuario = replace(varUsuario, "'", "") varSenha = replace(varSenha, "'", "") corpo = corpo & Request.QueryString("codigo")& vbnewline corpo = corpo & Request.QueryString("nome")& vbnewline corpo = corpo & Request.QueryString("cpf")& vbnewline corpo = corpo & Request.QueryString("end")& vbnewline corpo = corpo & Request.QueryString("bairro")& vbnewline corpo = corpo & Request.QueryString("cidade")& vbnewline corpo = corpo & Request.QueryString("uf")& vbnewline corpo = corpo & Request.QueryString("nacionalidade")& vbnewline corpo = corpo & Request.QueryString("cep")& vbnewline corpo = corpo & Request.QueryString("ddd")& vbnewline corpo = corpo & Request.QueryString("telefone")& vbnewline corpo = corpo & Request.QueryString("email")& vbnewline corpo = corpo & Request.QueryString("usuario")& vbnewline corpo = corpo & Request.QueryString("senha")& vbnewline sqlProduto = "SELECT * FROM usuarios WHERE Nome ='" & varNome & "'" sqlInsertProduto = "INSERT INTO usuarios (codigo,Nome,cpf,end,bairro,cidade,estado,nacionalidade,cep,ddd,telefone,email,usuario,senha) values (" & varCodigo & ",'" & varNome & "','" & varCPF & "','" & varEND & "','" & varBairro & "','" & varCidade & "','" & varUf & "','" & varNacionalidade & "','" & varCep & "','" & varDdd & "','" & varTelefone & "','" & varEmail & "','" & varUsuario & "','" & varSenha & "')" sqlContato = "SELECT * FROM dados_contato ORDER BY codigo" Call abre_conexao Set rsContato = Conexao.Execute(sqlContato) Set rsProd = Conexao.Execute(sqlProduto) Set rsProd2 = Conexao.Execute(sqlInsertProduto) ContatoEmail = rsContato("email") Call SendMail(nome & " <" & email & ">", "<" & ContatoEmail & ">", subject, corpo) Response.Redirect("http://www.estudioinformatica.com.br/loja/obrigado.asp")%> <html> <% 'não precisa mexer daqui pra baixo Sub SendMail(strFrom, strTo, strSubject, strMessage) Dim cdoConfig Dim objMail sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "localhost" cdoConfig.fields.update Set objMail = Server.CreateObject("CDO.Message") With objMail Set .Configuration = cdoConfig .From = strFrom .To = strTo .Subject = strSubject .TextBody = strMessage ' note que abaixo desligamos o modo html, e deixamos o email em formato txt sem codigos html '.HTMLBody = strMessage .Send End With End Sub %> </html> <% rsContato.close rsProd.close rsProd2.close call fecha_conexao set rsContato = nothing set rsProd = nothing set rsProd2 = nothing %>

Olá pessoal, Como se pode fazer os dois mesmo tempo? Tem um formulario que guando enviado ele irá cadastrar automaticamente no banco de dados e é enviado ao email ao mesmo tempo? eu ASPMAIL! Por que ASPMAIL usa o comando "GET" e não serve para realização de cadastro no banco! Como faço? Precisso! Obrigado! Marcus

Olá amigo, Está dando o seguinte erro: Microsoft VBScript compilation error '800a0401' Expected end of statement /loja/cadastro_02.asp, line 46 sqlInsertProduto = "INSERT INTO usuarios (codigo,Nome,cpf,end,bairro,cidade,estado,nacionalidade,cep,ddd,telefone,email,usuario,senha) values (" varCodigo "," varNome "," varCPF "," varEND "," varBairro "," varCidade "," varUf "," varNacionalidade "," varCep "," varDdd "," varTelefone "," varEmail "," varUsuario "," varSenha ")" Obrigado! Marcus

Olá, Banco de dados: ACCESS <% Option Explicit %> <!--#include file="conexao_dados.asp"--> <% 'Relação dos produtos Dim rs, rsCategoria, strSQL, sqlProd, rsProdutos, Conexao, rsLogo, rsVitrine_01, sqlLogo, sqlVitrine_01, rsVitrine_02, sqlVitrine_02, sqlColuna_esquerda, rsColuna_esquerda, rsColuna_esquerda2, sqlColuna_esquerda2, sqlColuna_esquerda3, rsColuna_esquerda3, sqlDestaque_Promocoes, rsDestaque_Promocoes, sqlDestaque_Promocoes2, rsDestaque_Promocoes2, sqlDestaque_Promocoes3, rsDestaque_Promocoes3, sqlTitulo_pagina, rsTitulo_pagina, sqlDestque_01, rsDestque_01, rsDestque_02, sqlDestque_02, sqlDestque_03, rsDestque_03, rsDestque_04, sqlDestque_04, rsDestque_05, sqlDestque_05, rsDestque_06, sqlDestque_06, rsMais_vendidos_01, sqlMais_vendidos_01, rsMais_vendidos_02, sqlMais_vendidos_02, rsMais_vendidos_03, sqlMais_vendidos_03, rsMais_vendidos_04, sqlMais_vendidos_04, rsMais_vendidos_05, sqlMais_vendidos_05, rsMais_vendidos_06, sqlMais_vendidos_06 Dim sqlTituloCentral, rsTituloCentral, sqlTituloCentral2, rsTituloCentral2, sqlTituloCentral3, rsTituloCentral3 Dim varCodigo, varNome, varCPF, varEND, varBairro, varCidade, varUf, varNacionalidade, varCep, varDdd, varTelefone, varEmail, varUsuario, varSenha Dim rsProd, rsProd2, sqlProduto, sqlInsertProduto varCodigo = Session("codigo") varNome = Session("nome") varCPF = Session("cpf") varEND = Session("end") varBairro = Session("bairro") varCidade = Session("cidade") varUf = Session("uf") varNacionalidade = Session("nacionalidade") varCep = Session("cep") varDdd = Session("ddd") varTelefone = Session("telefone") varEmail = Session("email") varUsuario = Session("usuario") varSenha = Session("senha") varCodigo = replace(varCodigo, "'", "") varNome = replace(varNome, "'", "") varCPF = replace(varCPF, "'", "") varEND = replace(varEND, "'", "") varBairro = replace(varBairro, "'", "") varCidade = replace(varCidade, "'", "") varUf = replace(varUf, "'", "") varNacionalidade = replace(varNacionalidade, "'", "") varCep = replace(varCep, "'", "") varDdd = replace(varDdd, "'", "") varTelefone = replace(varTelefone, "'", "") varEmail = replace(varEmail, "'", "") varUsuario = replace(varUsuario, "'", "") varSenha = replace(varSenha, "'", "") 'string para exibir os produtos sqlLogo = "SELECT * FROM Logo ORDER BY Logo" sqlTitulo_pagina = "SELECT * FROM titulo_pagina ORDER BY titulo_pagina" sqlProduto = "SELECT * FROM usuarios WHERE Nome ='" & varNome & "'" sqlInsertProduto = "INSERT INTO usuarios (codigo,Nome,cpf,end,bairro,cidade,estado,nacionalidade,cep,ddd,telefone,email,usuario,senha) values (" & varCodigo & "," & varNome & "," & varCPF & "," & varEND & "," & varBairro & "," & varCidade & "," & varUf & "," & varNacionalidade & "," & varCep & "," & varDdd & "," & varTelefone & "," & varEmail & "," & varUsuario & "," & varSenha & ")" 'abre a conexao Call abre_conexao 'executa a instrução SQL Set rsLogo = Conexao.Execute(sqlLogo) Set rsTitulo_pagina = Conexao.Execute(sqlTitulo_pagina) Set rsProd = Conexao.Execute(sqlProduto) Set rsProd2 = Conexao.Execute(sqlInsertProduto) %> Obrigado! Precisso! Marcus

Olá, porque esta dando esse erro ao cadastrar: Syntax error in INSERT INTO statement Para seguinte codigo: <% Option Explicit %> <!--#include file="conexao_dados.asp"--> <% 'Relação dos produtos Dim rs, rsCategoria, strSQL, sqlProd, rsProdutos, Conexao, rsLogo, rsVitrine_01, sqlLogo, sqlVitrine_01, rsVitrine_02, sqlVitrine_02, sqlColuna_esquerda, rsColuna_esquerda, rsColuna_esquerda2, sqlColuna_esquerda2, sqlColuna_esquerda3, rsColuna_esquerda3, sqlDestaque_Promocoes, rsDestaque_Promocoes, sqlDestaque_Promocoes2, rsDestaque_Promocoes2, sqlDestaque_Promocoes3, rsDestaque_Promocoes3, sqlTitulo_pagina, rsTitulo_pagina, sqlDestque_01, rsDestque_01, rsDestque_02, sqlDestque_02, sqlDestque_03, rsDestque_03, rsDestque_04, sqlDestque_04, rsDestque_05, sqlDestque_05, rsDestque_06, sqlDestque_06, rsMais_vendidos_01, sqlMais_vendidos_01, rsMais_vendidos_02, sqlMais_vendidos_02, rsMais_vendidos_03, sqlMais_vendidos_03, rsMais_vendidos_04, sqlMais_vendidos_04, rsMais_vendidos_05, sqlMais_vendidos_05, rsMais_vendidos_06, sqlMais_vendidos_06 Dim sqlTituloCentral, rsTituloCentral, sqlTituloCentral2, rsTituloCentral2, sqlTituloCentral3, rsTituloCentral3 Dim varCodigo, varNome, varCPF, varEND, varBairro, varCidade, varUf, varNacionalidade, varCep, varDdd, varTelefone, varEmail, varUsuario, varSenha Dim rsProd, rsProd2, sqlProduto, sqlInsertProduto varCodigo = Session("codigo") varNome = Session("nome") varCPF = Session("cpf") varEND = Session("end") varBairro = Session("bairro") varCidade = Session("cidade") varUf = Session("uf") varNacionalidade = Session("nacionalidade") varCep = Session("cep") varDdd = Session("ddd") varTelefone = Session("telefone") varEmail = Session("email") varUsuario = Session("usuario") varSenha = Session("senha") varCodigo = replace(varCodigo, "'", "") varNome = replace(varNome, "'", "") varCPF = replace(varCPF, "'", "") varEND = replace(varEND, "'", "") varBairro = replace(varBairro, "'", "") varCidade = replace(varCidade, "'", "") varUf = replace(varUf, "'", "") varNacionalidade = replace(varNacionalidade, "'", "") varCep = replace(varCep, "'", "") varDdd = replace(varDdd, "'", "") varTelefone = replace(varTelefone, "'", "") varEmail = replace(varEmail, "'", "") varUsuario = replace(varUsuario, "'", "") varSenha = replace(varSenha, "'", "") 'string para exibir os produtos sqlLogo = "SELECT * FROM Logo ORDER BY Logo" sqlTitulo_pagina = "SELECT * FROM titulo_pagina ORDER BY titulo_pagina" sqlProduto = "SELECT * FROM usuarios WHERE Nome ='" & varNome & "'" sqlInsertProduto = "INSERT INTO usuarios (codigo,Nome,cpf,end,bairro,cidade,estado,nacionalidade,cep,ddd,telefone,email,usuario,senha) values (" & varCodigo & "," & varNome & "," & varCPF & "," & varEND & "," & varBairro & "," & varCidade & "," & varUf & "," & varNacionalidade & "," & varCep & "," & varDdd & "," & varTelefone & "," & varEmail & "," & varUsuario & "," & varSenha & ")" 'abre a conexao Call abre_conexao 'executa a instrução SQL Set rsLogo = Conexao.Execute(sqlLogo) Set rsTitulo_pagina = Conexao.Execute(sqlTitulo_pagina) Set rsProd = Conexao.Execute(sqlProduto) Set rsProd2 = Conexao.Execute(sqlInsertProduto) %> Obrigado! Precisso! Marcus