ola pessoal blz??

bom eu desenvolvi um sistema aonde tem uma busca e ele busca tudo no banco de dados sobre noticias, cases e tal.....

so que eu queria incluir tb outras paginas que esta em html - tem como eu fazer uma busca que procure pelo dois juntos (banco de dados e html)

achei ate um codigo que usa fso reference, mais nunca usei ele antes, queria saber se tem como fazer esta mesclação entre os dois, e como fazer???

caramba eu fiz tudo isto q esta passando e naum rolou tb o estranho é q estava apareçendo os erros mais naum apareçe mais sera pq eu estou usando o iis???

cara funcionou mais ou menos esta apareçendo assim:

tiago - 0 a 3

o q falta colocar para funcionar??

ola galera blz, bom eu queria aprender na logica e pratica tb como eu faço uma agrupação de numeros, exemplo, eu tenho um loop que mostra os nomes de clientes e tal

Tiago -
Joao -
Jose -

e dentro deste loop eu crio outro select e imprimo varios numeros de cheque certo...

Tiago - 2955, 2956, 2957, 2958
Joao - 3001, 3005, 3006
Jose - 3550, 3551, 3552, 3555, 3556, 3557

como eu posso fazer uma agrupação deste jeito

Tiago - 2955 a 2958
Joao - 3001, 3005 a 3006
Jose - 3550 a 3552, 3555 a 3557.

tentei fazer algumas coisas mais nao consegui alguem pode em explicar a maneira correta de fazer isto???

vlwww

Ninguem consegui resolver isto??

estou com o mesmo problema pessoal.....instalei o PHP + IIS 6 e apareçe a pagina nao foi encontrado que doido e o caminho esta certinho o que pode ser??

Galera tem um site de um amigo meu que foi invadido, alias zuando ne
eu descobri o modo que ele fez isto foi sim na parte de noticias tem a index.asp, quando vc clica em cima de alguma noticia, vai para a pagina noti.asp?Id=15 certo, ae que começamos a descobrir pq se eu fizer isto.

www.site.com.br/noti.asp?Id=15+update+tb_noticias+set+titulo='123'

ele vai dar um update em todas as tabelas com o titulo 123

eu tentei fazer uma função que limpasse todos os update insert e tal com o replace mais naum deu certo:

Function LimpaLixo( input )

dim lixo
dim textoOK

lixo = array ("select", "drop", ";", "--", "insert", "delete", "xp_", "update")

textoOK = input

for i = 0 to LBound(lixo)
textoOK = replace( textoOK, lixo(i), "")
Next

LimpaLixo = textoOK

End Function

ele continua fazendo o upload, alguem sabe como proteger sobre isto criando uma função que proteja mesmo


vlw

bom eu consegui assim:

x_numero_cheque = 15
y_numero_cheque = 30

Contador = x_numero_cheque
var=""
For i= x_numero_cheque to y_numero_cheque
If var = "" Then
var = Contador
Else
var = var & ", " & Contador
End If
Contador = Contador + 1
Next

Response.write(var)

brigado gente....

galera estou em duvida de como fazer isto....em tenho dois campos no formulario x e y vamos supor q no x eu digito 15 e no y 30
eu queria saber como eu faço pra gravar em uma variavel assim 15, 16, 17, 18....e ect
eu fiz assim oh:

Contador = X

For i= x to y


If var = "" Then
var = Contador
Else
var = var & ", " & Contador
End If

Contador = Contador + 1

Next

Response.Write(var)

so que ele nao esta atribuindo nenhum numero na variavel var, qual é a maneira correta de fazer isto???

salve gente blz?

eu gostaria de saber aonde fica salva as Dll do pacote ADODB (connection, recordset e command)

alguem pode me informar???

alguem pode me dizer como eu faço pra instalar o pacote adodb???

salve gente
eu tenho um banco de dados q foi mal feito e naum posso mudar ele pq ja tem varios registrose estou fazendo um select assim:

SELECT cli.Nome, cli.Nome2, cli.codigo, est.valor_cheque,
est.numero_cheque, emi.tipo_chequeemissao
FROM clientes cli INNER JOIN (cheques_emissao emi INNER JOIN cheques_estoque est
ON emi.id_cheque = est.id_cheque)
ON cli.codigo = emi.codigo
Where emi.data_emissao between '2006-10-18 00:00:00' and '2006-10-18 23:59:59'

