AAAAAOOOOO

Eae pessoal estou pretendendo criar uma are de acesso restrita. Mas ai que tá ela não está sendo restrita: <!--#Include File="Admin_Configs.asp"--> <% If Session("User_Cod") = "" or Session("User_Usuario") = "" Then If Request.QueryString("Action") <> "Login" Then Response.Redirect "Usuario.asp?Action=Login" Else If Request.Form("Entrar") = "Entrar" Then Email = RemoveLixo(LCase(Request.Form("Email"))) Senha = RemoveLixo(LCase(Request.Form("Senha"))) If Email = "" Then Erro = "O campo E-MAIL n&atilde;o pode estar vazio!" Else If Senha = "" Then Erro = "O campo SENHA n&atilde;o pode estar vazio!" Else Call AbreConexao(Conex) Set rsLogar = Conex.Execute("SELECT ID,QtdeAcesso,DataAcesso,IpAcesso FROM Alunos WHERE Email='"& Email &"' and Senha='"& Senha &"' LIMIT 1") If rsLogar.EOF Then Erro = "E-mail ou senha incorreta!" Else Charsets = "0|1|2|3|4|5|6|7|8|9|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|y|x|w|z" CharsetsQ = Split(Charsets, "|") Randomize While Len(Cod) < 200 Num = CharsetsQ(Int(UBound(CharsetsQ) * Rnd )) Cod = Cod + Num Wend Usuario = rsLogar("ID") QtdeAcesso = CLng(rsLogar("QtdeAcesso")) + 1 DatazAcesso = ""& Year(Now) &"/"& Month(Now) &"/"& Day(Now) &" "& Hour(Now) &":"& Minute(Now) &":"& Second(Now) &"" IpAcesso = Request.ServerVariables("REMOTE_ADDR") If rsLogar("DataAcesso") <> "" Then DataAcessoAnt = ""& Year(rsLogar("DataAcesso")) &"/"& Month(rsLogar("DataAcesso")) &"/"& Day(rsLogar("DataAcesso")) &" "& Hour(rsLogar("DataAcesso")) &":"& Minute(rsLogar("DataAcesso")) &":"& Second(rsLogar("DataAcesso")) &"" Else DataAcessoAnt = DataAcesso End If If rsLogar("IpAcesso") <> "" Then IpAcessoAnt = rsLogar("IpAcesso") Else IpAcessoAnt = IpAcesso End If Conex.Execute("UPDATE Alunos SET Cod='"& Cod &"', QtdeAcesso="& QtdeAcesso &", DataAcessoAnt='"& DataAcessoAnt &"', IpAcessoAnt='"& IpAcessoAnt &"', DataAcesso='"& DataAcesso &"', IpAcesso='"& IpAcesso &"' WHERE ID="& Usuario) Session("User_Cod") = Cod Session("User_Usuario") = Usuario Session.Timeout = 30 Response.Redirect "Usuario.asp" End If End If rsLogar.Close Set rsLogar = Nothing Call FechaConexao(Conex) End If End If End If Else If Request.QueryString("Action") = "Login" Then Response.Redirect "usuario.asp" %> <!--#Include File="User_Restrita.asp"--> <% If Request.QueryString("Action") = "Sair" Then Session("User_Cod") = "" Session("User_Usuario") = "" Session.Contents.Remove("User_Cod") Session.Contents.Remove("User_Usuario") Response.Redirect "Usuario.asp?Action=Login" End If %> <% Call AbreConexao(Conex) Set rs1 = Conex.Execute("SELECT Nome,QtdeAcesso,DataAcessoAnt,IpAcessoAnt FROM Alunos WHERE ID="& Session("User_Usuario") &" LIMIT 1") If rs1.EOF Then Erro = "<p>Usu&aacute;rio n&atilde;o encontrado!</p>" Erro = Erro & "<p>Entre em contato com o programador do site.</p>" Else Nome = rs1("Nome") QtdeAcesso = rs1("QtdeAcesso") If HoraAcesso < 10 Then HoraAcesso = "0"& HoraAcesso &"" If MinutoAcesso < 10 Then MinutoAcesso = "0"& MinutoAcesso &"" End If rs1.Close Set rs1 = Nothing Call FechaConexao(Conex) End If %> <table align="center" border="0" bordercolor="#FFFF00" cellspacing="0" cellpadding="0" width="100%" class="FormatInt"> <tr> <td valign="top" align="left" colspan="2"><script type="text/javascript">exibe_flash('Logo.swf','240','50');</script></td> </tr> <% If Erro = "" Then If Request.QueryString("Action") = "Login" Then %> <tr> <td colspan="2"> <table border="0" bordercolor="#00FF00" cellpadding="0" cellspacing="0" width="100%"> <tr> <td valign="top"> <table align="center" width="200" border="0" bordercolor="#00FFCC" cellpadding="1" cellspacing="1"> <form action="" autocomplete="off" method="post" name="Login"> <tr> <td align="center" colspan="2"><script type="text/javascript">exibe_flash('Titulo_Usuario(Azul).swf','200','25');</script><!--img src="imagens/area_do_aluno.gif" width="200" border="0"!--></td> </tr> <tr> <td><input type="Email" name="Email" value="Digite seu e-mail" onFocus="java script: if(this.value=='Digite seu e-mail')this.value='';" onBlur="if(this.value=='')this.value='Digite seu e-mail';" class="FormText" style="width:150px;"><br><font color="#CCCCCC" face="Verdana" size="1"><center><a href="">Não tenho cadastro</center></font></a></td> <td><input type="password" name="Senha" value="Senhaaaa" onFocus="java script: if(this.value=='Senhaaaa')this.value='';" onBlur="if(this.value=='')this.value='Senhaaaa';" class="FormText" style="width:130px;"><br><font color="#CCCCCC" face="Verdana" size="1"><center><a href="">Esqueci a senha</center></font></a></td> </tr> <tr> <td><img src="Imagens/spacer.gif" border="0" height="3"></td> </tr> <tr> <td colspan="2" align="center"><input type="submit" value="Entrar" name="Entrar" class="FormBotao"></td> </tr> <tr> <td><img src="Imagens/spacer.gif" border="0" height="15"></td> </tr> </table> </td> </tr> </td> </tr> </table> <tr> <td> <table border="0" align="left" cellpadding="1" class="FormatInt"> <tr> <td align="left" colspan="2"><img src="imagens/imagens_cachorros/cachorro-lendo-jornal.gif" border="0" width="200" height="145"></td> </tr> </table> </td> </tr> <% Else %> <div id="menu" class="menu" align="left" align="justify" style="width: 160px;"> <ul> <a href="">Meu Perfil</a> <a href="">Horários</a> <a href="">Especializa&ccedil;&otilde;es</a> <a href="">Perguntas frequentes</a> </ul> </div> </table> </td> </tr> <% ' End If End If End If %> <tr> <td colspan="2">&nbsp;</td> </tr> </table> <!--#Include File="Fim.asp"-->

