Ir para conteúdo
Fórum Script Brasil

Aldan Nunes

Membros
  • Total de itens

    41
  • Registro em

  • Última visita

Sobre Aldan Nunes

  • Data de Nascimento 30/11/1985

Contatos

  • MSN
    aldanptu@gmail.com

Perfil

  • Gender
    Male
  • Location
    Paracatu - MG

Aldan Nunes's Achievements

0

Reputação

  1. Aldan Nunes

    ORDENAR CONSULTA

    Galera é o seguinte tenho esta consulta juntamente com a exibição em html. O problema é o seguinte não estou conseguindo exibir em ordem esta consulta e ela está duplicando alguns dados segue a consulta. <?php $consultNF = mysql_query("SELECT i.notafiscal, i.codMaterial, i.quantidade as QTITEMNF, notf.id as notanumero, notf.numeroNF, notf.fornecedor, notf.tipMovimento AS TPMOVNF, DATE_FORMAT(notf.dataRecebimento , '%d/%m/%Y') AS dtrecebimento, notf.ordemcompra as ordCompra, forn.id as idforn, forn.Nome as nomforn, DATE_FORMAT(movmat.data , '%d/%m/%Y') as dtMovMat, movmat.origem as OrigMovMat, movmat.destino as DestMovMat, movmat.quantidade as QuantMovMat, movmat.tipMovimento AS TPMOVMAT, msdra.RA as RAMovSaida, DATE_FORMAT(msdra.data , '%d/%m/%Y') as dtMovSaida, msdra.localizacao as locMovSaida, msdra.quantidade as QuantMovSaida, msdra.tipMovimento AS TPMOVRA FROM itemnotafiscal i, notafiscal notf, fornecedor forn, movimentacaomaterial movmat, movimentosaidara msdra WHERE i.codMaterial = '".$id."' AND i.notafiscal=notf.id AND notf.fornecedor = forn.id AND msdra.codmaterial = i.codmaterial AND movmat.codmaterial = i.codmaterial ORDER BY notf.datarecebimento, movmat.data, msdra.data")or die (mysql_error()); while($ItemNF = mysql_fetch_array($consultNF)){ ?> <tr> <td height="20" align="left"><?php echo $ItemNF['TPMOVNF']; ?></td> <td height=20" align="left"><?php echo $ItemNF['dtrecebimento]; ?></td> <td height="20" align="left"></td> <td height="20" align="left"></td> <td height="20" align="center"><?php echo $ItemNF['QTITEMNF']; ?></td> <td height=20" align="left"><?php echo $ItemNF['notanumero]; ?> - &nbsp;<?php echo $ItemNF['idforn']; ?>&nbsp;(<?php echo $ItemNF['nomforn'];?>)</td> <td height=20" align="center"><?php echo $ItemNF['ordCompra]; ?> </td> </tr> <tr> <td height="20" align="left"><?php echo $ItemNF['TPMOVMAT']; ?></td> <td height=20" align="left"><?php echo $ItemNF['dtMovMat]; ?></td> <td height="20" align="left"><?php echo $ItemNF['OrigMovMat']; ?></td> <td height=20" align="left"><?php echo $ItemNF['DestMovMat]; ?></td> <td height="20" align="center"><?php echo $ItemNF['QuantMovMat']; ?></td> <td height=20" align="left"><?php echo $ItemNF['notanumero]; ?></td> <td height="20" align="center"> </td> </tr> <tr> <td height="20" align="left"><?php echo $ItemNF['TPMOVRA']; ?></td> <td height=20" align="left"><?php echo $ItemNF['dtMovSaida]; ?></td> <td height="20" align="left"><?php echo $ItemNF['OrigMovMat']; ?></td> <td height=20" align="left"></td> <td height="20" align="center"><?php echo $ItemNF['QuantMovSaida]; ?></td> <td height="20" align="left"><?php echo $ItemNF['RAMovSaida'];?></td> <td height="20" align="center"> </td> </tr> <?php } ?>
  2. Bacana conseguir resolver esta duvida só que percebi que no IE e no firefox não fazem a chamada dos itens conforme o botão clicado. Conforme segue o código abaixo segue quando eu clico no botão editar ele vai para a parte onde tem if(isset($_POST['edit'])) e realiza os procedimentos e o mesmo é feito para o botão excluir quando clicado ele chama if(isset($_POST['excluir'])) e realiza os procedimentos. No chrome está perfeitamente faz todo o procedimento mas no IE r Firefox ele nem aparece. Clico e não aparece nada o que pode ser? abraço <?php include("../../conect/conexao.php"); ?> <!-- Inicio da inclusão de arquivos para montagem da tabela dinâmica --> <script src="../tabeladinamica/media/js/jquery-1.4.4.min.js" type="text/javascript"></script> <script src="../tabeladinamica/media/js/jquery.dataTables.min.js" type="text/javascript"></script> <script src="../tabeladinamica/media/js/jquery-ui.js" type="text/javascript"></script> <script src="../tabeladinamica/media/js/jquery.validate.js" type="text/javascript"></script> <script src="../js/js.js" type="text/javascript"></script> <!-- Fim da inclusão de arquivos para montagem da tabela dinâmica --> <script type="text/javascript" src="../../../js/jspopupnbloqueavel.js"></script> <?php include("../../conect/conexao.php"); ?> <?php if(isset($_POST['excluir'])){ if(!isset($_POST['check'])){ echo"<script type='text/javascript'>alert('Selecione um registro para ser excluido'); window.location.href='index.php'</script>"; }else{ $check = $_POST['check']; foreach ($check as $valor){ $DEL = "DELETE FROM menuprincipal WHERE idmenuprincipal ='$valor'"; $qr = mysql_query($DEL); echo"<script type='text/javascript'> alert('Registro excluido com sucesso'); window.location.href='index.php'</script>'"; return false; } } } ?> <?php if(isset($_POST['edit'])){ if(!isset($_POST['check'])){ echo"<script type='text/javascript'>alert('Selecione um registro para ser editado'); window.location.href='index.php'</script>"; }else{ $check = $_POST['check']; foreach ($check as $valor){ $sql_busca = mysql_query("SELECT * FROM menuprincipal WHERE idmenuprincipal = '$valor'"); $linha = mysql_fetch_array($sql_busca); $id = $linha['idmenuprincipal']; echo ' <form method="post" action="UpdateMenIntGeral.php?id='.$id.'"> <p> <label for="txtdescricao"></label> <input name="txtdescricao" type="text" class="textCorpForm" id="txtdescricao" size="60" value="'.$linha['NomeMenu'].'"> </p> <p> <input name="txtdescricao2" type="text" class="textCorpForm" id="txtdescricao2" size="60" value="'.$linha['LinkMenuPrincipal'].'" /> </p> <p> <input name="txtdescricao3" type="text" class="textCorpForm" id="txtdescricao3" size="60" value="'.$linha['IconeMenuPrincipal'].'" /> <br> <br> <input name="button2" type="submit" class="textCorpForm" id="button2" value="Salvar" /> </p> </form> '; return false; } } } ?> <!-- chamando css da tabela dinâmica --> <style type="text/css" title="currentStyle"> @import "../tabeladinamica/media/css/demo_page.css"; @import "../tabeladinamica/media/css/demo_table.css"; @import "../tabeladinamica/media/css/demo_validation.css"; @import "../tabeladinamica/media/css/themes/base/jquery-ui.css"; @import "../tabeladinamica/media/css/themes/smoothness/jquery-ui-1.7.2.custom.css"; </style> <!-- Fim css da tabela dinâmica --> <body id="dt_example"> <form id="myForm" method="post" name="formularioCheckbox"> <div id="container"> <div id="demo" class="textcorpoT"> </br> <table cellpadding="0" cellspacing="0" border="0" class="display" id="example" background="../tabeladinamica/media/images/header-bg.gif"> <thead> <tr> <th width="2%" class="textcorpoT2"><input type="checkbox" id="checkAll"/></input></th> <th width="3%" class="textcorpoT2">Código</th> <th width="79%" class="textcorpoT2">Descrição</th> </tr> </thead> <tbody class="textcorpoT2"> <?php $SQL = "SELECT idmenuprincipal, NomeMenu FROM menuprincipal ORDER BY idmenuprincipal asc"; $executa = mysql_query($SQL); while($exibir = mysql_fetch_assoc($executa)){ echo' <tr class="odd_gradeX" id="'.$exibir['idmenuprincipal'].'"> <td class="read_only textcorpoT"><input name="check[]" value="'.$exibir['idmenuprincipal'].'" type="checkbox"></input></td> <td class="read_only textcorpoT" align="center">'.$exibir['idmenuprincipal'].'</td> <td class="textcorpoT">'.$exibir['NomeMenu'].'</td> </tr>'; } ?> </tbody> <input type="image" src="../icone/excluir.png" name="excluir" value="Deletar"/></input>&nbsp;&nbsp;&nbsp;&nbsp; <input type="image" src="../icone/edit.png" name="edit" value="Editar"/ ></input>&nbsp;&nbsp;&nbsp; <?php echo "<a href=\"#\" onClick=\"abre('InsertMenuPrinc.php')\"><img src='../icone/novo.png' border='0'></a><br><br>"; ?> </table> </div> <div class="spacer"></div> </div> </form> </body>
  3. Eu ainda não mechi nele pelo fato de estar com um outro problema assim q terminalo irei tentar.
  4. A minha versão é o 9. E os botões que não aparecem são estes 2 mesmo o editar e o excluir. abraço
  5. beleza irei implementar aqui desculpe a demora para responder estava terminando outras funções por isso não respondi. vlw abraço
  6. Galera é o seguinte montei um script onde exibo os dados de uma tabela do banco de dados e também coloquei um array de um checkbox para ser exibido também só que esta acontecendo um probleminha que não conseguir entender de jeito nenhum. No Chrome ele aparece blzinha mostra tdo certinho conforme tem que ser só que no Internet explorer os ícones eles não aparecem. Segue abaixo o script e também as 2 telas tanto a do chrome quanto a do internet explorer. <?php include("../../conect/conexao.php"); ?> <!-- Inicio da inclusão de arquivos para montagem da tabela dinâmica --> <script src="../tabeladinamica/media/js/jquery-1.4.4.min.js" type="text/javascript"></script> <script src="../tabeladinamica/media/js/jquery.dataTables.min.js" type="text/javascript"></script> <script src="../tabeladinamica/media/js/jquery.jeditable.js" type="text/javascript"></script> <script src="../tabeladinamica/media/js/jquery-ui.js" type="text/javascript"></script> <script src="../tabeladinamica/media/js/jquery.validate.js" type="text/javascript"></script> <script src="../tabeladinamica/media/js/jquery.dataTables.editable.js" type="text/javascript"></script> <script src="../js/js.js" type="text/javascript"></script> <!-- Fim da inclusão de arquivos para montagem da tabela dinâmica --> <script type="text/javascript" src="../../../js/jspopupnbloqueavel.js"></script> <style type="text/css" title="currentStyle"> @import "../tabeladinamica/media/css/demo_page.css"; @import "../tabeladinamica/media/css/demo_table.css"; @import "../tabeladinamica/media/css/demo_validation.css"; @import "../tabeladinamica/media/css/themes/base/jquery-ui.css"; @import "../tabeladinamica/media/css/themes/smoothness/jquery-ui-1.7.2.custom.css"; </style> <body id="dt_example"> <form id="myForm" method="post" name="formularioCheckbox"> <div id="container"> <div id="demo" class="textcorpoT"> </br> <table cellpadding="0" cellspacing="0" border="0" class="display" id="example" background="../tabeladinamica/media/images/header-bg.gif"> <thead> <tr> <th width="2%" class="textcorpoT2"><input type="checkbox" id="checkAll" /></input></th> <th width="3%" class="textcorpoT2">Código</th> <th width="79%" class="textcorpoT2">Descrição</th> </tr> </thead> <tbody class="textcorpoT2"> <?php include("deleta.php"); $SQL = "SELECT idmenuprincipal, NomeMenu FROM menuprincipal ORDER BY idmenuprincipal asc"; $executa = mysql_query($SQL); while($exibir = mysql_fetch_assoc($executa)){ echo' <tr class="odd_gradeX" id="'.$exibir['idmenuprincipal'].'"> <td class="read_only textcorpoT"><input name="check[]" value="'.$exibir['idmenuprincipal'].'" type="checkbox"></input></td> <td class="read_only textcorpoT" align="center">'.$exibir['idmenuprincipal'].'</td> <td class="textcorpoT">'.$exibir['NomeMenu'].'</td> </tr>'; } echo "<input type='image' src='../icone/excluir.png' name='excluir' value='Deletar'/></input>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type='image' src='../icone/edit.png' name='edit' value='Editar'/></input>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href=\"#\" onClick=\"abre('InsertMenuInt.php')\"><img src='../icone/novo.png'></a><br><br>"; ?> </tbody> </table> </div> <div class="spacer"></div> </div> </form> </body>
  7. Pois é eu até vi alguns comentários a respeito desta possibilidade mas não consigo implementar no código acima será que alguém pode me ajudar a fazer isso? abraço galera
  8. Bom galera eu estou querendo desenvolver uma forma que quando o usuário tentar logar no sistema 3 vezes e não estiver colocando a senha certa bloquei aquele usuário. tipo atualiza no banco de dados o valor da minha coluna acesso de 1 para 0 pois quando faço o cadastro do usuário ele já entra com 1 (acesso). Estou enviando a minha tela de login para que possam ver e me ajudarem a resolver este problema. <?php //INCLUSAO DE FUNÇÃO PARA CRIAR O LOG DE ACESSO include("log.php"); // 01 VERIFICA SE FOI ENVIADO AS VARIÁVEIS ATRAVÉS DO POST if(isset($_POST['login']) && $_POST['login'] != "" && $_POST['senha'] != "") { // CONEXÃO COM O BANCO DE DADOS $conect = mysql_connect("172.22.17.36", "root", "nneto1010"); // CASO HAJA FALHA NA CONEXÃO DÁ UM ALERTA if (!$conect) echo '<script>alert("Falha na conexão com o bando de dados!")</script>'; // CONECTANDO AO BANCO COLOCA AS INFORMAÇÕES NA VARIÁVEL $bd. $db = mysql_select_db("secq"); // RECEBE AS VARIÁVEIS VIA POST E TRATA O SQL INJECTION FINALIZANDO COM A CODIFICAÇÃO MD5 $LoginPost = addslashes($_POST['login']); $SenhaPost = addslashes($_POST['senha']); $Login = $LoginPost; $Senha = $SenhaPost; // VERIFICA SE EXISTE USUÁRIOS CADASTRADOS COM O LOGIN E SENHA INFORMADO $MySQL = "SELECT * FROM usuario WHERE idUsuario = '".$Login."' && senha = '".$Senha."' && ativo = '1'"; $Busca = mysql_query($MySQL, $conect) or die(mysql_error()); $Res = mysql_fetch_assoc($Busca); $Cont = mysql_num_rows($Busca); // VERIFICA SE ACHOU ALGUM USUÁRIO CADASTRADO CASO CONTRÁRIO DÁ UM ALERTA PARA O USUÁRIO if($Cont == 0) { echo '<script>alert("Login ou senha inválido ou usuário desativado")</script>'; } elseif ($Cont == 1) { // CRIA AS SESSÕES DE VALIDAÇÃO DAS PAGINAS session_start(); $_SESSION['NomeLogin'] = $Res['idUsuario']; $_SESSION['NomeUsuario'] = $Res['nome']; // MANDA PARA A PÁGINA DE ADMINISTRAÇÃO header("Location: principal.php"); exit; } } ?> <link href="csslogin/csslogin.css" rel="stylesheet" type="text/css" /> <style type="text/css"> body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; background-color: #FFF; } </style> <script language="JavaScript"> /* Verifica se os campos de login e senha foram preenchidos */ function validaForm() { d = document.login; //Valida Telefonia if (d.login.value == "") { alert("Favor informar o seu login!") d.login.focus(); return false; } //Valida login if (d.senha.value == "") { alert("Favor informar sua senha!"); d.senha.focus(); return false; } return true; } </script> <?php $ip = $_SERVER["REMOTE_ADDR"]; ?> <div id="topLogin"> <br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /> <div id="telogin"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="19" valign="top"><img name="Untitled2_r1_c1" src="../ImgLogin/Untitled-2_r1_c1.png" width="22" height="263" border="0" id="Untitled2_r1_c1" alt="" /></td> <td align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="2" valign="top"><img name="Untitled2_r1_c2" src="../ImgLogin/Untitled-2_r1_c2.png" width="327" height="19" border="0" id="Untitled2_r1_c2" alt="" /></td> </tr> <tr> <td valign="baseline"><img src="../ImgLogin/log3.jpg" width="59" height="69"></td> <td width="268" height="69" valign="top" background="../ImgLogin/log4.jpg" class="titulologin"><br /> Sistema de login adMat</td> </tr> <tr> <td colspan="2" valign="baseline" background="../ImgLogin/logo7.jpg" height="123" align="right"> <form id="login" name="login" method="post" action="" onSubmit="return validaForm()"> <table width="82%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="24%" class="logsenha">&nbsp;</td> <td width="76%">&nbsp;</td> </tr> <tr> <td class="logsenha">Usuário:</td> <td> <input name="login" type="text" class="formlogin" autocomplete="off" id="login" value="" size="26" align="left" /></td> </tr> <tr> <td colspan="2" class="logsenha"><img src="../ImgCss/trans.png" width="10" height="6" /></td> </tr> <tr> <td class="logsenha">Senha:</td> <td><input name="senha" type="password" class="formlogin" id="senha" value="" size="26" align="left" /></td> </tr> <tr> <td colspan="2" class="logsenha"><img src="../ImgCss/trans.png" width="10" height="6" /></td> </tr> <tr> <td class="logsenha">&nbsp;</td> <td><table width="88%" border="0" align="left" cellpadding="0" cellspacing="0"> <tr> <td align="right"><input name="button" type="submit" class="formlogin" id="button" value="Enviar" /></td> </tr> </table></td> </tr> </table> </form></td> </tr> <tr> <td colspan="2" valign="top" background="../ImgLogin/Untitled-2_r4_c2.png" width="327" height="52"><table width="92%" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="logsenha"><?php echo "$ip "; ?></td> <td class="logsenha" align="right">Sistema totalmente seguro</td> </tr> </table></td> </tr> </table></td> <td valign="top"><img src="../ImgLogin/Untitled-2_r1_c4.png" width="17" height="263"></td> </tr> </table> </div> </div> <div id="rodLogin"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="2" align="right"><img src="../ImgCss/trans.png" width="20" height="10" /></td> </tr> <tr> <td width="39%" align="right"><div id="logprodape"></div></td> <td width="61%" class="logsenha"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="../ImgCss/trans.png" width="10" height="18" /></td> </tr> <tr> <td class="logsenha">&nbsp;&nbsp;&nbsp;Administração de Materiais - Alusa Engenharia Ltda - COMPERJ</td> </tr> </table></td> </tr> <tr> <td colspan="2" align="right"><img src="../ImgCss/trans.png" width="10" height="4" /></td> </tr> </table> </div>
  9. Estou mandando disparar o email. ele sempre da um erro. o código do arquivo de envio segue abaixo. <!-- #include file = "config.asp" --> <!-- #include file = "funcoes.asp" --> <% byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Caminho completo dos arquivos enviados caminho_anexo = UploadRequest.Item("anexo").Item("FileName") ' Nome dos arquivos enviados nome_anexo = Right(caminho_anexo,Len(caminho_anexo)-InstrRev(caminho_anexo,"\")) ' Conteudo binario dos arquivos enviados anexo = UploadRequest.Item("anexo").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("informativos") nome_anexo = "/"&nome_anexo ' pasta + nome dos arquivos canexo = "www.atenas.edu.br/faculdade/adm/news/informativos"+nome_anexo ' Fazendo o Upload do arquivo selecionado if anexo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_anexo) For i = 1 to LenB(anexo) MyFile.Write chr(AscB(MidB(anexo,i,1))) Next MyFile.Close end if assunto = UploadRequest.Item("assunto").Item("Value") mensagem = UploadRequest.Item("mensagem").Item("Value") data = data() 'Abre a conexao com o banco de dados Set Conex = Server.CreateObject ("ADODB.Connection") Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("banco_new.mdb") 'Faz a listagem dos usuarios para pegar o nome Set listar = Server.CreateObject("ADODB.Recordset") sql = "Select * from informativos" listar.open sql, conex, 1,1 'Faz um while while not listar.eof 'Pega o nome e o email do usuario Set nome = Server.CreateObject("ADODB.Recordset") sql = "Select * from informativos where id="&listar("id") &"and receber='1'" nome.open sql, conex, 1,1 while not nome.eof 'envia o e-mail Set objmail = Server.CreateObject("CDONTS.NewMail") objmail.from = nome_admin & "<"&email_admin&">" objmail.to = nome("email") objmail.subject = assunto objmail.body = "Olá <b>"& nome("nome") & "</b><br><br> " & mensagem & "</b><br><br> " & canexo objMail.Bodyformat = 0 objMail.MailFormat = 0 objmail.send 'Move para o próximo registro nome.movenext wend listar.movenext wend ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("InfEnv.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' atualiza o pedigree sql = "insert into informativos (assunto, mensagem, anexo, data) values ('"&assunto&"','"&mensagem&"','"&canexo&"','"&data&"')" Conexao.Execute(sql) ' Redireciona após 5 segundos response.write "<br><br>você será redirecionado em 3 segundos..<br>" response.write "<meta http-equiv='refresh' content='3; url=default.asp'/>" %> Me ajudem por favor. O erro é este abaixo: Active Server Pages error 'ASP 0113' Script timed out /faculdade/adm/news/enviar_informativo.asp The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.
  10. Galera é o seguinte hoje tem um sisteminha onde eu tenho q limitar a quantidade de imagens que quero ter no gerenciador com isso se caso um cliente queira aumentar a quantidade de fotos no gerenciador eu terei que editar ele manuamente e aumentar no código cada foto a ser inserida. Exemplo: se eu criar um site onde podera ser exibido apenas 50 fotos no meu gerenciador irei fazer manualmente para 50 fotos apenas se futuramente o cliente precisar de 60 irei ter q mecher na codificação apra que funcione com mais fotos. Bom eu gostaria de associar um upload de várias imagens e não precisar limitar a quantidade de fotos a serem inseridas. Tipo se fiz o upload de 100 fotos essas fotos entram no gerenciador e são mostrada naquele evento que foram inseridas. hj uso dessa forma aqui que segue abaixo. <% If Not IsEmpty(Request.Form) Then Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon campo_duplicado = false campo_msg = "" If campo_duplicado = false Then Set objRS= Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 3 objRS.CursorType = 0 objRS.LockType = 3 strQ = "SELECT * FROM conteudo Where 1 <> 1" objRS.Open strQ, objCon, , , &H0001 objRS.Addnew() If objRS.Fields("id").properties("IsAutoIncrement") = False Then objRS("id") = Trim(Request.Form("id")) End If If objRS.Fields("Categoria").properties("IsAutoIncrement") = False Then objRS("Categoria") = Trim(Request.Form("Categoria")) End If If objRS.Fields("Nome").properties("IsAutoIncrement") = False Then objRS("Nome") = Trim(Request.Form("Nome")) End If If objRS.Fields("Descricao").properties("IsAutoIncrement") = False Then objRS("Descricao") = Trim(Request.Form("Descricao")) End If for i=1 to 80 If objRS.Fields("Foto"&i).properties("IsAutoIncrement") = False Then objRS("Foto"&i) = Trim(Request.Form("Foto"&i)) End If next objRS.Update objRS.Close Set objRS = Nothing %> <BR><B>Registro salvo</B><BR>O registro foi cadastrado com sucesso.<BR><BR> <% Else %> <BR><B>Atenção!</B><BR><BR> O campo <%=campo_msg%> <i>"<%=valor_msg%>"</i> não pode ser salvo, pois já está cadastrado na tabela. <BR><A href="java script:history.go(-1)">Clique aqui</a> para voltar ao cadastro</A><BR><BR> <% End If objCon.Close Set objCon = Nothing Else Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon Set objRS= Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 2 objRS.CursorType = 0 objRS.LockType = 3 strQ = "SELECT * FROM conteudo Where 1 <> 1" objRS.Open strQ, objCon, , , &H0001 %> <B>Incluir um novo registro</B><BR>Preencha corretamente os dados abaixo:<BR> <form name="form_incluir" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onSubmit="return verifica_form(this);"> <TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_formulario> <TR class=titulo_campos><TD>id<br> <%If objRS.Fields("id").properties("IsAutoIncrement") = False Then%> <INPUT style="width=50" type="text" name="id" maxlength="255" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> <% Else Response.Write "<B>(Automático)</B>" End If %> </TD></TR> <TR class=titulo_campos><TD>Categoria<BR> <SELECT style="width=350" name="Categoria" df_verificar="sim" onChange="desabilita_cor(this)" class=campos_formulario> <OPTION value=""></OPTION> <% Set objRS2 = Server.CreateObject("ADODB.Recordset") objRS2.CursorLocation = 3 objRS2.CursorType = 3 objRS2.LockType = 1 strQ = "SELECT NomeCat FROM categorias ORDER BY NomeCat ASC" objRS2.Open strQ, objCon, , , &H0001 If Not objRS2.EOF Then While Not objRS2.EOF If Trim(objRS2.Fields.Item("NomeCat").Value) <> "" Then Response.Write " <OPTION value='" & (objRS2.Fields.Item("NomeCat").Value) & "'>" & (objRS2.Fields.Item("NomeCat").Value) & "</OPTION>" End If objRS2.MoveNext Wend End If Response.Write("ok") %> </SELECT> </TD></TR> <TR class=titulo_campos><TD>Nome<br> <%If objRS.Fields("Nome").properties("IsAutoIncrement") = False Then%> <INPUT style="width=350" type="text" name="Nome" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> <% Else Response.Write "<B>(Automático)</B>" End If %> </TD></TR> <TR class=titulo_campos><TD>Descricao<br> <TEXTAREA style="width=350;height=50" name="Descricao" df_verificar="sim" onKeyPress="desabilita_cor(this)" class=campos_formulario></TEXTAREA> </TD></TR> <% for i=1 to 80 %> <TR class=titulo_campos><TD>Foto<%=i%> (URL)<br> <INPUT type="hidden" name="Foto<%=i%>" value="imagens/noimage.gif" df_verificar="sim"> <DIV id="Layer1" style="width: 1px; height:1px; visibility: visible; border:1px solid black"><img name="img_Foto<%=i%>" src="imagens/noimage.gif" border="0"></DIV> › <a href="df_upload_imagens.asp?campo=<%=Server.URLEncode("Foto<%=i%>")%>&pasta=<%=Server.URLEncode("Eventos")%>" onClick="abre_janela(250, 300, 'alterar_imagem')" target="alterar_imagem" class="texto_pagina">Enviar Imagem</a> </TD></TR> <% next %> </TABLE> <input type="submit" name="submit" value="Enviar" class=botao_enviar> </form> <% objCon.Close Set objCon = Nothing End If %> </BODY> </HTML> <% Else Response.Write "<B>Acesso negado...</B> somente o administrador do site tem acesso a esta página." Response.Write "<BR><a href=""" & pagina_login & """ class=""texto_pagina"">Clique aqui</a> para efetuar login no sitema" End If %><% If Not IsEmpty(Request.Form) Then Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon campo_duplicado = false campo_msg = "" If campo_duplicado = false Then Set objRS= Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 3 objRS.CursorType = 0 objRS.LockType = 3 strQ = "SELECT * FROM conteudo Where 1 <> 1" objRS.Open strQ, objCon, , , &H0001 objRS.Addnew() If objRS.Fields("id").properties("IsAutoIncrement") = False Then objRS("id") = Trim(Request.Form("id")) End If If objRS.Fields("Categoria").properties("IsAutoIncrement") = False Then objRS("Categoria") = Trim(Request.Form("Categoria")) End If If objRS.Fields("Nome").properties("IsAutoIncrement") = False Then objRS("Nome") = Trim(Request.Form("Nome")) End If If objRS.Fields("Descricao").properties("IsAutoIncrement") = False Then objRS("Descricao") = Trim(Request.Form("Descricao")) End If or i=1 to 80 If objRS.Fields("Foto"&i).properties("IsAutoIncrement") = False Then objRS("Foto"&i) = Trim(Request.Form("Foto"&i)) End If next objRS.Update objRS.Close Set objRS = Nothing %> <BR><B>Registro salvo</B><BR>O registro foi cadastrado com sucesso.<BR><BR> <% Else %> <BR><B>Atenção!</B><BR><BR> O campo <%=campo_msg%> <i>"<%=valor_msg%>"</i> não pode ser salvo, pois já está cadastrado na tabela. <BR><A href="java script:history.go(-1)">Clique aqui</a> para voltar ao cadastro</A><BR><BR> <% End If objCon.Close Set objCon = Nothing Else Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon Set objRS= Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 2 objRS.CursorType = 0 objRS.LockType = 3 strQ = "SELECT * FROM conteudo Where 1 <> 1" objRS.Open strQ, objCon, , , &H0001 %> <B>Incluir um novo registro</B><BR>Preencha corretamente os dados abaixo:<BR> <form name="form_incluir" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onSubmit="return verifica_form(this);"> <TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_formulario> <TR class=titulo_campos><TD>id<br> <%If objRS.Fields("id").properties("IsAutoIncrement") = False Then%> <INPUT style="width=50" type="text" name="id" maxlength="255" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> <% Else Response.Write "<B>(Automático)</B>" End If %> </TD></TR> <TR class=titulo_campos><TD>Categoria<BR> <SELECT style="width=350" name="Categoria" df_verificar="sim" onChange="desabilita_cor(this)" class=campos_formulario> <OPTION value=""></OPTION> <% Set objRS2 = Server.CreateObject("ADODB.Recordset") objRS2.CursorLocation = 3 objRS2.CursorType = 3 objRS2.LockType = 1 strQ = "SELECT NomeCat FROM categorias ORDER BY NomeCat ASC" objRS2.Open strQ, objCon, , , &H0001 If Not objRS2.EOF Then While Not objRS2.EOF If Trim(objRS2.Fields.Item("NomeCat").Value) <> "" Then Response.Write " <OPTION value='" & (objRS2.Fields.Item("NomeCat").Value) & "'>" & (objRS2.Fields.Item("NomeCat").Value) & "</OPTION>" End If objRS2.MoveNext Wend End If Response.Write("ok") %> </SELECT> </TD></TR> <TR class=titulo_campos><TD>Nome<br> <%If objRS.Fields("Nome").properties("IsAutoIncrement") = False Then%> <INPUT style="width=350" type="text" name="Nome" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> <% Else Response.Write "<B>(Automático)</B>" End If %> </TD></TR> <TR class=titulo_campos><TD>Descricao<br> <TEXTAREA style="width=350;height=50" name="Descricao" df_verificar="sim" onKeyPress="desabilita_cor(this)" class=campos_formulario></TEXTAREA> </TD></TR> <% for i=1 to 80 %> <TR class=titulo_campos><TD>Foto<%=i%> (URL)<br> <INPUT type="hidden" name="Foto<%=i%>" value="imagens/noimage.gif" df_verificar="sim"> <DIV id="Layer1" style="width: 1px; height:1px; visibility: visible; border:1px solid black"><img name="img_Foto<%=i%>" src="imagens/noimage.gif" border="0"></DIV> › <a href="df_upload_imagens.asp?campo=<%=Server.URLEncode("Foto<%=i%>")%>&pasta=<%=Server.URLEncode("Eventos")%>" onClick="abre_janela(250, 300, 'alterar_imagem')" target="alterar_imagem" class="texto_pagina">Enviar Imagem</a> </TD></TR> <% next %> </TABLE> <input type="submit" name="submit" value="Enviar" class=botao_enviar> </form> <% objCon.Close Set objCon = Nothing End If %> </BODY> </HTML> <% Else Response.Write "<B>Acesso negado...</B> somente o administrador do site tem acesso a esta página." Response.Write "<BR><a href=""" & pagina_login & """ class=""texto_pagina"">Clique aqui</a> para efetuar login no sitema" End If %>
  11. Galera é o seguinte. eu estou precisando de uma ajudinha de vocês o que acontece é o seguinte. Eu tenho 5 combobox é mais ou menos isso aqui: PRODUTOR: ->produtor1 ->produtor2 ->produtor3 CAMPO: ->campo1 ->campo2 ->campo3 TRANSPORTADORA: ->transportadora1 ->transportadora2 ->transportadora3 VEICULO: ->veículo1 ->veículo2 ->veículo3 FÁBRICA: ->fabrica1 ->fabrica2 ->fabrica3 Então galera tipo quando selecionar produtor aparecerá os campos daquele produtor selecionado quando clicar em um dos campos aparecerá as transportadoras daquele determinado campo, quando clicar em uma das transportadoras aparecerá os veículos daquela determinada transportadora e quando clicar em um dos veículos aparecerá a fábrica. Queria fazer isso sem dar os refresh sei que no ajax é possível só que até o momento não conseguir. se puderem dar uma ajudinha ae... vlw
  12. Bom rafael a minha dificuldade está em quase tudo para ser sincero, dei algumas pesquisadas no google sim só q não conseguir ter um sucesso nas pesquisas, mais você conseguiu compreender o que eu pretendo fazer né, queria uma luz por onde começar e o que vou precisar para começar. agradeço
  13. Bom galera é o seguinte estou criando um Repositório de Artefatos de Software onde será enviado um arquivo zip e um Xml onde irei arquivar em banco o arquivo xml esse terá as informações de onde vai estar o zip e prévia do que tem dentro do zip, se alguém souber alguém similar a isso e puder me ajudar. Resumindo eu preciso de um script para Ler o xml e identificar qual é o arquivo zip desse XML. Agradeço a atenção.
  14. Vlw jow.. resolveu meu problema. Podem fechar o tópico.. abraço
  15. Bom galera é o seguinte eu tenho em minha página no administrativo um ícone onde eu faço upload de baners, tanto em flash quanto como imagem mesmo. Só que é o seguinte quando faço o upload deles vãao pro BD numa boa mais na página inicial quando é para exibir o arquivo em flash ele não aparece, eu sei que tem q fazer algo mais não sei o que se puderem me ajudar.
×
×
  • Criar Novo...