filipeflc00

aí GALERA EU tenho ALGUNS REGISTRO DE UM SISEMA QUE EU FIZ CADASTRADO NO ACCESS MAS QUANDO FAÇO CONSULTA EM UM NOME QUE ESTEJA COM ACENTO ELE NÃO ACHA alguém DE VOCÊS SABE COMO RESOLVO ESSE PROBLEMA?? SO QUE E O SEGUINTE GALERA EU ESTOU QUERENDO CONVERTER ESSE MEU BANCO DE DADOS PARA OUTRO BANCO E GOSTARIA DE UMA OPINIÃO SUAS .. QUAL SERIA O MLEHOR BANCO PARA QUE EU CONVERTESSE E NÃO DARIA TANTO PROBLEMA PELA CONVERSÃO DO ACCESS PARA O OUTRO PBANCO NA MINHAS STRINGS DE SQL OU SEJA UM BANCO QUE SEJA MAIS PARECIDO COM O ACCESS MAS QUE SEJA MLEHOR DO QUE ELE GALERA DA UMA MÃOZINHA NESSA ESCOLHA AI AGRADEÇO A TODOS DESDE JÁ ABRAÇOS :D

alguém responde ai

eu já tinha feito isso antes e agora fiz de novo e continua dando erro ..vo postar o cod inteiro aqui <!--#include file="conexao.asp"--> <% 'DESENVOLVIDO POR FILIPE LIMA Response.Buffer=true Response.AddHeader "cache-control", "private" Response.AddHeader "pragma", "no-cache" Response.ExpiresAbsolute = #January 1, 1990 00:00:01# Response.Expires=Now()-1 Response.AddHeader "Cache-Control", "must-revalidate" Response.AddHeader "Cache-Control", "no-cache" Response.Addheader "Last-Modified:", Now() objConn.Open conex 'DADOS DO FORM cd_func = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("cdfunc"),"'","")))) nm_func2 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("nm_func2"),"'","")))) ex1 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex1"),"'","")))) dtex1 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex1"),"'","")))) ex2 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex2"),"'","")))) dtex2 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex2"),"'","")))) ex3 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex3"),"'","")))) dtex3 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex3"),"'","")))) ex4 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex4"),"'","")))) dtex4 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex4"),"'","")))) ex5 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex5"),"'","")))) dtex5 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex5"),"'","")))) ex6 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex6"),"'","")))) dtex6 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex6"),"'","")))) ex7 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex7"),"'","")))) dtex7 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex7"),"'","")))) ex8 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex8"),"'","")))) dtex8 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex8"),"'","")))) ex9 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex9"),"'","")))) dtex9 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex9"),"'","")))) ex10 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex10"),"'","")))) dtex10 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex10"),"'","")))) ex11 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex11"),"'","")))) dtex11 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex11"),"'","")))) ex12 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex12"),"'","")))) dtex12 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex12"),"'","")))) us_ex_func = Session("func") alt_dt = Date() 'FIM DADOS DO FORM pagina = "altfunc2_ex.asp?cdfunc="&cd_func&"" If ex1 = "" Then ex1 = "OFF" Else If ex1 = "ON" Then ex1 = "'000001'" end if end if 'CONSULTANDO TABELA DE EXAMES 1 StrSql1 = "Select * from t_exame where cd_exame = "&ex1&"" Set ObjRs1 = ObjConn.Execute(StrSql1) 'response.write "Select * from t_exame where cd_exame = "&ex1&"" qtdex1 = ObjRs1("dura_exame") dtvenc1 = DateAdd ("m", qtdex1, dtex1) strSql = "Update t_ex_func Set nm_func2='"&nm_func2&"', ex1='"&ex1&"', dtex1='"&dtex1&"', dtvenc1='"&dtvenc1&"', us_ex_func='"&us_ex_func&"', alt_dt='"&alt_dt&"' where cd_func = '"&cd_func&"'" Set ObjRs = objConn.Execute(strSql) Set objRs = Nothing objConn.close Set objConn = Nothing if err = 0 Then Response.redirect pagina end if %> e so está dando erro porque ele nauim está axando o numero porque quando eu retiro esse select da certin flaw galera valws

sim cara verifiquei e ela me retorno assim Select * from t_exame where cd_exame = '000001' acabei de testar antes de postar aqui olha ai valw cara

