Luiz Guilherme

eu to no iis... e não alterei nada...

Galera misterios do Alem.... Volto Funcionar sem eu relar a mão no codigo......

Pessoal abaixo ta minha pagina de cadastro... na hora que envio para cadastro... ele da erro e fala que tem operador faltando... login = request.form("login") senha = request.form("pwd") logine = encriptastr(login) senhae = encriptastr(senha) cep = request.form("cep1")&"-"&request.form("cep2") datanasc = request.form("dn1")&"/"&request.form("dn2")&"/"&request.form("dn3") telcomprador = request.form("fonecomprador")&"-"&request.form("ramalcomprador") session("nomeusuario") = request.form("login") sql="insert into clientes (razaosocial,endereco,numero,bairro,cidade,estado,cep,telefone,cnpj,inscest,nomecomprador,datanasc,email,rg,cpf,telefone1,login,senha)" sql=sql&" values('"&request.form("razaosocial")&"','"&request.form("endereco")&"','"&request.form("numero")&"','"&request.form("bairro")&"','"&request.form("cidade") sql=sql&"','"&request.form("estado")&"','"&cep&"','"&request.form("telefone")&"','"&request.form("cnpj")&"','"&request.form("ie") sql=sql&"','"&request.form("nomecomprador")&"','"&datanasc&"','"&request.form("email")&"','"&request.form("rg")&"','"&request.form("cpf")&"','"&telcomprador&"','"&EncriptaStr(login)&"','"&EncriptaStr(senha)&"')" conexao.execute(sql) Erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta '''ýŠ=H','t…•*dÖ')'. onde fica esse erro:???

bom, consegui faze funcionar, mais na hora que eu vou salvar no banco de dados, da erro... olha ai... Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta '''ýŠ=','õ¦eÝ´$HÓìEâçL/ÉÅtV±˜+ë!')'. /ww/cadastro.asp, line 141

bom gente, me passaram uma função de criptografia, só que não ta dando muito certo... e eu queria saber se mais alguém pode me ajudar com isso? me passem algumas funções ai please...

Essa é a função, mais não funciona do jeito que você falow...... se você tiver alguma melhor....... Obrigado... -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Const EncC1 = 109 Const EncC2 = 191 Const EncKey = 161 Public Function Encripta(Texto) Dim TempStr, TempResult, TempNum, TempChar Dim TempKey Dim i TempStr = Texto TempResult = "" TempKey = ((EncKey * EncC1) + EncC2) Mod 65536 For i = 1 To Len(TempStr) TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256 TempChar = Chr(TempNum) TempKey = (((Asc(TempChar) + TempKey) * EncC1) + EncC2) Mod 65536 TempResult = TempResult & TempChar Next EncriptaStr = TempResult End Function Public Function Decripta(Texto) Dim TempStr, TempResult, TempNum, TempChar Dim TempKey Dim i TempStr = Texto TempResult = "" TempKey = ((EncKey * EncC1) + EncC2) Mod 65536 For i = 1 To Len(TempStr) TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256 TempChar = Chr(TempNum) TempKey = (((Asc(Mid(TempStr, i, 1)) + TempKey) * EncC1) + EncC2) Mod 65536 TempResult = TempResult & TempChar Next DecriptaStr = TempResult End Function Private Function AuxShr(Numero, BShr) AuxShr = Int(Numero / (2 ^ BShr)) End Function

fala ai pessoal.... bom eu tenho uma função de criptografar as informações do cadastro do cliente.... só que preciso salvar os dados em uma variavel antes de criptografar... só que ta dando pau.... a hora que eu mando criptografar ele some o conteudo da variavel... abaixo esta como eu faço..... dim logcrip, senhacrip, logdecrip, senhadecrip logdecrip = request.form("login") senhadecrip = request.form("pwd") logcrip = encripta(logdecrip) senhacrip = encripta(senhadecrip) bareta problema: a função de criptografia não funciona.... favor ser mais especifico no post

Valeu saulob... Valeu Bareta..... Consegui fazer usando a função que o saulo passo.... brigadão

me explica essa função.... não to sabendo usar....

valeu Vinicius.... Obrigado pela dica.... Mas o problema é achar o dia da semana ..... alguém sabe como fazer isso...?????????