Ola pessoal não estou conseguindo cadastrar meu form em uma base de dados devido a este erro que acontece na primeira string: crosoft JET Database Engine error '80040e10' No value given for one or more required parameters. /agenda/cadastro.asp, line 55 If Request.Form("Cadastrar") = "Cadastrar" Then Nome = RemoveLixo(Request.Form("Nome")) empresa = RemoveLixo(Request.Form("empresa")) site = RemoveLixo(Request.Form("site")) Endereco = RemoveLixo(Request.Form("Endereco")) Numero = RemoveLixo(Request.Form("Numero")) Cidade = RemoveLixo(Request.Form("Cidade")) Estado = RemoveLixo(Request.Form("Estado")) Cep = RemoveLixo(Request.Form("Cep")) Fone_1 = RemoveLixo(Request.Form("fone_1")) Fone_2 = RemoveLixo(Request.Form("fone_2")) Email = RemoveLixo(Request.Form("E_mail")) Email_2 = RemoveLixo(Request.Form("E_mail_2")) Total = RemoveLixo(Request.Form("Total")) fone_1 = RemoveLixo(Request.Form("fone_1")) fone_2 = RemoveLixo(Request.Form("fone_2")) vencimento = RemoveLixo(Request.Form("vencimento")) contrato = RemoveLixo(Request.Form("contrato")) Atividade = RemoveLixo(Request.Form("atividade")) Servidor = RemoveLixo(Request.Form("servidor")) Login = RemoveLixo(Request.Form("login")) Senha = RemoveLixo(Request.Form("senha")) N_contrato = RemoveLixo(Request.Form("n_contrato")) Obs = RemoveLixo(Request.Form("obs")) If Len(Email) < 3 or Len(Email) > 255 Then Erro = "O campo E-MAIL deve estar vazio ou foi preenchido com a quantidade incorreta de caracteres!" Else If Instr(1, Email, " ") <> 0 Then Erro = "O campo E-MAIL foi preenchido com espa&ccedil;os em branco!" Else If InStr(1, Email, "@", 1) < 2 Then Erro = "E-MAIL sem @!" Else If InStrRev(Email, ".") < InStr(1, Email, "@", 1) + 2 Then Erro = "O campo E-MAIL foi preenchido incorretamente, ou com excesso de caracteres!" Else Set rs1 = Conex.Execute("SELECT ID FROM Dados WHERE Email='"& Email &"'") If NOT rs1.EOF Then Erro = "<p>O E-MAIL informado j&aacute; est&aacute; em uso!</p>" & vbcrlf End If rs1.Close Set rs1 = Nothing If Erro = "" Then Campos = "Nome," Campos = Campos & "Empresa," Campos = Campos & "Site," Campos = Campos & "Endereco," Campos = Campos & "Numero," Campos = Campos & "Cidade," Campos = Campos & "Estado," Campos = Campos & "Cep," Campos = Campos & "Fone_1," Campos = Campos & "Fone_2," Campos = Campos & "E_mail," Campos = Campos & "E_mail_2," Campos = Campos & "Total," Campos = Campos & "Vencimento," Campos = Campos & "Contrato," Campos = Campos & "Atividade," Campos = Campos & "Servidor," Campos = Campos & "Login," Campos = Campos & "Senha," Campos = Campos & "N_contrato," Campos = Campos & "Obs" Valores = "'"& LMaiuscula(Nome) &"'," Valores = Valores &"'"& Empresa &"'," Valores = Valores &"'"& Site &"'," Valores = Valores &"'"& Endereco &"'," Valores = Valores &"'"& Numero &"'," Valores = Valores &"'"& Cidade &"'," Valores = Valores &"'"& Estado &"'," Valores = Valores &"'"& Cep &"'," Valores = Valores &"'"& Fone_1 &"'," Valores = Valores &"'"& Fone_2 &"'," Valores = Valores &"'"& E_mail &"'," Valores = Valores &"'"& E_mail_2 &"'," Valores = Valores & "'"& Total &"'," Valores = Valores & "'"& Vencimento &"'," Valores = Valores & "'"& Contrato &"'," Valores = Valores & "'"& Atividade &"'," Valores = Valores & "'"& Servidor &"'," Valores = Valores & "'"& Login &"'," Valores = Valores & "'"& Senha &"'," Valores = Valores & "'"& N_contrato &"'," Valores = Valores & "'"& Obs &"'" Conex.Execute("INSERT Dados ("& Campos &") VALUES ("& Valores &")") Session("Aviso") = "<p>SEU CADASTRADO FOI EFETUADO COM SUCESSO!</p>" & vbcrlf End If End If End If End If End If End If Grato desde já!