AMIGOS OLHAM SO ESSE CODIGO If ex1 = "" Then ex1 = "OFF" Else If ex1 = "ON" Then ex1 = "'000001'" end if end if 'CONSULTANDO TABELA DE EXAMES 1 StrSql1 = "Select * from t_exame where cd_exame = "&ex1&"" Set ObjRs1 = ObjConn.Execute(StrSql1) 'response.write "Select * from t_exame where cd_exame = "&ex1&"" qtdex1 = ObjRs1("dura_exame") dtvenc1 = DateAdd ("m", qtdex1, dtex1) OLHA SO QUANDO EU MANDO ESSE SELECT SELECIONAR NA TABELA ONDE FOR IGUAL A EX1 que E = 000001 ELE não vê NA TABELA não MAS SE EU COLOCO NO SELECT NO MANUAL StrSql1 = "Select * from t_exame where cd_exame = '000001'" AI FUNCIONA MAS ASSIM StrSql1 = "Select * from t_exame where cd_exame = "&ex1&"" E NEM ASSIM StrSql1 = "Select * from t_exame where cd_exame = '"&ex1&"'" ELE não FUNCIONA O QUE ESTOU FAZENDO DE ERRADO OLHEM AI GALERA VALW EM AGRADEÇO DESDE já

Ai pessoal a parada e o seguinte coloquei campo requerido = não ai funciona beleza diretamente no access se eu deixar sem colocar nada ele fexa e fica sem valor quando eu tento inseriri o valor NULL ele fala que so aceita numeros ai quando eu vo deixar em branco mandando dados de um form atraves do ASP ele não grava por favor pessoal me ajuda ai quando deixo a data com texto e converto ela no ASP como DATA da erro quando vo somar algumas datas no banco por que algumas que estão igual a zero da erro

aí pessoal fui la coloquei o campo data/hora comp requirido=sim em en seguida fiz um cod assim mas não deu certo não cadastra If dtex2 = "" Then dtex2 = Null Else End If

aqui tentei acrecentar direto nu access um campo nulo mais não aceita não eu preciso que ele possa ficar em branco um campo DATA/HORA por favor me ajudem

entaum devo fazer assim cara dtvenc1 = CDate(ObjRS("dtvenc1")) porque assim as datas não estaum somando não por exmplo as datas eu fiz um IF assim If Date() > dtvenc1 then Response.Wirite = "DATA VENCIDA" Else Response.Wirite = "DATA nÃO VENCIDA" End if quando no banco eu falava que esse DTVENC1 ele era data tava funcionando agora coloquei como texto e coloquei esse cod que você falo e não deu certo não undefined olha ai cara valw

valw cara deu certo mais aqui outra duvida no ACCESS os campos DATA/HORA não aceitam nulos não?? por que quando deixo um campo de DATA/HORA com o comprimento ZERO não cadastra como eu faço ?? eu passei eles para texto mas quando eu preciso somar uma data com a outra não da tem como eu converter esse texto em DATA no ASP??? aguem me ajuda ai valws

olha so galera como eu fiz qtdex1 = 6 dtvenc1dia = Day(Date()) dtvenc1mes = Month(Date()) + qtdex1 dtvenc1ano = Year(Date()) dtvenc1 = ai vejam se esta certo ai mas na hora de juntar as datas de novo eu não sei me ajudem ae por favor galera brigadão

ae galera to precisando de uma ajuda urgente no ASP como eu faço para fazer a soma de a DATA ATUAL(date()) mais 6 meses??? algo asssim data = Month(Date()) + 6 e no final por exbir a data atual mais 6 meses Obrigado galera aguardo a ajuda de vocês

não num e isso não e quria dar um valor para ele vamus supor q o valor desse checkbox fosse BRASIL(value="brasil") quando marcasse ele mandasse o valor brasil mas eu já fiz na pagina de prcesso deu certo eu fiz um if falando quando ele for marcado recebesse esse valor valwzão ai andreia t+

OLA galera alguns de vocês ai sabem como eu faço pra que um CHECKBOX envie valores que eu possa da para ele pro DB <INPUT TYPE="checkbox" NAME="teste" value="teste"> e ele possa armazenar no banco esse valor "TESTE" ou algum geito de fazer isso se alguém souber por quando eu envio para o banco ou ele faz sim/não ou quando eu coloco TEXTO se o cara marcar ele envia o valor de -1 se não marcar ele envia o valor de 0 se alguém tiver intendido me ajude ai se não tiver intendido fale o q não intendeu q eu posto de novo explicando.... valw galera