ai pessoal sudações.... como faço para achar o dia da semana em uma data???? to querendo monta um string de data no site... tipo: segunda-feira, 25 de maio de 2005..... ajuda...please

sim, porque eu vou precisar de varios dados, é uma verificação de campo, dai, nessa tabela temporaria eu vo colocando o nome dos campos que não estiverem preenchidos corretamente

ai pessoal, tem como eu inserir dados em um RecordSet, ou qualquer outro tipo de tabela temporaria???? por favor... Urgente.....valeu

private Function vercampo(mensagem,nomecampo) if nomecampo="" then Dicionario.add i, mensagem i = i+1 end if end function ncampo = request.form("endereco") aviso = "endereço" vercampo(aviso,ncampo) também não da certo... já havia tentado.... o erro: Erro de compilação do Microsoft VBScript (0x800A0414) Não é possível usar parênteses ao chamar um Sub /site/cadastro.asp, line 56, column 22 vercampo(aviso,ncampo) ----------------------------^

fala ai galera, eu estou tentando criar uma fuction para verificar os campos preenchidos no meu cadastro.... so que da pau... olha ai... erro: Erro de compilação do Microsoft VBScript (0x800A0414) Não é possível usar parênteses ao chamar um Sub /site/cadastro.asp, line 55, column 41 vercampo(request.form("endereco"),mesend) ----------------------------------------------------^ Fuction: Public Function vercampo(nomecampo,message) if nomecampo="" then Dicionario.add i, message i = i+1 end if end function alguém pode me ajudar??

sua string de conexao esta errada, compare com a minha

eu uso esse http://www4.climatempo.com.br/climatempo/escolheselo.php olha la...

pessoal, apenas uma duvida simples.... eu posso fazer isso: sql="select * from tabelas where cod= 1" set rs=conexao.execute(sql) sql="selecr * from rs where name like "l&" set rs2.execute(sql) isso da certo????

o modo que eu faço é esse: eu crio uma pagina chamada conecta.asp incluo ela onde tem que incluir... e chamo as funçôes....... <% Dim conexaoaberta Dim constr Dim conexao Set Conexao=Server.CreateObject("ADODB.CONNECTION") constr="DRIVER={Microsoft Access Driver (*.mdb)};" constr=constr&"DBQ="&server.mappath("dados/bd") conexaoaberta=false sub abreconexao() if not conexaoaberta then conexao.open constr conexaoaberta=true end if end sub sub fechaconexao() if conexaoaberta then conexao.close conexaoaberta=false end if end sub %>

select max(campo) as maior from tabela dai o valor você pode buscar como rs("maior")...

fala ai pessoal.... bom... eu gostaria de saber o seguinte, na minha pagina principal, quando o cliente loga aparece uma saudação, e eu gostaria de saber como fazer para pegar o nome do cliente inteiro e extrair a penas o primeiro nome alguém sabe como posso fazer isso????? obrigado pela atenção..... t+

crie uma tablea no seu db.... chamado contador na pagina que você quer contar os acessos coloque isso <% sql="update contador set nvisita = nvisita+1" set rs=conexao.execute(sql) %> tenta isso .... é a unica idéia que me vem a cabeça agora...

aporveitando de sua bom vontade, como faço para colocar imagens no corpo do email, anexo elas e depois chamo normalmente ( <img src="foto1.jpg"> )???????

tipo... dim mes, i mes = month(date()) sql="select * from clientes" set rs = conexao.execute(sql) if not rs.eof then for i = 1 to 8 do while not rs.eof if month(rs("dataniver")) = mes then response.write rs("nomecliente") ' aqu você pode salvar em uma matriz end if rs.movnext wend end if

tipo, pega alguma função que retorne so o mes da data......, dai você faz um pesquisa que ache as datas que tenham o mes igual ao que você extraiu da data de hj..... após isso faça um for ou while que liste 8 aniversariantes do jeito que você quiser...., só não vou colar o codigo mais ou menos como seria porque to sem meu livro de consultas aqui, e não me lembro qual a função que extrai o mes.... mais acho que é: mounth(date()).... espero ter dado alguma boa idéia a vc....