Então meu bom, Leandro não chegou a copia chegou apenas Mail.AddAddress, já testei um monte de componentes mais ate agora não funfou abraço

Olá pessoal alguém poderia me ajudar a resolver este problema, estou querendo enviar um email de orçamento. O cliente está querendo que isso chegue em outro email também. Segue o codigo For EnviaEmail = 1 to 1 Conteudo = "<html>" & vbcrlf Conteudo = Conteudo & "<head>" & vbcrlf Conteudo = Conteudo & "<META http-equiv=Content-Type content=""text/html; charset=ISO-8859-1"">" & vbcrlf Conteudo = Conteudo & "<title>Criativa Brindes</title>" & vbcrlf Conteudo = Conteudo & "</head>" & vbcrlf Conteudo = Conteudo & "<body>" & vbcrlf Conteudo = Conteudo & " </tr>" & vbcrlf Conteudo = Conteudo & " </table>" & vbcrlf Conteudo = Conteudo & "</body>" & vbcrlf Conteudo = Conteudo & "</html>" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.From = "vendas@meusite.com.br" Mail.FromName = "Criativa Brindes" If EnviaEmail = 2 Then Mail.AddAddress "vendas@criativabrindes.com.br" Mail.Subject = "ORÇAMEMTO SITE" Else Mail.AddAddress emailde Mail.Subject = "SEU ORÇAMENTO FOI EFETUADO COM SUCESSO" End If Mail.Body = Decodificar(Conteudo) Mail.IsHTML = True On Error Resume Next Mail.Send If Error <> 0 Then ErroGerado = ErroGerado & "<p>Ocorreu o seguinte erro ao enviar sua compra: "& Err.Description &"</p>" End If Set Mail = Nothing If EnviaEmail >= 3 Then Exit For Next If ErroGerado <> "" Then Erro = ErroGerado Else Session.Contents.Remove("Validador") Session("Aviso") = "<p>ORÇAMENTO EFETUADO COM SUCESSO UM E-MAIL SERÁ ENVIADO PARA <font face=""verdana"" color=""#000000""><b>"& emailde &"</b></font> </p>" Session("Finalizado") = "Sim" 'Response.Redirect "Pedidos.asp?P_Action="& Request("P_Action") &"&P_Produto="& Request("P_Produto") &"&P_Pagina="& Request("P_Pagina") &"&P_Order="& Request("P_Order") &"&P_CresDesc="& Request("P_CresDesc") &"" Response.Write "<script>window.location='Pedidos.asp'</script>" Response.End() End If Se alguém tiver alguma solução serei muiito grato =