ele traz pra mim todos os cliente e os numeros de cheque e valor de cada cheque

entao na tabela clientes tem o nome e codigo do cliente
na tabela cheques_estoque - ele traz o nro do cheque e o valor
e na tabela emissao ele traz para mim o nro da emissao do cheque ok.....

*********************************************************************

o resultado esta assim:

Nome - Nome2 - Codgio - Valor Cheque - Nro Cheque - Tipo Emissão
'ANDRE', 'DUARTE', '14148800', 5, 422115, 'Pontuação'
'ANDRE', 'DUARTE', '14148800', 5, 422116, 'Pontuação'
'FRANCISCO', 'COBAITO', '13664107', 5, 422117, 'Pontuação'
'FRANCISCO', 'COBAITO', '13664107', 5, 422118, 'Pontuação'
'GILDA', 'DE SIQUEIRA AUDRA', '12936027', 5, 422124, 'Pontuação'
'GILDA', 'DE SIQUEIRA AUDRA', '12936027', 5, 422125, 'Pontuação'

so que ele traz tudo duplicado os clientes existem alguma maneira de agrupar os clientes e trazer todos os nros cheques e valor???

salve galera blz??

seguinte eu fiz um select que traz todos os id de cheque pra mim e valores deste mesmo cheques ele esta printando assim:

Id: 55 - Valor R$ 5,00 - Id: 56 - Valor: R$ 5,00 e ect

eu queria fazer um loop que mostrasse assim

Valor R$ 5,00 - Id: 55, 56, 57
Valor R$ 10,00 - Id: 80, 85 e ect

alguem pode me dar uma luz para fazer isto??

olha o meu codigo ae gente

<%
SqlIdCheque = "Select est.numero_cheque, est.valor_cheque "_
& " From cheques_estoque est Join Cheques_emissao emi "_
& " On emi.id_cheque = est.id_cheque "_
& " Where emi.codigo = " & Rsdados("codigo") & " "_
& " AND emi.data_emissao between '" & data_ini & "' and '" & data_fim & "' "
Set RsIdCheque = cnbanco.Execute(SqlIdCheque)

While Not RsIdCheque.EOF
%>
<strong>
<%=FormatCurrency(CDBL(RsIdCheque("valor_cheque")))%> -
</strong>
<%
Response.Write(RsIdcheque("numero_cheque") & ". ")

RsIdCheque.MoveNext
Wend

%>

vlw

realmente o pane era outro cara, ja deu certo aki
brigadu

Salve gente blz bom eu fiz um select q traz todos os cheques pra mim e crie um variavel aonde ira armezenar todos os id de cheques nele, ele funcionou em um site que eu ja fiz, quando eu fui pegar a mesma função e usar em outro site e começou a apareçer este erro

Erro de tempo de execução do Microsoft VBScript erro '800a01ca'
A variável usa um tipo de automação sem suporte no VBScript

O pior é q esta dando o ero na If id_cheque = "" Then.
ae eu deixei assim: If CInt(id_cheque) = "" Then e começou a dar erro nesta linha e nao consegui arrumar:
Id_cheque = Id_cheque & ", " & RsIdCheque("id_cheque")

o que podera ser heim???

While Not RsIdCheque.EOF

If Id_cheque = "" Then ' - Erro aki
Id_cheque = RsIdCheque("id_cheque")
Else
Id_cheque = Id_cheque & ", " & RsIdCheque("id_cheque")
End If
RsIdCheque.MoveNext
Wend

consegui aki usei session e array flw

salve galera estou com uma duvida em um sistema de banners....

é o seguinte vamos supor que eu tenho 3 banners A, B e C eu quero que o A apareçe 3 vezes o B 4, e o C 1 vez certo, entao seria: A, A, A, B, B, B, B, C e começa tudo de novo.

bom como eu faria para ir ao proximo banner a quantidade de vezes que vai apareçer eu posso usar um contador = contador + 1
If contador = 3 then
proximo banner
End If