tenta assim <HTML> <HEAD> <TITLE>Marmoraria Califórnia</TITLE> <META NAME="TITLE" CONTENT="Marmoraria Califórnia"> <META NAME="AUTHOR" CONTENT="Marmoraria Califórnia marmorariacalifornia.com.br.com"> <META NAME="OWNER" CONTENT="Marmoraria Califórnia contato@marmorariacalifornia.com.br"> <META NAME="SUBJECT" CONTENT="Empresas de jacareí comércio em geral procura de telefones e endereços"> <META NAME="RATING" CONTENT="GENERAL"> <META NAME="DESCRIPTION" CONTENT="Marmoraria Califórniatem a linha completa com os mais belos mármores e granitos,Empresa de Jacareí, procura de marmores, grantinos na cidade de jacareí"> <META NAME="ABSTRACT" CONTENT="granito branco aquilxx, mármore branco, granito branco leblon, granito branco cristal,Granito Branco Ceará/Cotton/Polar,Granito Sevana,Mármore Arabescato Fanielo,Mármore Bianco Carrara, Mármore Calacata Machia Oro, Mármore Arabescato Corchia, Granito Giallo Viceneza, Granito Dourado Carioca, Mármore Travetido, Granito Amarelo Ornamental, Granito Amarelo Sand Gold, Mármore Botticino Fiorito, Granito Amarelo Santa Cecília, Granito Amarelo Icareí, Granito Amarelo Icareí, Mármore Creme Marfil, Mármore Pierino Bianco, Mármore Travertino Romano Bruto, Granito Marrom Imperial, Granito Marrom Guaibá, Mármore Rosso Verona, Granito Prata Royal, Granito Kinawa,Granito Cinza Corumbáo,Granito Prata Paulista,Granito,Granito Cinza Capixaba,Granito Cinza Ipanema,Granito Preto Aracruz,Granito Preto Veneziano,Granito Preto Piracaia,Granito Preto Indiano,Mármore Preto Maquina,Granito Vermelho Bragança,Granito Rosa Beatriz A,Granito Rosa Beatriz B,Granito Capão Bonito,Granito Vermelho Capão Bonito,Granito Vinho Jacarandá,Granito Vinho Cobra,Granito Rosa Raissa,Granito Verde Pérola,granito Itapuã, Granito Verde Lavras,Granito Verde Ubatuba,Granito Verde Candêias, Granito Verde Aquamarine,Granito Verde Pavão,Mármore Verde Gressoney,Granito Azul Bahia, Granito Blue Pearl,Granito Rain Florest,marmore,marmore,granito, pias,soleiras,escadas,peitoris,pisos de pedras,granitos e marmores,acabamento em granitos,acabamento em marmore,acabamento bisotato,acabamento boleado, acabamento meia cana,acabamento emoldurado,acabamento peito de pombo,serviços,catalogo,bancadas para cozinha, bancadas para banheiros,bancadas em marmores, bancadas em granitos, bancadas"> <META NAME="KEYWORDS" CONTENT="granito branco aquilxx, mármore branco, granito branco leblon, granito branco cristal,Granito Branco Ceará/Cotton/Polar,Granito Sevana,Mármore Arabescato Fanielo,Mármore Bianco Carrara, Mármore Calacata Machia Oro, Mármore Arabescato Corchia, Granito Giallo Viceneza, Granito Dourado Carioca, Mármore Travetido, Granito Amarelo Ornamental, Granito Amarelo Sand Gold, Mármore Botticino Fiorito, Granito Amarelo Santa Cecília, Granito Amarelo Icareí, Granito Amarelo Icareí, Mármore Creme Marfil, Mármore Pierino Bianco, Mármore Travertino Romano Bruto, Granito Marrom Imperial, Granito Marrom Guaibá, Mármore Rosso Verona, Granito Prata Royal, Granito Kinawa,Granito Cinza Corumbáo,Granito Prata Paulista,Granito,Granito Cinza Capixaba,Granito Cinza Ipanema,Granito Preto Aracruz,Granito Preto Veneziano,Granito Preto Piracaia,Granito Preto Indiano,Mármore Preto Maquina,Granito Vermelho Bragança,Granito Rosa Beatriz A,Granito Rosa Beatriz B,Granito Capão Bonito,Granito Vermelho Capão Bonito,Granito Vinho Jacarandá,Granito Vinho Cobra,Granito Rosa Raissa,Granito Verde Pérola,granito Itapuã, Granito Verde Lavras,Granito Verde Ubatuba,Granito Verde Candêias, Granito Verde Aquamarine,Granito Verde Pavão,Mármore Verde Gressoney,Granito Azul Bahia, Granito Blue Pearl,Granito Rain Florest,marmore,marmore,granito, pias,soleiras,escadas,peitoris,pisos de pedras,granitos e marmores,acabamento em granitos,acabamento em marmore,acabamento bisotato,acabamento boleado, acabamento meia cana,acabamento emoldurado,acabamento peito de pombo,serviços,catalogo,bancadas para cozinha, bancadas para banheiros,bancadas em marmores, bancadas em granitos, bancadas"> <META NAME="REVISIT-AFTER" CONTENT="60"> <META NAME="GENERATOR" CONTENT="Marmoraria Califórniaí - www.marmorariacalifornia.com.br"> <META NAME="LANGUAGE" CONTENT="PORTUGUESE"> <META NAME="COPYRIGHT" CONTENT="marmorariacalifornia.com.br"> <META NAME="ROBOTS" CONTENT="All"> <META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE"> <META HTTP-EQUIV="REFRESH" CONTENT="200"> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_preloadImages() { //v3.0 var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array(); var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++) if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}} } function MM_findObj(n, d) { //v4.01 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n]; for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); if(!x && d.getElementById) x=d.getElementById(n); return x; } function MM_nbGroup(event, grpName) { //v6.0 var i,img,nbArr,args=MM_nbGroup.arguments; if (event == "init" && args.length > 2) { if ((img = MM_findObj(args[2])) != null && !img.MM_init) { img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src; if ((nbArr = document[grpName]) == null) nbArr = document[grpName] = new Array(); nbArr[nbArr.length] = img; for (i=4; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) { if (!img.MM_up) img.MM_up = img.src; img.src = img.MM_dn = args[i+1]; nbArr[nbArr.length] = img; } } } else if (event == "over") { document.MM_nbOver = nbArr = new Array(); for (i=1; i < args.length-1; i+=3) if ((img = MM_findObj(args[i])) != null) { if (!img.MM_up) img.MM_up = img.src; img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])? args[i+1] : img.MM_up); nbArr[nbArr.length] = img; } } else if (event == "out" ) { for (i=0; i < document.MM_nbOver.length; i++) { img = document.MM_nbOver[i]; img.src = (img.MM_dn) ? img.MM_dn : img.MM_up; } } else if (event == "down") { nbArr = document[grpName]; if (nbArr) for (i=0; i < nbArr.length; i++) { img=nbArr[i]; img.src = img.MM_up; img.MM_dn = 0; } document[grpName] = nbArr = new Array(); for (i=2; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) { if (!img.MM_up) img.MM_up = img.src; img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up; nbArr[nbArr.length] = img; } } } //--> </script> </HEAD> <!-- ImageReady Slices (site copy(1).psd) --> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('botao/MarmoTulio_07_r1_c1_f3.jpg','botao/MarmoTulio_07_r1_c1_f2.jpg','botao/MarmoTulio_07_r1_c1_f4.jpg','botao/MarmoTulio_07_r3_c1_f3.jpg','botao/MarmoTulio_07_r3_c1_f2.jpg','botao/MarmoTulio_07_r3_c1_f4.jpg','botao/MarmoTulio_07_r4_c1_f3.jpg','botao/MarmoTulio_07_r4_c1_f2.jpg','botao/MarmoTulio_07_r4_c1_f4.jpg','botao/MarmoTulio_07_r5_c1_f3.jpg','botao/MarmoTulio_07_r5_c1_f2.jpg','botao/MarmoTulio_07_r5_c1_f4.jpg','botao/MarmoTulio_07_r6_c1_f3.jpg','botao/MarmoTulio_07_r6_c1_f2.jpg','botao/MarmoTulio_07_r6_c1_f4.jpg')"> <TABLE WIDTH=779 BORDER=0 CELLPADDING=0 CELLSPACING=0> <TR> <TD COLSPAN=2> <IMG SRC="images/MarmoTulio_01.jpg" WIDTH=776 HEIGHT=128 ALT="" GALLERYIMG="no"></TD> <TD> <IMG SRC="images/MarmoTulio_02.jpg" WIDTH=3 HEIGHT=128 ALT=""></TD> </TR> <TR> <TD ROWSPAN=2> <IMG SRC="images/MarmoTulio_03.jpg" WIDTH=178 HEIGHT=58 ALT="" GALLERYIMG="no"></TD> <TD ROWSPAN=4> <IMG SRC="images/MarmoTulio_04.jpg" ALT="" WIDTH=598 HEIGHT=445 border="0" usemap="#Map2" GALLERYIMG="no"></TD> <TD> <IMG SRC="images/MarmoTulio_05.jpg" WIDTH=3 HEIGHT=12 ALT=""></TD> </TR> <TR> <TD> <IMG SRC="images/MarmoTulio_06.jpg" WIDTH=3 HEIGHT=46 ALT=""></TD> </TR> <TR> <TD WIDTH=178 HEIGHT=118 background="images/MarmoTulio_07.jpg" GALLERYIMG="no"><table border="0" cellpadding="0" cellspacing="0" width="177"> <!-- fwtable fwsrc="Sem título" fwbase="MarmoTulio_07.jpg" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" --> <tr> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="112" height="1" border="0"></td> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="11" height="1" border="0"></td> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="17" height="1" border="0"></td> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="16" height="1" border="0"></td> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="20" height="1" border="0"></td> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="1" height="1" border="0"></td> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="1" height="1" border="0"></td> </tr> <tr> <td colspan="5"><a href="index.html" target="_top" onClick="MM_nbGroup('down','navbar1','MarmoTulio_07_r1_c1','botao/MarmoTulio_07_r1_c1_f3.jpg',1);" onMouseOver="MM_nbGroup('over','MarmoTulio_07_r1_c1','botao/MarmoTulio_07_r1_c1_f2.jpg','botao/MarmoTulio_07_r1_c1_f4.jpg',1);" onMouseOut="MM_nbGroup('out');"><img name="MarmoTulio_07_r1_c1" src="botao/MarmoTulio_07_r1_c1.jpg" width="176" height="23" border="0" alt="Principal"></a></td> <td rowspan="6"><img name="MarmoTulio_07_r1_c6" src="botao/MarmoTulio_07_r1_c6.jpg" width="1" height="117" border="0" alt=""></td> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="1" height="23" border="0"></td> </tr> <tr> <td colspan="5"><img name="MarmoTulio_07_r2_c1" src="botao/MarmoTulio_07_r2_c1.jpg" width="176" height="1" border="0" alt=""></td> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="1" height="1" border="0"></td> </tr> <tr> <td colspan="4"><a href="produtoseservicos.html" target="_top" onClick="MM_nbGroup('down','navbar1','MarmoTulio_07_r3_c1','botao/MarmoTulio_07_r3_c1_f3.jpg',1);" onMouseOver="MM_nbGroup('over','MarmoTulio_07_r3_c1','botao/MarmoTulio_07_r3_c1_f2.jpg','botao/MarmoTulio_07_r3_c1_f4.jpg',1);" onMouseOut="MM_nbGroup('out');"><img name="MarmoTulio_07_r3_c1" src="botao/MarmoTulio_07_r3_c1.jpg" width="156" height="24" border="0" alt="Produtos e Servi&ccedil;os"></a></td> <td rowspan="4"><img name="MarmoTulio_07_r3_c5" src="botao/MarmoTulio_07_r3_c5.jpg" width="20" height="93" border="0" alt=""></td> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="1" height="24" border="0"></td> </tr> <tr> <td colspan="3"><a href="teste.htm" target="_top" onClick="MM_nbGroup('down','navbar1','MarmoTulio_07_r4_c1','botao/MarmoTulio_07_r4_c1_f3.jpg',1);" onMouseOver="MM_nbGroup('over','MarmoTulio_07_r4_c1','botao/MarmoTulio_07_r4_c1_f2.jpg','botao/MarmoTulio_07_r4_c1_f4.jpg',1);" onMouseOut="MM_nbGroup('out');"><img name="MarmoTulio_07_r4_c1" src="botao/MarmoTulio_07_r4_c1.jpg" width="140" height="24" border="0" alt="Cat&aacute;logo"></a></td> <td rowspan="3"><img name="MarmoTulio_07_r4_c4" src="botao/MarmoTulio_07_r4_c4.jpg" width="16" height="69" border="0" alt=""></td> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="1" height="24" border="0"></td> </tr> <tr> <td colspan="2"><a href="quemsomos.html" target="_top" onClick="MM_nbGroup('down','navbar1','MarmoTulio_07_r5_c1','botao/MarmoTulio_07_r5_c1_f3.jpg',1);" onMouseOver="MM_nbGroup('over','MarmoTulio_07_r5_c1','botao/MarmoTulio_07_r5_c1_f2.jpg','botao/MarmoTulio_07_r5_c1_f4.jpg',1);" onMouseOut="MM_nbGroup('out');"><img name="MarmoTulio_07_r5_c1" src="botao/MarmoTulio_07_r5_c1.jpg" width="123" height="24" border="0" alt="Quem Somos"></a></td> <td rowspan="2"><img name="MarmoTulio_07_r5_c3" src="botao/MarmoTulio_07_r5_c3.jpg" width="17" height="45" border="0" alt=""></td> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="1" height="24" border="0"></td> </tr> <tr> <td><a href="faleconosco.php" target="_top" onClick="MM_nbGroup('down','navbar1','MarmoTulio_07_r6_c1','botao/MarmoTulio_07_r6_c1_f3.jpg',1);" onMouseOver="MM_nbGroup('over','MarmoTulio_07_r6_c1','botao/MarmoTulio_07_r6_c1_f2.jpg','botao/MarmoTulio_07_r6_c1_f4.jpg',1);" onMouseOut="MM_nbGroup('out');"><img name="MarmoTulio_07_r6_c1" src="botao/MarmoTulio_07_r6_c1.jpg" width="112" height="21" border="0" alt="Fale Conosco"></a></td> <td><img name="MarmoTulio_07_r6_c2" src="botao/MarmoTulio_07_r6_c2.jpg" width="11" height="21" border="0" alt=""></td> <td><img src="botao/spacer.gif" alt="" name="undefined_2" width="1" height="21" border="0"></td> </tr> </table> </TD> <TD> <IMG SRC="images/MarmoTulio_08.jpg" WIDTH=3 HEIGHT=118 ALT=""></TD> </TR> <TR> <TD> <IMG SRC="images/MarmoTulio_09.jpg" ALT="" WIDTH=178 HEIGHT=269 border="0" usemap="#Map" GALLERYIMG="no"></TD> <TD> <IMG SRC="images/MarmoTulio_10.jpg" WIDTH=3 HEIGHT=269 ALT=""></TD> </TR> <TR> <TD> <IMG SRC="images/MarmoTulio_11.jpg" WIDTH=178 HEIGHT=28 ALT=""></TD> <TD> <IMG SRC="images/MarmoTulio_12.jpg" WIDTH=598 HEIGHT=28 ALT=""></TD> <TD> <IMG SRC="images/MarmoTulio_13.jpg" WIDTH=3 HEIGHT=28 ALT=""></TD> </TR> <TR> <TD> <IMG SRC="images/MarmoTulio_14.jpg" WIDTH=178 HEIGHT=2 ALT=""></TD> <TD> <IMG SRC="images/MarmoTulio_15.jpg" WIDTH=598 HEIGHT=2 ALT=""></TD> <TD> <IMG SRC="images/MarmoTulio_16.jpg" WIDTH=3 HEIGHT=2 ALT=""></TD> </TR> </TABLE> <!-- End ImageReady Slices --> <map name="Map"> <area shape="rect" coords="89,78,239,128" href="produtoseservicos1.html"> </map> <map name="Map2"> <area shape="rect" coords="1,257,274,303" href="produtoseservicos1.html"> </map> </BODY> </HTML> :D