Boa tarde a todos Bom primeiramente já agradeço a visita de voces ao meu tópico... Vamos lá!!! Estou com um problema na alteração de determinados produtos em minha loja exemplo Segue o codigo: Set RS_Produto = Server.CreateObject("ADODB.Recordset") RS_Produto.CursorLocation = 3 RS_Produto.CursorType = 1 RS_Produto.LockType = 3 'Se a se acao_admin for alterar registro If myFileUpload.Form("acao_admin") = "alterar registro" Then 'Se existir um codigo chave para este registro, indica que categoria está cadastrada com idioma da consulta If codigo_produto <> "" And Replace(VetorCodigoChave,",","") <> 0 Then RS_Produto.Open "SELECT codigo_chave, codigo_produto, codigo_categoria, codigo_subcategoria, codigo_marca, codigo_produto_loja, nome_produto, descricao_produto, autor, codigo_isbn, tamanhos, cores, preco_base, preco_unitario, desconto, moeda, quantidade_produto, img_produtoPQN, img_produtoGRD, img_produto_adic01PQN, img_produto_adic01GRD, img_produto_adic02PQN, img_produto_adic02GRD, img_produto_adic03PQN, img_produto_adic03GRD, peso, destaque_vitrine, promocao, data_inicio, data_fim, disponivel, sigla_idioma FROM Produtos WHERE codigo_chave = " & Replace(VetorCodigoChave,",","") & " AND sigla_idioma = '"& Trim(VetorIdioma) &"'", Conexao 'Se não existir um codigo chave para este registro, indica que categoria não está cadastrada com idioma da consulta Else RS_Produto.Open "SELECT codigo_chave, codigo_produto, codigo_categoria, codigo_subcategoria, codigo_marca, codigo_produto_loja, nome_produto, descricao_produto, autor, codigo_isbn, tamanhos, cores, preco_base, preco_unitario, desconto, moeda, quantidade_produto, img_produtoPQN, img_produtoGRD, img_produto_adic01PQN, img_produto_adic01GRD, img_produto_adic02PQN, img_produto_adic02GRD, img_produto_adic03PQN, img_produto_adic03GRD, peso, destaque_vitrine, promocao, data_inicio, data_fim, disponivel, sigla_idioma FROM Produtos WHERE sigla_idioma = '"& Trim(VetorIdioma) &"'", Conexao 'Metodo que define a ação de novo registro RS_Produto.AddNew 'Registra o codigo de categoria passado para este novo registro RS_Produto("codigo_produto") = request.querystring("codigo_produto") End If 'Se a se acao_admin for novo registro ElseIf myFileUpload.Form("acao_admin") = "novo registro" Then RS_Produto.Open "SELECT Produtos.* FROM Produtos", Conexao 'Metodo que define a ação de novo registro RS_Produto.AddNew 'Registra o novo codigo_produto RS_Produto("codigo_produto") = codigo_produto End if If InStr(myFileUpload.form("codigo_chave"),",") Then VetorCodigo_chaveTemp = Split(myFileUpload.form("codigo_chave"),",") VetorCodigo_chave = VetorCodigo_chaveTemp(I) Else VetorCodigo_chave = myFileUpload.form("codigo_chave") End if If Not RS_Produto.EOF Then 'Captura o valor das imagens If img_produtoPQN = "" Then img_produtoPQN = RS_Produto("img_produtoPQN") End If If img_produtoGRD = "" Then img_produtoGRD = RS_Produto("img_produtoGRD") End If 'O Bloco abaixo recurepa os valores das imagens se necessário 'Se a imagem não for postada e a opção de excluir imagem não estiver checada o valor da imagem será o já registrado no banco. If img_produto_adic01PQN = "" And img_produto_adic01PQN_apagada <> "sim" Then img_produto_adic01PQN = RS_Produto("img_produto_adic01PQN") End If If img_produto_adic01GRD = "" And img_produto_adic01GRD_apagada <> "sim" Then img_produto_adic01GRD = RS_Produto("img_produto_adic01GRD") End If If img_produto_adic02PQN = "" And img_produto_adic02PQN_apagada <> "sim" Then img_produto_adic02PQN = RS_Produto("img_produto_adic02PQN") End If If img_produto_adic02GRD = "" And img_produto_adic02GRD_apagada <> "sim" Then img_produto_adic02GRD = RS_Produto("img_produto_adic02GRD") End If If img_produto_adic03PQN = "" And img_produto_adic03PQN_apagada <> "sim" Then img_produto_adic03PQN = RS_Produto("img_produto_adic03PQN") End If If img_produto_adic03GRD = "" And img_produto_adic03GRD_apagada <> "sim" Then img_produto_adic03GRD = RS_Produto("img_produto_adic03GRD") End if 'Insere o número do produto quando é um novo produto - Cadastro RS_Produto("codigo_produto") = codigo_produto End If 'A condição abaixo serve para validar em qual idioma o produto será gravado If myFileUpload.form("nome_produto|"&Trim(VetorIdioma)) <> "" Then 'O bloco abaixo grava os valores no banco de dados RS_Produto("nome_produto") = myFileUpload.form("nome_produto|"&Trim(VetorIdioma)) RS_Produto("descricao_produto") = myFileUpload.form("descricao_produto|"&Trim(VetorIdioma)) RS_Produto("codigo_categoria") = Codigo_categoria RS_Produto("codigo_subcategoria") = Codigo_subcategoria RS_Produto("codigo_marca") = codigo_marca RS_Produto("codigo_produto_loja") = codigo_produto_loja RS_Produto("codigo_isbn") = codigo_isbn If preco_unitario <> "" Then RS_Produto("preco_base") = preco_unitario RS_Produto("preco_unitario") = preco_unitario End if RS_Produto("quantidade_produto") = quantidade_produto RS_Produto("peso") = peso_produto RS_Produto("destaque_vitrine") = destaque_vitrine RS_Produto("promocao") = promocao RS_Produto("desconto") = desconto RS_Produto("data_inicio") = dataInicio RS_Produto("data_fim") = dataFim RS_Produto("disponivel") = disponivel 'Se a imagem principal não for enviada e não existir registro de anterior, será registrada as imagens pequena e grande de produto não disponível If Isnull(img_produtoPQN) Then img_produtoPQN = "config/imagens_conteudo/produtos/imagensPQN/PQN_naodisponivel.gif" End If If Isnull(img_produtoGRD) Then img_produtoGRD = "config/imagens_conteudo/produtos/imagensGRD/GRD_naodisponivel.gif" End If If img_produtoPQN <> "" Then RS_Produto("img_produtoPQN") = img_produtoPQN End if If img_produtoGRD <> "" Then RS_Produto("img_produtoGRD") = img_produtoGRD End If RS_Produto("img_produto_adic01PQN") = img_produto_adic01PQN RS_Produto("img_produto_adic01GRD") = img_produto_adic01GRD RS_Produto("img_produto_adic02PQN") = img_produto_adic02PQN RS_Produto("img_produto_adic02GRD") = img_produto_adic02GRD RS_Produto("img_produto_adic03PQN") = img_produto_adic03PQN RS_Produto("img_produto_adic03GRD") = img_produto_adic03GRD RS_Produto("cores") = cor RS_Produto("tamanhos") = tamanho RS_Produto("sigla_idioma") = Trim(VetorIdioma) RS_Produto.Update End if 'Torna vazio a variáveis para reaproveitá-las nesta ação VetorIdioma = "" VetorCodigoChave = "" Next Set RS_Produto = Nothing Qualquer tipo de ajuda será muito bem vinda. Grato a todos.