a minha dificuldade é saber o proximo depois que o A apareçe 3 e jogar pro B, alguem tem uma ideia boa ae??

ola klaus tem como vc explicar melhor sou meio leigo em javascript e outra pergunta tem como fazer esta validação por campo exemplo depois q eu digite a hora e pular para o outro campo ele faz a validação

blz galera vou comprar um no-break brigado pela ajuda

Realmente foi so a fonte galera

o pior é q aki naum tem a tomada com o fio terra e pareçe q tb naum tem nas instalações de eletricidade

Salve galera brasileira blz??

estou com uma duvida aki com datas eu tenho um sistema de noticias ela traz todas as noticias que vão vençer a data ou seja eu cadastrei a data 07/10/2006 20:45 e agora sao 07/10/2006 19:00, entao esta data vai apareçer certo

Entao eu fiz o meu select assim:

Select * From Noticias Where Ativo = 1 And Data >= Getdate() Order By Data Asc

o meu problema é o seguinte quando for 07/10/2006 20:46 esta noticia some e vem a proxima exemplo (07/10/2006 21:00) eu queria que esta noticia (a das 20:45) sumisse so quando ter 21:00h pq ae vai vim a proxima, sera que no select tem como fazer isto ou é direto na programação???

salve gente faz tempao q eu naum apareço por aki heim

entao galera la na minha casa deu pane de energia la e o povo de casa foi trocar o fuzivel e ligou a energia de volta e quando ligou paraçe q ligou no 220 e quando foram ver o meu pc estava cheio de fumaça e ele nunca mais ligou.....bom eu queria saber sera que so queimou a minha fonte ou foi o pc inteiro???

a minha fonte é atx de 400w....

eu naum queria levar ele em assistencia pq naum confio mto e nem tenho outra fonte para fazer testes o que eu queria mesmo saber se foi so a minha fonte q ja era, pq ae eu vou compro outro e troca, o que vcs acham???

ao galera alguem pode me ajudar a finalizar isto??

eu peguei o codigo do imasters sobre o 3 combos eles funcionam certinho eu coloquei ele no meu sistema administrativo, ae quando eu quero editar o meu anuncio eu quero que apareçe o tipo, marca e modelo que eu gravei no banco

exe: tipo - automovel, marca audi, modelo A3, eu quero que ja apareçe selecionando eu estou recuperando os certinho os valores pelo banco o problema marca é o ajax pq ele so muda onload assim que eu escolho o tipo....o que fazer???