OLA galera alguns de vocês ai sabem como eu faço pra que um CHECKBOX envie valores que eu possa da para ele pro DB <INPUT TYPE="checkbox" NAME="teste" value="teste"> e ele possa armazenar no banco esse valor "TESTE" ou algum geito de fazer isso se alguém souber por quando eu envio para o banco ou ele faz sim/não ou quando eu coloco TEXTO se o cara marcar ele envia o valor de -1 se não marcar ele envia o valor de 0 se alguém tiver intendido me ajude ai se não tiver intendido fale o q não intendeu q eu posto de novo explicando.... valw galera

cara entaum me fala como eu faço para q esse codigo aki da certo <!--#include file="conexao.asp"--> <% ObjConn.Open conex strSq3 = "select * from t_venda" Set ObjRs = objConn.Execute(strSq3) While NOT ObjRs.EOF cd_ma = ObjRs("cd_prod") nm_ma = ObjRs("nm_prod") qtd_ma2 = ObjRs("quant") nota = ObjRs("cd_nf") cdnf = Request.QueryString("cdnf") If nota = cdnf then strSq3 = "select * from t_uni where cod = "&cd_ma Set ObjRs = objConn.Execute(strSq3) quantidade_pedida = qtd_ma2 saldo_em_estoque = Cint(ObjRs("qtd_ma")) if quantidade_pedida > saldo_em_estoque then %> <body <%=colorbg1%>> <script language="javascript"> alert("A QUANTIDADE PEDIDA E MAIOR DO QUE A QUANTIDADE EM ESTOQUE !"); javascript:history.back(-1) </script> <% Response.End end if estoque = saldo_em_estoque - quantidade_pedida strSq2 = "Update t_uni Set qtd_ma='"&estoque&"' where cod = "&cd_ma Set ObjRs = objConn.Execute(strSq2) Else End if objRS.MoveNext Wend %> falws valw abraços

