Humb
-
Total de itens
16 -
Registro em
-
Última visita
Tudo que Humb postou
-
algum idéia??
-
================cadastra_advogado.asp=============== <!--#include file=conecta.asp--> <html> <head> <title>.::UNICEUMA::. - Cadastro de Advogado - </title> <link href="estilo.css" rel="stylesheet" type="text/css"> </head> <% Cadastro=False IF Request.Form("enviado")="sim" then %> <script> // // Função de validação do formulário function ValidaFormulario () { // Função de validação do formulário - Nome if (document.formulario.Nome.value==""){ // O nome formulario se refere ao nome de seu formulario, caso queira alterar, basta mudar o nome de seu formulário e mudar todas as palavras desta tag com este nome. alert("Digite o Nome Completo"); // Mensagem que será exibida quando o campo não for preenchido document.formulario.Nome.focus(); // O nome Nome se refere ao nome do campo do seu formulário, caso queira alterar, basta mudar o nome do respectivo campo as palavras desta tag correspondentes ao nome do campo. return false; } <% 'caso não houve erro '=========================================POR SQL============================== Sql = "INSERT INTO Advogado(indicativo_advogado_terceirizado, nome, numero_registro_oab, endereco, bairro, cidade, uf, cep, email, telefone_residencial, telefone_celular, telefone_comercial) " Sql = Sql & "VALUES('" & Request.Form("TipoAdvogado") & "','" & Request.Form("Nome") &"','" Sql = Sql & Request.Form("RegistroOAB") &"','" & Request.Form("Endereco") &"','" Sql = Sql & Request.Form("Bairro") &"','" & Request.Form("Cidade") &"','" Sql = Sql & Request.Form("UF") &"','" & Request.Form("CEP") &"','" Sql = Sql & Request.Form("Email") &"','" & Request.Form("Telefone") &"','" Sql = Sql & Request.Form("Celular") &"','" & Request.Form("Comercial") &"')" conn.execute(Sql) conn.close Cadastro=True end if if Cadastro = False then %> =============conecta.asp======================== FontedeDados = "Provider=Microsoft.Jet.OLEDB.4.0; " &_ "Data Source ="& Server.Mappath ("CPJ.mdb") & ";" Set Conn = Server.CreateObject("ADODB.Connection") Conn.open FontedeDados, "", "" Set Rs = Server.CreateObject("ADODB.Recordset") Formate seu post usando a tag CODE
-
tem sim
-
a conexão tah por mappath .... O banco de dados não tá marcado somente para leitura, então não sei o que pode ser.....rpeciso de ajuda mesmo
-
Alguém sabe como criar uma pilha vazia em pacal, inserir elemento e remover elemento??
-
o erro dá na linha 76
-
iae pessoal.....Estou fazendo um controle de processos jurídicos, e estou muito atrasado devido a erros de banco de dados, como não entendo muito de banco de dados peço uma ajuda! No cadastro de advogados quando vou inserir acontece o erro: Tipo de erro: Microsoft JET Database Engine (0x80004005) Operation must use an updateable query. /cpj/cadastra_advogado.asp, line ----------------------------------------- 69- Sql = "INSERT INTO Advogado(indicativo_advogado_terceirizado, nome, numero_registro_oab, endereco, bairro, cidade, uf, cep, email, telefone_residencial, telefone_celular, telefone_comercial) " 70- Sql = Sql & "VALUES('" & Request.Form("TipoAdvogado") & "','" & Request.Form("Nome") &"','" 71- Sql = Sql & Request.Form("RegistroOAB") &"','" & Request.Form("Endereco") &"','" 72- Sql = Sql & Request.Form("Bairro") &"','" & Request.Form("Cidade") &"','" 73- Sql = Sql & Request.Form("UF") &"','" & Request.Form("CEP") &"','" 74- Sql = Sql & Request.Form("Email") &"','" & Request.Form("Telefone") &"','" 75- Sql = Sql & Request.Form("Celular") &"','" & Request.Form("Comercial") &"')" 76- conn.execute(Sql) 77- conn.close 78- Cadastro=True
-
Usei a propriedade do scripting.dictionary para validar os dados de um formulário para uma página de cadastro... porque dá esse erro? Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01AD) O componente do ActiveX não pode criar objeto: 'scripting.dictionary' /compremaisbarato/admin/cadastro_adm.asp, line 8 e meu banco de dados tah todo certinho......mas tah como se tivesse somente para leitura Tipo de erro: Microsoft JET Database Engine (0x80040E09) Cannot update. Database or object is read-only.
-
Algém sabe me indicar servidor de asp pago.....até 100 mb d espaço e ateh R$20 por mês
-
Assim....Eu quero ter um site para comparar precos de diversas lojas... daí o usuário entra no site, e quer procurar por uma placa de vídeo por exemplo......ele busca a palavra, e serão listadas todas as lojas q tem esse produto com o respectivo preço....... quero saber se posso listar essas lojas assim, sem autorização
-
alguém sabe me dizer se tem algo na lei q proíbe de listar produtos e lojas para comparar precos? tipo...quero fazer um sistema de busca da minha cidade para pessoa procurar um produto, e ter opcoes dizendo os precos e a loja....posso fazer isso??
-
ei cara...tem MSN? se sim, qual?
-
exato...tipo vai tudo normal....na hr q mostra a tabela com os produtos comprados, não mostra nem um produto q adicionei e o total como zero
-
é sim
-
tow testando um site feito aqui....dae consegui botar td pra rodar.....fazer a compra, mas não sei qual é o erro na hr de mostrar os produtos já comprados e gravas no banco de dados nas tabelas carrinho...e de produtos comprados.... Aparece total de 0.... "comprados.asp" <!--#include file="restrito.asp"--> <!--#include file="conecta.asp"--> <% Dim Sql, RS if Request.Form("excluindo") = "sim" then Dim N,I, Nomec N = cint(Request.Form("QtItens")) for I=1 to N Nomec = "C"&I if Request.Form(Nomec) <> false then Sql = "DELETE * FROM Carrinho WHERE codCarrinho =" & cint(Request.Form(Nomec)) Rs.Open Sql, Conn,3,3 end if next end if Sql = "SELECT nomeProduto, Quantidade, Carrinho.preço, Carrinho.codCarrinho, NomeCategoria " Sql = Sql & " FROM Carrinho, Produtos, Categorias WHERE Produtos.CodCategoria = Categorias.CodCategoria" Sql = Sql & " AND Produtos.codProduto = Carrinho.CodProduto AND Carrinho.codCliente = " & Session("codCliente") Rs.Open Sql, Conn,3,3 %> <font face=verdana size=2> <b> Produto(s) escolhido(s) até o momento:</b></font><br><br> <table border=1 width=100% cellpadding=1> <form method=post action="comprados.asp"> <input type=hidden name=excluindo value=sim> <tr> <th align=center><font face=verdana size=2> Item </font></th> <th align=center><font face="verdana" size="2">Produto</font></th> <th align=center><font face="verdana" size="2">Categoria</font></th> <th align=center><font face=verdana size=2> Quantidade </font></th> <th align=center><font face=verdana size=2> Preço<br> Unitário </font></th> <th align=center><font face=verdana size=2> Total </font></th> </tr> <% Dim total,totalGeral,Num while not Rs.eof Num = Num + 1 %> <tr> <td align=center><input type=checkbox name="C<%=Num%>" value="<%=Rs("codCarrinho")%>"></td> <td><font face=verdana size=2><%=RS("nomeProduto")%> </font> </td> <td align=right><font face=verdana size=2><%=RS("nomeCategoria")%> </font> </td> <td align=right><font face=verdana size=2><%=RS("quantidade")%> </font> </td> <td align=right><font face=verdana size=2>R$ <% = FormatNumber(Rs("preço"),2)%></font></td> <% total = Rs("quantidade") * Rs("preço")%> <td align=right><font face=verdana size=2>R$ <%= FormatNumber(total,2)%> </font></td> </tr> <%totalGeral = totalGeral + total Rs.MoveNext wend %> <tr> <td colspan=5 align=right><font face=verdana size=2>Total Geral </font></td> <td align=right><font face=verdana size=2>R$ <%= FormatNumber(totalGeral,2)%> </font></td> <tr> <td align=center> <p><input border="0" src="images/excluir.gif" name="I1" width="65" height="21" type="image"> </p> </td> <td colspan=5 align=center> <p><a href="compras.asp"><img border="0" src="images/continuar.gif" width="70" height="23"></a> <a href = finaliza.asp><img border="0" src="images/finalizar.gif" width="68" height="25" ></a></p> </td></tr> </table> <input type=hidden name=QtItens value="<%=Num%>"> </form> <% Conn.close %>
-
oláa!! Eu estou tentando botar uma figura de uma carrinho num logo....mas o problema q a figura tem o fundo branco.....e eu quero extrair só o carrinho da figura pra deixar o fundo do meu logo mesmo..... alguém pode me dá um toque?? valeus.. a foto está em http://www.odontofacil.com.br/pesquisa.jsp ..dae se alguém souber alterá-la.....