segue o meu codigo completo....

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table border="0" cellpadding="3" cellspacing="0" bgcolor="#CCCCCC">
<tr align="center">
<td><strong>cadastros</strong></td>
</tr>
</table></td>
</tr>
</table>
<div align="center">
<table width="100%" height="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<script language="javascript" src="../js_adm/ajax.js"></script>
<form name="form" id="form" method="post" action="gravar.asp?Id=<%=Id%>" onSubmit="return valida()">
<tr>
<td height="23" valign="top" bgcolor="#E9E9E9">&nbsp; </td>
</tr>
<tr>
<td align="center" bgcolor="#F3F3F3">
<table border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC" width="90%">
<tr>
<td bgcolor="#F3F3F3">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
If ativo <> "" Then
if ativo = "Ativo" then %>
<input name="ativo" type="checkbox" id="ativo2" value="Ativo" checked>
<% else %>
<input name="ativo" type="checkbox" id="ativo2" value="Ativo">
<% end if %>
<% Else %>
<input name="ativo" type="checkbox" id="ativo2" value="Ativo" checked>
<% End If %>
Ativo
</td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#F3F3F3">
<div align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table1">
<tr>
<td>* Tipo</td>
<td colspan="2">* Marca</td>
<td>Modelo</td>
</tr>
<tr>
<td height="30">
<select name="tipo" size="1" class="input_id" onChange="trazdados();">
<option value="">-- Selecione --</option>
<%
SqlTipo = "Select * "_
& " From Tipo_Veiculo "
Set RsTipo = Conn.Execute(SqlTipo)
If Not RsTipo.EOF Then
Do While Not RsTipo.EOF
%>
<option value="<%=RsTipo("TipoCod")%>" <% If RsTipo("TipoCod") = CInt(Tipo) And Id <> "" Then Response.Write("selected") End If %>><%=RsTipo("TipoNome")%></option>
<%
RsTipo.MoveNext
Loop
End If
%>
</select>
</td>
<td height="30" colspan="2">
<span id="divcombotipo">
<select id="marca" name="marca" onChange="dadosmarca();">
<option value="">-- Marca --</option>
</select>
</span>
</td>
<td colspan="2" height="30">
<span id="divcombomodelo">
<select id="modelo" name="modelo">
<option value="">-- Modelo --</option>
</select>
</span>
</td>
</tr>
<tr>
<td colspan="4">* Veículo</td>
</tr>
<tr>
<td colspan="4">
<input type="text" name="veiculo" size="49" value="<%=veiculo%>" maxlength="40">
</td>
</tr>
<tr>
<td colspan="4" style="border-bottom-style: solid; border-bottom-width: 1px">&nbsp;</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td bgcolor="#F3F3F3"> <table border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table1">
<tr>
<td width="177">* Valor (R$)</td>
<td width="238">Financiamento</td>
</tr>
<tr>
<td width="177" height="28">
<input type="text" name="valor" size="20" value="<%=FormatNumber(CDBL(valor), 2)%>" maxlength="10">
</td>
<td>
<%
'Select que traz o financiamento
SqlFinac = "Select * "_
& " From Fina_Veiculo "_
& " Where FinaStatu = '0' "
Set RsFinac = Conn.Execute(SqlFinac)
%>
<select name="financiamento" class="input_id">
<%
Do While Not RsFinac.EOF
%>
<option value="<%=RsFinac("FinaCod")%>" <% If RsFinac("FinaCod") = Cint(Financiamento) Then Response.Write("selected") End If %>><%=RsFinac("FinaNome")%></option>
<%
RsFinac.MoveNext
Loop
%>
</select>
</td>
</tr>
<tr>
<td width="177">* Ano</td>
<td>Modelo</td>
</tr>
<tr>
<td width="177"><input type="text" name="ano" size="20" value="<%=ano%>" maxlength="5"></td>
<td><input type="text" name="modelodata" size="20" value="<%=modelodata%>" maxlength="11"></td>
</tr>
<tr>
<td width="177">Kilometragem</td>
<td>Nº Portas</td>
</tr>
<tr>
<td width="177">
<input type="text" name="kilometragem" size="20" value="<%=kilometragem%>" maxlength="10">
</td>
<td>
<select name="nportas" class="input_id">
<% If Id = "" Then %>
<option value="0" selected="selected">0</option>
<% Else %>
<option value="0" <% If 0 = nportas Then Response.Write("selected") End If %>>0</option>
<% End If %>
<option value="2" <% If 2 = nportas Then Response.Write("selected") End If %>>2</option>
<option value="4" <% If 4 = nportas Then Response.Write("selected") End If %>>4</option>
</select>
</td>
</tr>
<tr>
<td width="177">Combustível</td>
<td>* Cor</td>
</tr>
<tr>
<td width="177">
<select name="combustivel" class="input_id">
<% If Id = "" Then %>
<option value="Gasolina" selected>Gasolina</option>
<% Else %>
<option value="Gasolina" <% If "Gasolina" = combustivel Then Response.Write("selected") End If %>>Gasolina</option>
<% End If %>
<option value="Álcool" <% If "Álcool" = combustivel Then Response.Write("selected") End If %>>Álcool</option>
<option value="Flex" <% If "Flex" = combustivel Then Response.Write("selected") End If %>>Flex</option>
<option value="Diesel" <% If "Diesel" = combustivel Then Response.Write("selected") End If %>>Diesel</option>
</select>
</td>
<td><input type="text" name="cor" size="20" value="<%=cor%>" maxlength="20"></td>
</tr>
<tr>
<td width="177">0KM?</td>
<td>&nbsp;</td>
</tr>
<tr>
<td width="177">
<select name="Novo" class="input_id" size="1">
<% If Id = "" Then %>
<option value="Nao" selected>Nao</option>
<% Else %>
<option value="Nao" <% If "Nao" = Novo Then Response.Write("selected") End If%> >Nao</option>
<% End If %>
<option value="Sim" <% If "Sim" = Novo Then Response.Write("selected") End If%>>Sim</option>
</select>
</td>
<td>&nbsp;</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<p align="center">
<input type="submit" name="Submit" value="Gravar">
<input type="button" name="Submit2" value="Fechar" onClick="java script:window.close()">
</p>
</td>
</tr>
</table>
</td>
</tr>
<input type="hidden" name="codtipo" id="codtipo" value="<%=codtipo%>" size="3" />
<input type="hidden" name="codmarca" id="codmarca" value="<%=codmarca%>" size="3" />
<input type="hidden" name="codmodelo" id="codmodelo" value="<%=codmodelo%>" size="3" />
</form>
</table>
</div>
</body>
</html>
<script>
//Essa função ira trazer o id do estado selecionando na primeira combo para podermos preencher a segunda e terceira combo
function trazdados()
{
//Aqui informamos que o primeira combo sera selecionanda e depois damos um split na barra | que separa os valores que
//estao no value da combo1
// var arr = new String(form.tipo.value);
// arr = arr.split('|');

//Aqui trazemos apenas o id de cada tipo que for selecionado

// form.codtipo.value = arr[0];
form.codtipo.value = form.tipo.value;

combomarca(); // chama a funcao ajax que preencher a combo marca assim que é selecionado um registro no combo1
combomodelo(); // chama a função ajax que preenche a combo modelo assim que é selecionado um registro na combo1

}

//Aqui é a função que preenche a combo marca
//reparem que o nome da vid é a divcombotipo, é o mesmo nome que demos no id daquela div que existe antes da combo2 na pagina.
function combomarca()
{
var combotipo = createXMLHTTP();
combotipo.open("post", "objmarca.asp?Tipo=<%=Tipo%>&Marca=<%=Marca%>", true);
combotipo.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
combotipo.onreadystatechange=function(){
if (combotipo.readyState==4){// abaixo o texto do gerado no arquivo executa.asp e colocado no div
document.all.divcombotipo.innerHTML = combotipo.responseText;}}
combotipo.send("codtipo=" + form.codtipo.value);
}
//Aqui é a função que sera preenchida de acordo com o registro selecionando na combo1 e combo2
//é igual a acima
function combomodelo()
{
var combomodelo = createXMLHTTP();
combomodelo.open("post", "objmodelo.asp", true);
combomodelo.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
combomodelo.onreadystatechange=function(){
if (combomodelo.readyState==4){// abaixo o texto gerado que executa.asp e colocado no div
document.all.divcombomodelo.innerHTML = combomodelo.responseText;}}
combomodelo.send("codtipo=" + form.codtipo.value + "&codmarca="+ form.codmarca.value);

}

//Nesta função iremos obter o id da marca para preencher o combo modelo
function dadosmarca()
{
// var arr = new String(form.marca.value);
// arr = arr.split("|");

// form.codmarca.value = arr[3];
form.codmarca.value = form.marca.value;

//veja que chamamos a função que preenche a combo imovel depois que um registro da combo marca é selecionado
combomodelo();

}
</script>

agora sim ficou perfeitinho

vlw bimonti, xxALExx

brigado pela ajuda

agora sim funcinou mais uma ultima pergunta aqui no javascript tem as funções de cortar a palavra tipo eu so quero pegar o os 3 ultimos digitos do valor

10.500,00

ae seria o ",00" que eu queria pegar e queria pegar todo o valor menos os 3 digitos como eu faço em java vlw

blz so tem um problema é que eu nunca usei o replace em java estou tao acostumando quando o asp heheh
eu fiz assim e naum funfou tentei outros jeitos e tb naum consegui

<script language="javascript">
function cincoPorcento(n){
	var n = replace(n, ',', '.');
	var res = (n*5)/100;
	document.getElementById("tx").value=res;
}
</script>

ah eu vou ter que usar 2 replace ne pq se tiver numeros assim 1.550,00 eu ter que usar um replace para tirar o ponto e outro replace para mudar a virgula por ponto so me de esta ultima ajuda