ai cara fiz assim mas ta dando loop na maquina de uma olhada ai <!--#include file="conexao.asp"--> <% cdnf = Request.QueryString("cdnf") ObjConn.Open conex strSq3 = "select * from t_venda where cd_nf = "&cdnf Set ObjRs = objConn.Execute(strSq3) cd_ma = ObjRs("cd_prod") nm_ma = ObjRs("nm_prod") qtd_ma = ObjRs("quant") While NOT ObjRs.EOF strSq0 = "select * from t_uni where cod = "&cd_ma Set ObjRs = objConn.Execute(strSq0) quantidade_pedida = qtd_ma saldo_em_estoque = Cint(ObjRs("qtd_ma")) if quantidade_pedida > saldo_em_estoque then %> <body <%=colorbg1%>> <script language="javascript"> alert("A QUANTIDADE PEDIDA E MAIOR DO QUE A QUANTIDADE EM ESTOQUE !"); window.location = 'venda.asp' </script> <% Response.End end if estoque = saldo_em_estoque - qtd_ma strSq2 = "Update t_uni Set qtd_ma='"&estoque&"' where cd_ma = "&cd_ma objConn.Execute strSq2 objRS.MoveNext Wend if error <> 0 then Response.Write "Ocorreu o seguinte erro "&err.description&"." else%> <body> <script language="javascript"> if (confirm(' Gravado com sucesso [ <%=cdnf%> ]...\t\t\n\n» Deseja gerar o comprovante agora ?')) { window.location = 'peruni.asp?cdfunc=<%=cd_func%>'; }else{ window.location = 'venda.asp' } </script> <%end if%> valw

o q eu quero eu to querendo fazer um cod q pegue os dados da TABELA1 e passe para TABELA2 fazendo um UPDATE na tabela de produtos com uma condição onde o cod da nota seja igual o que o vendedor deseja por exempo pegar todos os intes na TABELA1 onde COD_DA_NOTA seja igual a 0000001 meu codigo cdnf = Request.QueryString("cdnf") ObjConn.Open conex strSq3 = "select * from t_venda where cd_nf = "&cdnf Set ObjRs = objConn.Execute(strSq3) cd = ObjRs("cd_nf") cd_func = ObjRs("cd_vend") dt_ma = ObjRs("dt_emi") data = ObjRs("dt_lac") cd_ma = ObjRs("cd_prod") nm_ma = ObjRs("nm_prod") qtd_ma = ObjRs("quant") strSq0 = "select * from t_uni where cod = "&cd_ma Set ObjRs = objConn.Execute(strSq0) quantidade_pedida = qtd_ma saldo_em_estoque = Cint(ObjRs("qtd_ma")) if quantidade_pedida > saldo_em_estoque then %> <body <%=colorbg1%>> <script language="javascript"> alert("A QUANTIDADE PEDIDA E MAIOR DO QUE A QUANTIDADE EM ESTOQUE !"); window.location = 'venda.asp' </script> <% Response.End end if estoque = saldo_em_estoque - qtd_ma strSq2 = "Update t_uni Set qtd_ma='"&estoque&"' where cd_ma = "&cd_ma Set ObjRs = objConn.Execute(strSq2) strsql = "Insert into t_hist_uni (cd, cd_ma, nm_ma, qtd_ma, dt_ma, cd_func, nm_func2, loca, data) values ('"&cd&"', '"&cd_ma&"', '"&nm_ma&"', '"&qtd_ma&"', '"&dt_ma&"', '"&cd_func&"', '"&nm_func2&"', '"&loca &"', '"&data&"')" Set ObjRs = ObjConn.execute(strsql)