Problema resolvido. Era uma panguada no IpAlterado. Valeu, Abraços!

Primeiramente Bom dia a todos: Estou tentando realizar uma alteração no meu bd Mas está dando o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers erro '80040e14' [MySQL][ODBC 5.1 Driver][mysqld-4.1.22-community-nt-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '9:43:53,IpAlterado='192.168.0.1' WHERE ID=17' at line 1 Segue o update: If Request.Form("Alterar") = "Alterar" Then ID = RemoveLixo(Request.Form("ID")) Titulo = RemoveLixo(Request.Form("Titulo")) Descricao = RemoveLixo(Request.Form("Descricao")) DataInicio = RemoveLixo(Request.Form("DataInicio")) DataFim = RemoveLixo(Request.Form("DataFim")) Texto = RemoveLixo(Request.Form("Texto")) DataAlterado = ""& Year(Now) &"/"& Month(Now) &"/"& Day(Now) &" "& Hour(Now) &":"& Minute(Now) &":"& Second(Now) &"" IpAlterado = Request.ServerVariables("REMOTE_ADDR") If Erro = "" Then If DataInicio <> "" Then DataInicio = ""& Year(CDate(DataInicio)) &"/"& Month(CDate(DataInicio)) &"/"& Day(CDate(DataInicio)) &"" If DataFim <> "" Then DataFim = ""& Year(CDate(DataFim)) &"/"& Month(CDate(DataFim)) &"/"& Day(CDate(DataFim)) &"" If DataInicio = "" Then DataInicio = "Null" Else DataInicio = ""& DataInicio &"" End If If DataFim = "" Then DataFim = "Null" Else DataFim = ""& DataFim &"" End If Valores = "Titulo='"& Titulo &"'," Valores = Valores & "Descricao='"& Descricao &"'," Valores = Valores & "DataInicio='"& DataInicio &"'," Valores = Valores & "DataFim='"& DataFim &"'," Valores = Valores & "Texto='"& Texto &"'," Valores = Valores & "DataAlterado="& DataAlterado &"," Valores = Valores & "IpAlterado='"& IpAlterado &"'" Call AbreConexao(Conex) Conex.Execute("UPDATE agenda SET "& Valores &" WHERE ID="& ID) Call FechaConexao(Conex) Session("Aviso") = "AGENDA ALTERADA COM SUCESSO!" Response.Redirect "Admin_AltAgenda.asp?Pagina="& Request.QueryString("Pagina") &"&Order="& Request.QueryString("Order") &"&CresDesc="& Request.QueryString("CresDesc") &"" End If

putz como era simples.. valeeu man. Me ajudou bem!!

Bom dia a todos, seguinteee.. Estou com um probleminha quando eu vou inserir um registro ele inseri beleza Mas só que ele duplica o registro, ou seja eu cadastro um email ele cadastra dois idênticos. :wacko: Segue abaixo o codigo: If left(Request.Form("email"),1)="a" or left(Request.Form("email"),1)="b" or left(Request.Form("email"),1)="c" or left(Request.Form("email"),1)="d" or left(Request.Form("email"),1)="e" or left(Request.Form("email"),1)="f" then pasta="1" elseif left(Request.Form("email"),1)="g" or left(Request.Form("email"),1)="h" or left(Request.Form("email"),1)="i" or left(Request.Form("email"),1)="j" or left(Request.Form("email"),1)="k" or left(Request.Form("email"),1)="l" or left(Request.Form("email"),1)="m" or left(Request.Form("email"),1)="n" or left(Request.Form("email"),1)="o" or left(Request.Form("email"),1)="p" then pasta="2" elseif left(Request.Form("email"),1)="q" or left(Request.Form("email"),1)="r" or left(Request.Form("email"),1)="s" or left(Request.Form("email"),1)="t" or left(Request.Form("email"),1)="u" or left(Request.Form("email"),1)="v" or left(Request.Form("email"),1)="w" or left(Request.Form("email"),1)="x" or left(Request.Form("email"),1)="y" or left(Request.Form("email"),1)="z" then pasta="3" end if If Request.Form("nascimento")="1" Then pastanasc="janeiro" Elseif Request.Form("nascimento")="2" Then pastanasc="fevereiro" Elseif Request.Form("nascimento")="3" Then pastanasc="marco" Elseif Request.Form("nascimento")="4" Then pastanasc="abril" Elseif Request.Form("nascimento")="5" Then pastanasc="maio" Elseif Request.Form("nascimento")="6" Then pastanasc="junho" Elseif Request.Form("nascimento")="7" Then pastanasc="julho" Elseif Request.Form("nascimento")="8" Then pastanasc="agosto" Elseif Request.Form("nascimento")="9" Then pastanasc="setembro" Elseif Request.Form("nascimento")="10" Then pastanasc="outubro" Elseif Request.Form("nascimento")="11" Then pastanasc="novembro" Elseif Request.Form("nascimento")="12" Then pastanasc="dezembro" Else pasta="1" End if MM_editQuery = "Insert Into "& MM_editTable &" (pasta,pastanasc," & MM_tableValues & ") values ("&pasta&",'"& pastanasc &"'," & MM_dbValues & ")" ' Response.Write MM_editQuery ' Response.End If verifica.EOF then Executar = "Sim" verifica.close Set verifica = Nothing If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery If Executar = "Sim" Then Set Conex = Server.CreateObject("ADODB.Connection") Conex.Open MM_editConnection Conex.Execute(MM_editQuery) Conex.Close Set Conex = Nothing MM_editCmd.Execute Else Response.Redirect("usuarios_cad_erro.asp") End if MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If Desde já agradeço.. :rolleyes: