Ghosty

hehehe acontece... dai pra dar um logout é so colocar "" dentro da variável session? tem como eu definir um tempo pra pessoa ficar logada??

putz n da pra acreditar qui é so isso... então é só fazer o login é so fazer algo do tipo: nome=request.Form("nome") senha=request.Form("senha") if nome="Ghosty" and senha=12345 then session("nome")=nome else response.write "senha incorreta!" response.end e depois colocar aquele if q tu me mostrou no topo de cada página e pronto?

pra receber o valor dessa variável é so coloca: variavel=request.QueryString("variavel") e pronto!

depois de mta luta! finalmente eu consegui fazer a minha inserção no bd!!! agora tem um problema... essas informações são confidenciais, eu criei uma página asp de consulta com o nome de ver.asp, so q se a pessoa digitar aurl referente a essa página (ex: www.pagina.com.br/ver.asp) ela vai ter acesso a colsulta, vendo assim todas as informações gravados no bd... eu pretendo criar um sistema com senha para que só a minha chefe tenha acesso... se alguém souber como me ajudar... valeu!

Acredito que tenha ocorrido uma confusão pois os campos de destino são separados por vírgula, então quando ele leu aqueles valores com vírugula e já q numero n usa aspas ele de certo pensou q tinha uns 5 ou 6 valores a mais!! foi so tirar os replace() q tudo funcionou!!

brother!! pode fecha esse tópico!! já tah tudo resolvido!!! muito Obrigado mesmo!!!!

é realmente no response.write as variaveis de destino estão com 1 a mais, mas é so no response.write porque no coigo tah certo... eu fiz uma conversão de ponto pra vírgula antes de executar o sql, no entanto algumas variaveis numericas vao com vírgula na inserção isso pode dar algum erro? valeu pela atenção!

desculpa eu n cheguei a fazer isso... vou ver se consigo..

eu já verifiquei n tem nenhuma array nu meu formulário... e eu aindsa numerei as variaveis da instrução sql pra ter certeza de quem tem a mesma quantidade.. eu realmente n sei mais o q fazer...

hum... no formulario tem dois menus dropdown onde seleciona o nome e o tipo de investimento, tb tem uma sessão de radiobutton onde seleciona a condição e tb tem um sessão de checkbox onde seleciona quais produtos cadastrados... mas funcionava quando tinha bem menos campos na instrução sql... e dentre essas instruções já tinha os dois menus dropdown.. e ai tem alguma ideia do q tah acontecendo??

mas brother eu já contei e recontei um monte de vez e n tah diferente!!! tem 40 campos na query e 40 campos nos destinos!!! n é possível essa é a unica instrução sql da página... tipow eu pensei q hj eu acabava esse negócio... eu vo posta todo o código pra você ver... <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Expires = 0 Dim objConn, objRs, strQuery, strConnection,nomerep,nomecli,cnpj,data,radio,check,frut,cons,bac,vin,tem,mon,tipoo,bor,out,nome,qtd,qtdcx,valor,un,des,desconto,investimento,inv,investotal,invtot,fattotal,fatliquido,jus,menu,corpo,conprod1,conmar1,conpre1,conprod2,conmar2,conpre2,conprod3,conmar3,conpre3, loja, emb, cond loja=request.form("loja") emb=request.Form("emb") conprod2=request.Form("conprod2") conmar2=request.Form("conmar2") conpre2=request.Form("conpre2") conprod3=request.Form("conprod3") conmar3=request.Form("conmar3") conpre3=request.Form("conpre3") conprod1=request.Form("conprod1") conmar1=request.Form("conmar1") conpre1=request.Form("conpre1") tipoo=request.Form("tipoo") radio=request.Form("radiobutton") menu=request.Form("menu") nomerep=request.Form("nomerep") nomecli=request.Form("nomecli") cnpj=request.Form("cnpj") data=request.Form("data") check=request.Form("check") frut=request.Form("frut") cons=request.Form("cons") bac=request.Form("bac") vin=request.Form("vin") tem=request.Form("tem") mon=request.Form("mon") bor=request.Form("bor") out=request.Form("out") nome=request.Form("nome") qtd=request.Form("qtd") qtdcx=request.Form("qtdcx") un=request.Form("un") valor=request.Form("valor") des=request.Form("des") des=Round(des,2) des=replace(des,".",",") desconto=request.Form("desconto") investimento=request.Form("investimento") inv=request.Form("inv") inv=Round(inv,2) inv=replace(inv,".",",") investotal=request.Form("investotal") investotal=Round(investotal,2) investotal=replace(investotal,".",",") invtot=request.Form("invtot") invtot=Round(invtot,2) invtot=replace(invtot,".",",") fattotal=request.Form("fattotal") fattotal=Round(fattotal,2) fattotal=replace(fattotal,".",",") fatliquido=request.Form("fatliquido") fatliquido=Round(fatliquido,2) fatliquido=replace(fatliquido,".",",") jus=request.Form("jus") cond=request.Form("cond") if menu="Outro - Escrever ao lado -->" then menu=tipoo else menu=menu end if if frut=checkbox then frut="" else frut="Sim" end if if cons=checkbox then cons="" else cons="Sim" end if if bac=checkbox then bac="" else bac="Sim" end if if vin=checkbox then vin="" else vin="Sim" end if if tem=checkbox then tem="" else tem="Sim" end if if mon=checkbox then mon="" else mon="Sim" end if if bor=checkbox then bor="" else bor="Sim" end if if out=checkbox then out="" else out="Sim" end if 'conecta ao banco url_conexao = Server.MapPath("/c/invbd.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 'cria o sql sql = "INSERT INTO pedido (nomerep,nomecli,cnpj,data,radio,check,frut,cons,bac,vin,tem,mon,tipoo,bor,out,nome,qtd,qtdcx,valor,un,des,desconto,investimento,inv,investotal,invtot,fattotal,fatliquido,jus,conprod1,conmar1,conpre1,conprod2,conmar2,conpre2,conprod3,conmar3,conpre3, loja, emb)" sql = sql & "VALUES ('" & nomerep & "','" & nomecli & "','" & cnpj & "'," & data & ",'" & radio & "'," & check & ",'" & frut & "','" & cons & "','" & bac & "','" & vin & "','" & tem & "','" & mon & "','" & menu & "','" & bor & "','" & out & "','" & nome & "'," & qtd & "," sql = sql & "" & qtdcx & "," & valor & "," & un & "," & des & "," & desconto & "," & investimento & "," & inv & "," & investotal & "," & invtot & "," & fattotal & "," & fatliquido & ",'" & jus & "','" & conprod1 & "','" & conmar1 & "','" & conpre1 & "','" & conprod2 & "','" & conmar2 & "'," sql = sql & "'" & conpre2 & "','" & conprod3 & "','" & conmar3 & "','" & conpre3 & "'," & loja & "," & emb & ")" conexao.execute(sql) Set objRs = Nothing Set objConn = Nothing 'redireciona %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Página enviada com Sucesso!</title> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } --> </style></head> <body> <% Set objMail = Server.CreateObject("Persits.MailSender") strlista="vendas@uniagro-ind.com.br,logistica@uniagro-ind.com.br,comercial@uniagro-ind.com.br,informatica@uniagro-ind.com.br" email="logistica@uniagro-ind.com.br" corpo = "<!DOCTYPE HTML PUBLIC "& chr(34) &"-//W3C//DTD HTML 4.01 Transitional//EN"& chr(34) &" "& chr(34) &"http://www.w3.org/TR/html4/loose.dtd"& chr(34) &"><html><head><meta http-equiv="& chr(34) &"Content-Type"& chr(34) &" content="& chr(34) &"text/html; charset=iso-8859-1"& chr(34) &">" corpo = corpo & "<title>Sucesso!</title></head><body><div align="& chr(34) &"center"& chr(34) &"><font face="& chr(34) &"Verdana, Arial, Helvetica, sans-serif"& chr(34) &" size="& chr(34) &"+2"& chr(34) &" color="& chr(34) &"#666666"& chr(34) &">Investimento"& data &" </font></div>" corpo = corpo & "<hr><table width="& chr(34) &"624"& chr(34) &" border="& chr(34) &"0"& chr(34) &" align="& chr(34) &"center"& chr(34) &"><tr><td width="& chr(34) &"207"& chr(34) &"><strong>Nome do Representante:</strong></td><td colspan="& chr(34) &"5"& chr(34) &">"& nomerep &"</td></tr><tr><td><strong>Nome do Cliente: </strong></td>" corpo = corpo & "<td colspan="& chr(34) &"5"& chr(34) &">"& nomecli &"</td></tr><tr><td><strong>Lojas:</strong></td><td width="& chr(34) &"57"& chr(34) &">"& loja &"</td><td width="& chr(34) &"114"& chr(34) &"><strong>Check-outs:</strong></td><td width="& chr(34) &"106"& chr(34) &">"& check &"</td><td width="& chr(34) &"50"& chr(34) &"><strong>CNPJ:</strong></td>" corpo = corpo & "<td width="& chr(34) &"152"& chr(34) &">"& cnpj &"</td></tr></table><div align="& chr(34) &"center"& chr(34) &"></div><hr><div align="& chr(34) &"center"& chr(34) &"><font size="& chr(34) &"+1"& chr(34) &"><strong>Produtos Cadastrados</strong><br></font></div><font size="& chr(34) &"2"& chr(34) &"><table width="& chr(34) &"632"& chr(34) &" border="& chr(34) &"0"& chr(34) &" align="& chr(34) &"center"& chr(34) &">" corpo = corpo & "<tr><td width="& chr(34) &"88"& chr(34) &"><strong>Frutas Secas: </strong></td><td width="& chr(34) &"74"& chr(34) &">"& frut &"</td><td width="& chr(34) &"83"& chr(34) &"><strong>Temperos:</strong></td><td width="& chr(34) &"76"& chr(34) &">"& tem &"</td><td width="& chr(34) &"77"& chr(34) &"><strong>Conservas:</strong></td>" corpo = corpo & "<td width="& chr(34) &"68"& chr(34) &">"& cons &"</td><td width="& chr(34) &"64"& chr(34) &"><strong>Borges:</strong></td><td width="& chr(34) &"68"& chr(34) &">"& bor &"</td></tr><tr><td><strong>Bacalhau:</strong></td><td>"& bac &"</td><td><strong>Monde:</strong></td><td>"& mon &"</td>" corpo = corpo & "<td><strong>Vinhos:</strong></td><td>"& vin &"</td><td><strong>Outros:</strong></td><td>"& out &"</td></tr></table></font><hr><table width="& chr(34) &"631"& chr(34) &" border="& chr(34) &"0"& chr(34) &" align="& chr(34) &"center"& chr(34) &"><tr><td width="& chr(34) &"132"& chr(34) &"><strong>Nome do Produto: </strong></td>" corpo = corpo & "<td width="& chr(34) &"182"& chr(34) &">"& nome &"</td><td width="& chr(34) &"146"& chr(34) &"><strong>Embalagem:</strong></td><td width="& chr(34) &"153"& chr(34) &">"& emb &"</td></tr><tr><td><strong>Pre&ccedil;o do Produto: </strong></td><td>"&"R$"& valor &"</td><td><strong>Qtd:</strong></td>" corpo = corpo & "<td>"& qtd &"</td></tr><tr><td><strong>Unidades:</strong></td><td>"& un &"</td><td><strong>Condi&ccedil;&atilde;o:</strong></td><td>"& radio &"</td></tr><tr><td><strong>Desconto(%):</strong></td><td>"& desconto &"%"&"</td><td><strong>Desconto(R$):</strong></td>" corpo = corpo & "<td>"&"R$"& des &"</td></tr><tr><td><strong>Investimento(%):</strong></td><td>"& inv &"%"&"</td><td><strong>Investimento(R$):</strong></td><td>"&"R$"& investimento &"</td></tr><tr><td><strong>Invest. Total(%):</strong></td><td>"& invtot &"%"&"</td><td><strong>Invest. Total(R$):</strong></td>" corpo = corpo & "<td>"&"R$"& investotal &"</td></tr><tr><td><strong>Fat. Bruto:</strong></td><td>"&"R$"& fattotal &"</td><td><strong>Fat. L&iacute;quido: </strong></td><td>"&"R$"& fatliquido &"</td></tr><tr><td>&nbsp;</td><td><div align="& chr(34) &"center"& chr(34) &"><strong>Tipo de Investimento: </strong></div></td>" corpo = corpo & "<td colspan="& chr(34) &"2"& chr(34) &">"& menu &"</td></tr></table><hr><div align="& chr(34) &"center"& chr(34) &"><font size="& chr(34) &"+1"& chr(34) &"><strong>Justificativa do Investimento</strong></font></div><br><center><textarea name="& chr(34) &"textarea"& chr(34) &" cols="& chr(34) &"80"& chr(34) &" rows="& chr(34) &"4"& chr(34) &" readonly>"& jus &"</textarea>" corpo = corpo & "</center><hr><div align="& chr(34) &"center"& chr(34) &"><strong><font size="& chr(34) &"+1"& chr(34) &">Dados da Concorr&ecirc;ncia</font></strong></div><br><table width="& chr(34) &"622"& chr(34) &" border="& chr(34) &"0"& chr(34) &"align="& chr(34) &"center"& chr(34) &"><tr><td width="& chr(34) &"61"& chr(34) &">&nbsp;</td><td width="& chr(34) &"184"& chr(34) &"><div align="& chr(34) &"center"& chr(34) &"><strong>Produto 1 </strong></div></td>" corpo = corpo & "<td width="& chr(34) &"212"& chr(34) &"><div align="& chr(34) &"center"& chr(34) &"><strong>Produto 2 </strong></div></td><td width="& chr(34) &"223"& chr(34) &"><div align="& chr(34) &"center"& chr(34) &"><strong>Produto 3 </strong></div></td></tr><tr><td height="& chr(34) &"26"& chr(34) &"><strong>Nome:</strong></td><td><div align="& chr(34) &"center"& chr(34) &">"& conprod1 &"</div></td>" corpo = corpo & "<td><div align="& chr(34) &"center"& chr(34) &">"& conprod2 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conprod3 &"</div></td></tr><tr><td><strong>Marca:</strong></td><td><div align="& chr(34) &"center"& chr(34) &">"& conmar1 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conmar2 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conmar3 &"</div></td></tr>" corpo = corpo & "<tr><td><strong>Pre&ccedil;o:</strong></td><td><div align="& chr(34) &"center"& chr(34) &">"& conpre1 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conpre2 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conpre3 &"</div></td></tr></table><hr><div align="& chr(34) &"center"& chr(34) &"><p><strong><font size="& chr(34) &"3"& chr(34) &">Parecer &Aacute;rea Comercial Uniagro</font></strong></p>" corpo = corpo & "<p><strong><font size="& chr(34) &"3"& chr(34) &">(___) Aprovado Autoriza&ccedil;&atilde;o/Supervis&atilde;o_______________________________Data:___/___/___</font></strong></p><p><strong><font size="& chr(34) &"3"& chr(34) &">(___) Reprovado Autoriza&ccedil;&atilde;o/Gerencia_______________________________Data:___/___/___</font></strong></p></div></body></html>" objMail.Host = "mail.sulweb.com.br" objMail.Subject = nomeres &" "& data objMail.From = "Informatica@uniagro-ind.com.br" objMail.FromName = "Web - investimento" objMail.AddAddress strlista objMail.IsHTML = True objMail.Body = corpo objMail.Send set objMail = nothing response.redirect "ver.asp" %> <center><img src="sent_.gif" width="800" height="400" border="0" usemap="#Map"> <map name="Map"> <area shape="poly" coords="259,290,356,220,522,224,525,323,335,335" href="index.asp" target="_self"> </map> </center> </body> </html>

eu estou quase conseguindo fazer a minha inserção no bd mas da um erro q n tem explicação, vejam: esse é o erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Number of query values and destination fields are not the same. /c/enviarbd.asp, line 115 eu já contei um monte de vez e tem sim a mesma quantidade vejam: sql = "INSERT INTO pedido (nomerep,nomecli,cnpj,data,radio,check,frut,cons,bac,vin,tem,mon,tipoo,bor,out,nome,qtd,qtdcx,valor,un,des,desconto,investimento,inv,investotal,invtot,fattotal,fatliquido,jus,conprod1,conmar1,conpre1,conprod2,conmar2,conpre2,conprod3,conmar3,conpre3, loja, emb)" sql = sql & "VALUES ('" & nomerep & "','" & nomecli & "','" & cnpj & "'," & data & ",'" & radio & "'," & check & ",'" & frut & "','" & cons & "','" & bac & "','" & vin & "','" & tem & "','" & mon & "','" & menu & "','" & bor & "','" & out & "','" & nome & "'," & qtd & "," sql = sql & "" & qtdcx & "," & valor & "," & un & "," & des & "," & desconto & "," & investimento & "," & inv & "," & investotal & "," & invtot & "," & fattotal & "," & fatliquido & ",'" & jus & "','" & conprod1 & "','" & conmar1 & "','" & conpre1 & "','" & conprod2 & "','" & conmar2 & "'," sql = sql & "'" & conpre2 & "','" & conprod3 & "','" & conmar3 & "','" & conpre3 & "'," & loja & "," & emb & ")" é grande mas acredito q n seja esse o problema... se alguém consegui me ajudar eu agradeço!!