GALERA OLHA SO alguém ME AJUDE EU tenho OS DADOS DE UMA TABELA1 E GOSTARIA DE GRAVALOS NUMA TABELA2 ONDE O CODIGO DA NOTA FOSSE IGUAL DESEJADO DO VENDEDOR MAS TEM VAIROS CODIGOS NA TABELA1 COM O NUMERO X E GOSTARIA DE PASSAR TODOS SO DADOS COM O CODIGO X PARA A TABELA 2 alguém AI SABE COMO EU FAÇO isso DEIXEM O CODIGO AI POR FAVOR VOU MOSTRAR COMO EU FIZ O MEU

gente me ajuda ai por favor

olha so galare q eu fiz... [ASP] cdnf = Request.QueryString("cdnf") ObjConn.Open conex strSq3 = "select * from t_venda where cd_nf = "&cdnf Set ObjRs = objConn.Execute(strSq3) cd = ObjRs("cd_nf") cd_func = ObjRs("cd_vend") dt_ma = ObjRs("dt_emi") data = ObjRs("dt_lac") cd_ma = ObjRs("cd_prod") nm_ma = ObjRs("nm_prod") qtd_ma = ObjRs("quant") strSq0 = "select * from t_uni where cod = "&cd_ma Set ObjRs = objConn.Execute(strSq0) quantidade_pedida = qtd_ma saldo_em_estoque = Cint(ObjRs("qtd_ma")) if quantidade_pedida > saldo_em_estoque then %> <body <%=colorbg1%>> <script language="javascript"> alert("A QUANTIDADE PEDIDA E MAIOR DO QUE A QUANTIDADE EM ESTOQUE !"); window.location = 'venda.asp' </script> <% Response.End end if estoque = saldo_em_estoque - qtd_ma strSq2 = "Update t_uni Set qtd_ma='"&estoque&"' where cd_ma = "&cd_ma Set ObjRs = objConn.Execute(strSq2) strsql = "Insert into t_hist_uni (cd, cd_ma, nm_ma, qtd_ma, dt_ma, cd_func, nm_func2, loca, data) values ('"&cd&"', '"&cd_ma&"', '"&nm_ma&"', '"&qtd_ma&"', '"&dt_ma&"', '"&cd_func&"', '"&nm_func2&"', '"&loca &"', '"&data&"')" Set ObjRs = ObjConn.execute(strsql) if error <> 0 then Response.Write "Ocorreu o seguinte erro "&err.description&"." else%> <body <%=colorbg1%>> <script language="javascript"> if (confirm(' Gravado com sucesso [ <%=cdnf%> ]...\t\t\n\n» Deseja gerar o comprovante agora ?')) { window.location = 'peruni.asp?cdfunc=<%=cd_func%>'; }else{ window.location = 'venda.asp' } </script> <%end if%> [/ASP] EU FIZ UM COD COM DUAS TABELAS COM OS MSMO VALORES COMO vocês FALARAM MAS QUANDO mas quando mando inserir os valores de um na outra se o cod da nota for igual a o sugerido ai iserir os dados na tabela 2 ai eu fiz um while mas ta dando pau o q eu faço valw galera...

GALERA ESTOU COM UMA DUVIDA MEIO FACIL MAS não ESTOU LEMBRADO ASSIM EU tenho DADOS DE UMA TABELA1 NO ACCESS EU QUERIA FAZER UM SQL Q PEGASSE OS DADOS DA TABELA1 E GRAVASSE NA TABELA2 EU não ESTOU LEMBRANDO COMO E.. ALGUNS DE vocês SABEM ME RESPONDER isso?/ VALW GALERA T+

valw cara..vop tentar aki.... vo so posta uma outra duvida minha aki valwzão

<%=Session.Lcid = 1046%>