Humm, então criei uma pagina simples com um insert em uma tabela access e deu certo
[codebox]<%@ Language=VBScript %>
<% Option Explicit %>
<%
'conexao teste com mdb
Dim localbd, bd
Set bd = Server.CreateObject("ADODB.Connection")
localbd = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("banco.mdb")
bd.Open localbd
Dim sql, rs
Dim cd_pedido
Set rs = Server.CreateObject("ADODB.RecordSet")
if Request.Form("btenvia") = "Gerar Numero" then
'Novo numero
SQL = "SELECT MAX(N_PEDIDO)+1 AS ULITMO_PEDIDO FROM PEDIDO"
Set rs = bd.Execute (sql)
cd_pedido = rs.Fields("ULITMO_PEDIDO").Value
'inserindo novo numero
bd.Execute ("INSERT INTO PEDIDO (N_PEDIDO) VALUES (" & cd_pedido & ")")
rs.Close
end if
'verificando numero
SQL = "SELECT MAX(N_PEDIDO) AS ULITMO_PEDIDO FROM PEDIDO"
Set rs = bd.Execute (sql)
cd_pedido = rs.Fields("ULITMO_PEDIDO").Value
rs.Close
Set rs = Nothing
bd.Close
Set bd = Nothing
%>
<html>
<head>
<title>Numero Sequencial</title>
</head>
<body>
<center>
<form id="frm" action="Numero_Sequencial.asp" method="post">
Numero do ultimo pedio:<%=cd_pedido%><br>
<input type="submit" id="btenvia" name="btenvia" value="Gerar Numero" />
</form>
</center>
</body>
</html>
[/codebox]
DiegoCoruja's Content
There have been 135 items by DiegoCoruja (Search limited from 20/04/2023)
#986447 [Resolvido] Select Max NãO Passa Do 10
Posted by
on 17/11/2009, 16:40
in
ASP
#986435 [Resolvido] Select Max NãO Passa Do 10
Posted by
on 17/11/2009, 15:26
in
ASP
Ola amigo,
cade o insert do numero do pedido ? nesse codigo voce só está fazendo um select que vai continuar no mesmo resultado!
cade o insert do numero do pedido ? nesse codigo voce só está fazendo um select que vai continuar no mesmo resultado!
#986279 Script Nao Funciona No Ie7 E Ie8
Posted by
on 16/11/2009, 10:01
in
Javascript / DOM / AJAX / ECMAScript
Ola Amigo,
já tentou com block?
document.getElementById(obj).style.display='block';
document.getElementById(obj2).style.display='none';
já tentou com block?
document.getElementById(obj).style.display='block';
document.getElementById(obj2).style.display='none';
#986085 [Resolvido] Gerar Numero Sequencial
Posted by
on 13/11/2009, 08:00
in
ASP
então o que respondi é um exemplo
você tem que trocar as palavras pelos nomes
exemplo Tabele pelo nome da tabela e campo pelo nome do campo
você já em alguma coisa ou não tem nada?
você tem que trocar as palavras pelos nomes
exemplo Tabele pelo nome da tabela e campo pelo nome do campo
você já em alguma coisa ou não tem nada?
#985987 Consulta Entre Dois Servidores
Posted by
on 12/11/2009, 09:41
in
Ajax
Ola amigo, eu acho que você pode escolher qualquer opções que vai estar seguro é só ficar prestando atenção para não deixar o
codigo com sql injection
você pode usar o Ajax para fazer as consultas que tanto pode usar com o php quanto o asp!
codigo com sql injection
você pode usar o Ajax para fazer as consultas que tanto pode usar com o php quanto o asp!
#985965 [Resolvido] Gerar Numero Sequencial
Posted by
on 12/11/2009, 09:07
in
ASP
Ola amigo,
você pode usar o max já que está usando um banco de dados e depois inserir o ultimo codigo usado
[codebox]Select Max(campo)+1 From Tabela[/codebox]
você pode usar o max já que está usando um banco de dados e depois inserir o ultimo codigo usado
[codebox]Select Max(campo)+1 From Tabela[/codebox]
#985836 Mostrar / Esconder Senha Digitada
Posted by
on 10/11/2009, 16:50
in
Javascript / DOM / AJAX / ECMAScript
Ola amigo, eu não sei se da para alterar o tipo do campo pois nunca tentei mas criei uma função que mostra o que
está digitado e o que foi digita no campo password
[codebox]<html>
<head>
<script>
function mostra_senha(id_combo,id_input, id_span){
var objcombo = document.getElementById(id_combo);
var objinput = document.getElementById(id_input);
var objspan = document.getElementById(id_span);
if(objcombo)
{
if(objinput)
{
if(objcombo.checked == 1)
{
//alert("clicado");
if (objspan)
{
objspan.innerHTML = "Senha Atual: <b>" + objinput.value + " </b>";
}
}
else
{
//alert("nao clicado");
if (objspan)
{
objspan.innerHTML = "";
}
}
}
else
{
alert("Não existe o campo senha :" + id_input)
}
}
}
</script>
<title></title>
</head>
<body>
<input type="checkbox" id="combo" name="combo" onclick="mostra_senha(this.id,'input_senha','combo_Mostra')">
<input type="password" id="input_senha" name="input_senha" value="asdasdasd"><span id="combo_Mostra"></span>
</body>
</html>
[/codebox]
está digitado e o que foi digita no campo password
[codebox]<html>
<head>
<script>
function mostra_senha(id_combo,id_input, id_span){
var objcombo = document.getElementById(id_combo);
var objinput = document.getElementById(id_input);
var objspan = document.getElementById(id_span);
if(objcombo)
{
if(objinput)
{
if(objcombo.checked == 1)
{
//alert("clicado");
if (objspan)
{
objspan.innerHTML = "Senha Atual: <b>" + objinput.value + " </b>";
}
}
else
{
//alert("nao clicado");
if (objspan)
{
objspan.innerHTML = "";
}
}
}
else
{
alert("Não existe o campo senha :" + id_input)
}
}
}
</script>
<title></title>
</head>
<body>
<input type="checkbox" id="combo" name="combo" onclick="mostra_senha(this.id,'input_senha','combo_Mostra')">
<input type="password" id="input_senha" name="input_senha" value="asdasdasd"><span id="combo_Mostra"></span>
</body>
</html>
[/codebox]
#985721 Ajax Com Asp - Problema Na Acentuação
Posted by
on 09/11/2009, 17:00
in
Ajax
casildis, ultima tentativa
coloque no ajax
oHTTPRequest.setRequestHeader("encoding", "ISO-8859-1"); ou UTF-8
coloque no ajax
oHTTPRequest.setRequestHeader("encoding", "ISO-8859-1"); ou UTF-8
#985717 Ajax Com Asp - Problema Na Acentuação
Posted by
on 09/11/2009, 16:50
in
Ajax
no script do ajax
tem essa parte?
oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
se tiver mude para essa e ve se da certo!
oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded;charset=UTF-8");
ou
oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded;charset=iso-8859-1");
tem essa parte?
oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
se tiver mude para essa e ve se da certo!
oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded;charset=UTF-8");
ou
oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded;charset=iso-8859-1");
#985713 Ajax Com Asp - Problema Na Acentuação
Posted by
on 09/11/2009, 16:36
in
Ajax
Fiz uma pagina teste e funcionou ficou assim
[codebox]<%@ Language=VBScript %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
</head>
<body>
áéíóú
</body>
</html>
[/codebox]
[codebox]<%@ Language=VBScript %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
</head>
<body>
áéíóú
</body>
</html>
[/codebox]
#985708 Ajax Com Asp - Problema Na Acentuação
Posted by
on 09/11/2009, 16:09
in
Ajax
Já tentou a solução do Alex Hiroshi ?
#985702 Checkbox Change Value
Posted by
on 09/11/2009, 15:24
in
Javascript / DOM / AJAX / ECMAScript
Ola amigo,
no if tenta
if(a[i].checked == 1)
no if tenta
if(a[i].checked == 1)
#985701 [resolvido]select Abrindo Página
Posted by
on 09/11/2009, 15:21
in
Javascript / DOM / AJAX / ECMAScript
Ola amigo,
vou tentar ajudar
[codebox]<script language="javascript">
function jogarDados() {
var valor = new Array("10,00","12,00","14,00","16,00","18,00","20,00","22,00","24,00","26,00","28,00","30,00","32,00");
var peso = new Array("0,20","0,30","0,40","0,50","0,60","0,70","0,80","0,90","1,00","1,10","1,20","1,30");
var link = new Array
link[0] = "Pagina_10.html";
link[1] = "Pagina_12.html";
link[2] = "Pagina_14.html";
link[3] = "Pagina_16.html";
link[4] = "Pagina_18.html";
link[5] = "Pagina_20.html";
link[6] = "Pagina_22.html";
link[7] = "Pagina_24.html";
link[8] = "Pagina_26.html";
link[9] = "Pagina_28.html";
link[10] = "Pagina_30.html";
link[11] = "Pagina_32.html";
var objSelect = document.getElementById("select1");
var txtPeso = document.getElementById("peso1");
var txtValor = document.getElementById("valor1");
var i_Frame = document.getElementById("i_frame");
if (objSelect.value != "")
{
txtPeso.value = valor[eval(objSelect.value)];
txtValor.value = peso[eval(objSelect.value)];
i_Frame.src = link[eval(objSelect.value)];
}
else
{
txtPeso.value = "";
txtValor.value = "";
}
}
</script>
[/codebox]
é só criar o iframe com o mesmo nome.
flw
vou tentar ajudar
[codebox]<script language="javascript">
function jogarDados() {
var valor = new Array("10,00","12,00","14,00","16,00","18,00","20,00","22,00","24,00","26,00","28,00","30,00","32,00");
var peso = new Array("0,20","0,30","0,40","0,50","0,60","0,70","0,80","0,90","1,00","1,10","1,20","1,30");
var link = new Array
link[0] = "Pagina_10.html";
link[1] = "Pagina_12.html";
link[2] = "Pagina_14.html";
link[3] = "Pagina_16.html";
link[4] = "Pagina_18.html";
link[5] = "Pagina_20.html";
link[6] = "Pagina_22.html";
link[7] = "Pagina_24.html";
link[8] = "Pagina_26.html";
link[9] = "Pagina_28.html";
link[10] = "Pagina_30.html";
link[11] = "Pagina_32.html";
var objSelect = document.getElementById("select1");
var txtPeso = document.getElementById("peso1");
var txtValor = document.getElementById("valor1");
var i_Frame = document.getElementById("i_frame");
if (objSelect.value != "")
{
txtPeso.value = valor[eval(objSelect.value)];
txtValor.value = peso[eval(objSelect.value)];
i_Frame.src = link[eval(objSelect.value)];
}
else
{
txtPeso.value = "";
txtValor.value = "";
}
}
</script>
[/codebox]
é só criar o iframe com o mesmo nome.
flw
#985696 Ajax Com Asp - Problema Na Acentuação
Posted by
on 09/11/2009, 15:10
in
Ajax
Ola amigo,
não funciona se colocar Response.Charset = "ISO-8859-1"
?
não funciona se colocar Response.Charset = "ISO-8859-1"
?
#985450 Asp - Javascript Ou Ajax
Posted by
on 06/11/2009, 09:52
in
ASP
Ola amigo não entendi muito bem o que você está com dificuldade mas verifiquei algumas coisas que não estão
muito corretas dei uma arrumada no código
[codebox]
<html>
<head>
<title>Cadastro de Perguntas de Satisfação</title>
<link rel=stylesheet href="misc/style.css" type="text/css">
</head>
<script src="misc/valida.js"></script>
<body>
<center>
<table align="center" bordercolor="#0099FF" width="50%" height="5%" border=1 cellspacing=0 cellpadding=3>
<tr>
<td class="F_Negrito FundoAzulOpaco F_Preto_MM"> Cadastro de Perguntas</td>
</tr>
<td>
<form id="Frm_Cad_Perguntas" name="Frm_Cad_Perguntas" action="pergunta_incluir_salva.asp" method="POST">
<table class="table_form">
<tr>
<td>Insira o tipo
<select id="tipo" name="tipo">
<option value="0" selected>Selecione... </option>
<option value="1">Nota </option>
<option value="2">Reclamação </option>
<option value="3">Perguntas Frequentes </option>
<option value="4">Perguntas Gerente </option>
</select>
</p>
</td>
</tr>
<tr>
<td>Pergunta:<p>
<textarea id="descricao" name="txtdescricao" cols="100" rows="10" Align="center" ></textarea>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</center>
</body>
</html>
[/codebox]
[codebox]<%@ Language=VBScript %>
<!--#include file=Func_ConMySQL.asp-->
<%
'Declarando variáveis
Dim vSQL, vDescricao, vTipo
vTipo = Trim(Request.Form("tipo"))
vDescricao = Trim(Request.Form("descricao"))
'Verificando se as variaveis estão preenchidas
If vTipo = "" Or vDescricao = "" Then
Response.Write"<script language='javaScript'>alert('Escreva a pergunta.');</script>"
Response.Write"<script language='javaScript'>history.back();</script>"
End If
'monta o SQL para inserir a descricao e o tipo informado
vSQL = "insert into tbs_pergunta(descricao) values('"& vDescricao &"')"
db.Execute(vSql)
'Esse insert não seria na tabela de perguntas junto com a descriçao?
vSQL = "insert into tbs_tipo(tipo) values('"& vTipo &"')"
db.Execute(vSql)
db.close
Set db = Nothing
%>[/codebox]
Você estava fechando a conexao antes de dar insert tambem
Esssa segunda pagina que é a de insert , você queria colocar o tipo tambem na tabela de pergunta?
Por algum motivo nao foi a segunda pagina dentro do codebox entao coloquei somente o codigo asp
muito corretas dei uma arrumada no código
[codebox]
<html>
<head>
<title>Cadastro de Perguntas de Satisfação</title>
<link rel=stylesheet href="misc/style.css" type="text/css">
</head>
<script src="misc/valida.js"></script>
<body>
<center>
<table align="center" bordercolor="#0099FF" width="50%" height="5%" border=1 cellspacing=0 cellpadding=3>
<tr>
<td class="F_Negrito FundoAzulOpaco F_Preto_MM"> Cadastro de Perguntas</td>
</tr>
<td>
<form id="Frm_Cad_Perguntas" name="Frm_Cad_Perguntas" action="pergunta_incluir_salva.asp" method="POST">
<table class="table_form">
<tr>
<td>Insira o tipo
<select id="tipo" name="tipo">
<option value="0" selected>Selecione... </option>
<option value="1">Nota </option>
<option value="2">Reclamação </option>
<option value="3">Perguntas Frequentes </option>
<option value="4">Perguntas Gerente </option>
</select>
</p>
</td>
</tr>
<tr>
<td>Pergunta:<p>
<textarea id="descricao" name="txtdescricao" cols="100" rows="10" Align="center" ></textarea>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</center>
</body>
</html>
[/codebox]
[codebox]<%@ Language=VBScript %>
<!--#include file=Func_ConMySQL.asp-->
<%
'Declarando variáveis
Dim vSQL, vDescricao, vTipo
vTipo = Trim(Request.Form("tipo"))
vDescricao = Trim(Request.Form("descricao"))
'Verificando se as variaveis estão preenchidas
If vTipo = "" Or vDescricao = "" Then
Response.Write"<script language='javaScript'>alert('Escreva a pergunta.');</script>"
Response.Write"<script language='javaScript'>history.back();</script>"
End If
'monta o SQL para inserir a descricao e o tipo informado
vSQL = "insert into tbs_pergunta(descricao) values('"& vDescricao &"')"
db.Execute(vSql)
'Esse insert não seria na tabela de perguntas junto com a descriçao?
vSQL = "insert into tbs_tipo(tipo) values('"& vTipo &"')"
db.Execute(vSql)
db.close
Set db = Nothing
%>[/codebox]
Você estava fechando a conexao antes de dar insert tambem
Esssa segunda pagina que é a de insert , você queria colocar o tipo tambem na tabela de pergunta?
Por algum motivo nao foi a segunda pagina dentro do codebox entao coloquei somente o codigo asp
#985348 Ignorar Acentos Em Busca No Bd
Posted by
on 05/11/2009, 10:40
in
ASP
Ola amigo muitos já te deram maneiras de como fazer isso ou tentar fazer , minha ideia para tentar tambem te ajudar está até aqui no forum , a cada palavra digitada com ajax e asp você pode ir fazendo uma previa de busca igual ao site do vagalume, la quando você vai digitando o nome do artista vai aparecendo os possiveis nomes
link
http://forum.wmonlin...howtopic=224196
http://forum.wmonlin...howtopic=116461
Só que ainda não resolveu o problema de busca com acento porque se a palavra com acento for a primeira já não vai aparecer,
Talves se tiver outro campo com palavras relacionadas como descrição
criar uma função para tirar os acentos somente para efetuar a busca tambem pode ajudar!
link
http://forum.wmonlin...howtopic=224196
http://forum.wmonlin...howtopic=116461
Só que ainda não resolveu o problema de busca com acento porque se a palavra com acento for a primeira já não vai aparecer,
Talves se tiver outro campo com palavras relacionadas como descrição
criar uma função para tirar os acentos somente para efetuar a busca tambem pode ajudar!
#985126 Busca No Banco De Dados
Posted by
on 03/11/2009, 10:29
in
ASP
Ola amigo,
tem um erro na linha que você cria o RecordSet
errado
[codebox]set rs=server.createobject("adodb.recod")[/codebox]
certo
[codebox]set rs=server.createobject("adodb.recordset")[/codebox]
se arrumando isso der algum erro, passe para nós o erro que tento ajuda-lo!
tem um erro na linha que você cria o RecordSet
errado
[codebox]set rs=server.createobject("adodb.recod")[/codebox]
certo
[codebox]set rs=server.createobject("adodb.recordset")[/codebox]
se arrumando isso der algum erro, passe para nós o erro que tento ajuda-lo!
#984873 Copiando Arquivo Com Utilizando Fso
Posted by
on 30/10/2009, 10:54
in
ASP
Ola amigo, já tive esse problema
no meu caso eu criava um arquivo e tentava jogar em uma pasta de historico
o problema da minha permissão era que o arquivo estava em uso!
então eu tinha que fechar o obj que estava criando e ai sim copiar
já verificou se ele está em uso?
no meu caso eu criava um arquivo e tentava jogar em uma pasta de historico
o problema da minha permissão era que o arquivo estava em uso!
então eu tinha que fechar o obj que estava criando e ai sim copiar
já verificou se ele está em uso?
#984864 Atualizacao De Frame Superior
Posted by
on 30/10/2009, 09:37
in
HTML, CSS e Metodologias
Ola amigo
Ja tentou?
[codebox]parent.document.getElementById("topo").src = parent.document.getElementById("icont").src;
[/codebox]
Ja tentou?
[codebox]parent.document.getElementById("topo").src = parent.document.getElementById("icont").src;
[/codebox]
#984855 Javascript Em Controle Menu
Posted by
on 30/10/2009, 09:19
in
.NET
Ola beleza,
cara você pode fazer isso no javascript e imagens, mas tem que definir nomes padrões nas imagens
Pagina Teste
[codebox]<html>
<head>
<script>
function Item_Menu(objNome){
var image = document.getElementById(objNome);
if(image)
{
if(image.src.indexOf("1") > 0 )
{
image.src = "imagens/imagem2.jpg";
}
else
{
image.src = "imagens/imagem1.jpg";
}
}
}
</script>
</head>
<body>
<img src="imagens/imagem1.jpg" id="item1" name="item2" onmouseover="Item_Menu(this.name);" onmouseout="Item_Menu(this.name);" style="cursor:hand;"/>
</body>
</html>[/codebox]
cara você pode fazer isso no javascript e imagens, mas tem que definir nomes padrões nas imagens
Pagina Teste
[codebox]<html>
<head>
<script>
function Item_Menu(objNome){
var image = document.getElementById(objNome);
if(image)
{
if(image.src.indexOf("1") > 0 )
{
image.src = "imagens/imagem2.jpg";
}
else
{
image.src = "imagens/imagem1.jpg";
}
}
}
</script>
</head>
<body>
<img src="imagens/imagem1.jpg" id="item1" name="item2" onmouseover="Item_Menu(this.name);" onmouseout="Item_Menu(this.name);" style="cursor:hand;"/>
</body>
</html>[/codebox]
#984854 Asp No Html Ou Html No Asp
Posted by
on 30/10/2009, 09:07
in
ASP
Boa pergunta!
Eu sempre uso a opção 2 porque fica mais facil dar manutenção e tambem tem a facilidade de alguns programas como visual studio e o drenweaver alterar o layout!
Eu sempre uso a opção 2 porque fica mais facil dar manutenção e tambem tem a facilidade de alguns programas como visual studio e o drenweaver alterar o layout!
#984853 Duvida Em Asp Com Sql
Posted by
on 30/10/2009, 08:42
in
ASP
Opa clara que tem ,
dentro do loop você pode criar um if
[codebox]
for i = 0 to ubound(ar_busca)
if len(ar_busca(i)) > 3 then
str_where = str_where & " OR TITULO LIKE '%" & ar_busca(i) & "%"
end if
next
[/codebox]
dentro do loop você pode criar um if
[codebox]
for i = 0 to ubound(ar_busca)
if len(ar_busca(i)) > 3 then
str_where = str_where & " OR TITULO LIKE '%" & ar_busca(i) & "%"
end if
next
[/codebox]
#984546 Duvida Em Asp Com Sql
Posted by
on 26/10/2009, 11:43
in
ASP
Ola amigo,
você pode tentar fazer um split das palavras separada por espaços e colocar no where
ficando assim
[codebox]ar_busca = split(palavra_buscada," ")
for i = 0 to ubound(ar_busca)
str_where = str_where & " OR TITULO LIKE '%" & ar_busca(i) & "%"
next
sql = "Select * from fichas where 1=1 " & str_Where [/codebox]
você pode tentar fazer um split das palavras separada por espaços e colocar no where
ficando assim
[codebox]ar_busca = split(palavra_buscada," ")
for i = 0 to ubound(ar_busca)
str_where = str_where & " OR TITULO LIKE '%" & ar_busca(i) & "%"
next
sql = "Select * from fichas where 1=1 " & str_Where [/codebox]
#984192 Acumulado Nos Ultimos 12 Meses
Posted by
on 21/10/2009, 15:22
in
Microsoft SQL Server
Ola amigo, se você colocar a query fica um pouco melhor para ajudar
Mas seria mais ou menos criar uma tabela com esses resultado depois compara-lo com os meses em outro query!
Mas seria mais ou menos criar uma tabela com esses resultado depois compara-lo com os meses em outro query!
#984191 Asp + Access No Win 7
Posted by
on 21/10/2009, 15:11
in
ASP
Qual a mensagens de erro? você pode colocar a string de conexao?
Ainda nao mexi no win 7 mas Tem aquele permissao do IUSER e IWAN na IIS?
Ainda nao mexi no win 7 mas Tem aquele permissao do IUSER e IWAN na IIS?