beleza!!! valeu mesmo !!

hum você tem razão eram alguns campos q ficavam vazios... você sabe me explicar como eu faço pra configurar meu bd pra isso n acontecer?? eu uso access... Valeu brother!!

Valeu pelos conselhos pessoal!! vo avaliar as alternativas!!

eu tava fazendo uma inserção nu banco, normalmente como sempre fiz mas dai deu esse erro e eu n consigo descobri qual o problema!! esse é o erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e10' [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2. /c/enviarbd.asp, line 113 e aqui tah o codigo correspondente a linha 113 sql = "INSERT INTO pedido (nomerep,nomecli,cnpj,data,radio,check,frut,cons,bac,vin,tem,mon,tipoo,bor,out) VALUES ('" & nomerep & "','" & nomecli & "'," & cnpj & ",'" & data & "','" & radio & "'," & check & ",'" & frut & "','" & cons & "','" & bac & "','" & vin & "','" & tem & "','" & mon & "','" & tipoo & "','" & bor & "','" & out & "')" se alguém descobri qual erro eu agradeço!!!

eu sou iniciante em asp e estou fazendo meu primeiro sistema, e então me surgiu uma duvida e uma preocupação: o meu banco de dados é em access e ele vai receber muita informação por formulário são 42 campos para serem inseridos no bd, então eu queria saber q cuidados eu devo ter e se eu tenho q fazer alguma coisa pra evitar algum problema ou se eu devo optar por outro banco de dados apesar de eu n saber nada de outro banco mas é isso ai... se alguém puder me ajudar eu agradeço!!

valeu mesmo brother! tu esclareceu um dilema pra mim!

Desculpa brother é q eu criei um e tive q sair ai um colega meu veio usar o computador e deu um voltar (ai foi pra pagina de edição do tópico) então eu achei q tinha esquecido de postar e reformulei a pergunta e então postei denovo! peço desculpas novamente e realmente a minha intenção n foi fazer flood... voltando a dúvida... os campos n sou todos texto tem um q é data e outro q é numero e outro q é memorando, mas eu n declarei nenhuma variavel como do tipo texto e acho q nem tem como fazer isto... por favor você poderia me explicar como isso funciona?? valeu!!

ah esqueci a linha 73 é a execução do sql!

brother.. eu coloquei a tua string de conexão no lugar da q eu tava usando e deu isso ai: Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. /c/enviarbd.asp, line 73 bah eu n pensei qui fosse tão difícil... se você souber o q tah acontecendo... o server tah tranquilo porque tem um outro formulario q eu n tenho acesso q tah funcionando sem problemas..

por favor me digam qual é o problema!! eu acho q é nas aspas porque eu n entendo nada dessas aspas simples duplas... se alguém puder me explicar eu ficaria muito feliz! ai vai o codigo::: Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("/c/invbd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" strQuery = "INSERT INTO pedido (nomerep,nomecli,cnpj,data,check,nome,loja,emb) VALUES ('"&nomerep&"','"&nomecli&"','"&cnpj&"','"&data&"','"&check&"','"&nome&"','"&loja&"','"&emb&"')" On error Resume Next Set ObjRs = objConn.Execute(strQuery) objConn.close Set objRs = Nothing Set objConn = Nothing if err = 0 Then response.redirect "sucesso.asp" end if n da erro nenhum a uniaca coisa q acontece é q n insere nada no bd e n redireciona pra pagina de sucesso.asp... valeu!

eu n consigo saber qual é o problema nessa minha inserção no bd!!! acredito que seja nas aspas, porque eu entendo como funcionam essas aspas simples e duplas.. olhem o codigo ai Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("/c/invbd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" strQuery = "INSERT INTO pedido (nomerep,nomecli,cnpj,data,check,nome,loja,emb) VALUES ('"&nomerep&"','"&nomecli&"','"&cnpj&"','"&data&"','"&check&"','"&nome&"','"&loja&"','"&emb&"')" On error Resume Next Set ObjRs = objConn.Execute(strQuery) objConn.close Set objRs = Nothing Set objConn = Nothing if err = 0 Then response.redirect "sucesso.asp" end if n da erro nenhum so simplesmente n insere nada no bd e n redireciona pra pagina de sucesso!

Valeu ai pessoal!! eu onsegui usando esse codigo ai: addadress "dest1@jsdnks.com.br,dest2@jkvns.com.br" foi so separa por virgula detro das aspas!! brigadão ai!!

eu sei q deve ser so um detalhe mas eu utilizo o aspemail e queria saber como enviar pra varios destinatarios ao mesmo tempo!! valeu!!