Jump to content


luckynho's Content

There have been 8 items by luckynho (Search limited from 29/03/2023)


Ordernar por                Order  

#884618 Ajudinha Basica....

Posted by luckynho on 30/11/2007, 13:27 in ASP

<%
dim mostrapg, objto, objto1, pgatual, chave
  chave   = Request("chave")
  pgatual = Request("pgatual")
  mostrapg = 15000000
  if Len(pgatual) = 0 then pgatual = 1
  Set objto = Server.CreateObject("ADODB.Connection")
	objto.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("te_database.mdb") &";"
  Set objto1 = Server.CreateObject("ADODB.RecordSet")
	objto1.CursorLocation = 3	
	objto1.CursorType	 = 3
	objto1.CacheSize	  = mostrapg
	if len(chave) = 0 then
	  objto1.Open "select * from fornecedores order by fornecedor asc", objto,,&H0001
	else
	  objto1.Open "select * from fornecedores where estado like '%" & chave & "%' order by fornecedor asc", objto,,&H0001
	end if
	objto1.PageSize	   = mostrapg
  if  not objto1.EOF then
	objto1.AbsolutePage = pgatual
	qtpg = objto1.PageCount
	for i =0 to mostrapg
		  trs = trs & "<tr>" &_
		"<td height='22'><font color='cc0000'>"& objto1("fornecedor") &"<br></font>"& objto1("endereco") &","& objto1("numero") &""& objto1("complemento") &"<br>"& objto1("bairro") &" - "& objto1("cidade") &"/"& objto1("estado") &"<br>Cep:"& objto1("cep") &"<br>Tel.:"& objto1("telefone1") &"<br>Email:<a href='mailto:"& objto1("email") &"'>"& objto1("email") &"</a></td>" &_
		"" &_

		"</tr>"
	  objto1.MoveNext
	  if objto1.EOF then exit for
	Next
  end if
%>
===============================================
<table width="70%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td><font size="2" face="Trebuchet MS"><b>Busca Fornecedor</b></font> </td>
  </tr>
  <tr>
	<td ><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
	  <tr>
		<td width="84%">
		  <form action="busca_fornecedor.asp" method="get">
			<font size="2" face="Trebuchet MS"> <b> </b></font>
		  </form></td>
		</tr>
	  <tr>
		<td>
		  <table width="91%" border="0" cellspacing="2" cellpadding="1" align="center">
			<tr align="center">
			  <td width="784"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','550','height','400','src','mapa_brasil','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','mapa_brasil' ); //end AC code
			  </script>
				<noscript>
				<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="550" height="400">
				  <param name="movie" value="mapa_brasil.swf">
				  <param name="quality" value="high">
				  <embed src="mapa_brasil.swf" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="550" height="400"></embed>
				</object>
				</noscript>				</td>
			  <td width="784"><%= trs%></td>
			</tr>
		</table></td>
	  </tr>
	</table></td>
  </tr>
  <tr>
	<td>&nbsp;</td>
  </tr>
  <tr>
	<td></td>
  </tr>
</table>



Tem um mapa em flash.... e partir desse mapa, quando clica ele tras resultado dos fornecedores de cada estado.
É simples minha duvida...

Ao mostrar o resultado, gostaria de escrever na tela ex:

Resultado buscado por: SP

Cliente Tal
Rua tal
Cep Tal


e se nao tiver nenhum cliente cadastrado em tal regiao.. gostaria de apresentar uma msg dizendo que nao tem ninguem cadastrado.


Helppp please....



#860817 Response.write

Posted by luckynho on 18/07/2007, 15:29 in ASP

Opaaa... valeuuu....
Na minha cabeça ta uma mistureba de linguagens, uma hora to mexendo com asp, outra hora com cgi/perl, outra hora com php..... a cabeça ja está começando a dar nóss!!!

Valeuu novamente.. abraços



#860673 Response.write

Posted by luckynho on 17/07/2007, 21:00 in ASP

Obrigado leandro... era isso ai mesmo...

valeu pela ajuda (mais uma vez, eu nao esqueci de vc, desde 2005 por ai q vc vem me ajudando)

valeu
(pode fechar o topico se quiser)



#860641 Selecionar Noticia No Bd

Posted by luckynho on 17/07/2007, 19:03 in ASP

Aonde ele esta dando o response.white, cria uma tabela antes que ele faz o loop sozinho já.

Acho que é assim ou é algo parecido, testa ai q ve no que dá..


response.white "<table>"
response.white "<tr>"
response.white "<td><a href='ver_noticia.asp?id="&objrs("id")&"'>"&objrs("data")&" - "&objrs("titulo")&"</a></td>"
response.white "</tr>"
response.white "</table>"



#860635 Response.write

Posted by luckynho on 17/07/2007, 18:54 in ASP

estou dando um response... mas esta dando erro.. alguem pode me ajudar?

response.Write"<input type='hidden' name='item_valor_1' value='<%=FormataValor(((ccur(Session("total"))-ccur(vale_desconto))*objRS("cotacao_dia"))+frete_total)%>'>"

erro é esse:

Microsoft VBScript compilation error '800a0408'

Invalid character

/loja/escolher_forma_pagamento.asp, line 403

response.Write"<input type='hidden' name='item_valor_1' value="<%=FormataValor(((ccur(Session("total"))-ccur(vale_desconto))*objRS("cotacao_dia"))+frete_total)
----------------------------------------------------------------^



#859650 Carrega Dados Salvos

Posted by luckynho on 12/07/2007, 10:58 in Ajax

Ae galera.. beleza ?
Bom, na hora do cadastro que eu fiz, estou utilizando 2 combos. Se vc escolhe 1, ele carrega opcoes no de baixo.
Até ai, belezinha, funciona perfeito.
Meu problema é o seguinte, quando eu vou editar essas informações, uma hora ele carrega, outra hora nao carrega. Tanto no IE, tanto no Firefox.

Ja aconteceu com alguem isso ? Trabalho com CGI e mysql, mas acredito que nao tenha nada haver... é questao de carregar os dados.


Vejam:

if (!xmlhttp2 && typeof XMLHttpRequest!='undefined') {
xmlhttp2 = new XMLHttpRequest();
}


function update_cnpj(obj_razao,obj_cnpj){
if (document.requisitionform.custom51.value != "") {
obj_cnpj.length = 0;
obj_cnpj.options[0] = new Option('carregando...','');
fantasia='';
for (i=0 ; i < obj_razao.length ; i++){
if (obj_razao[i].selected == true) {
if (obj_razao[i].value != "") {
fantasia+=obj_razao[i].value+',';
}
}
}
num=fantasia.length;
fantasia=fantasia.substring(0,num-1);
// get the contents off-screen
xmlhttp2.open('GET','/cgi-bin/shared/ajax_razao_cnpj.cgi?cus='+fantasia,true);
xmlhttp2.onreadystatechange = function() {
if(xmlhttp2.readyState == 4){
options = xmlhttp2.responseText.split("\n");
// clean and insert values from CGI
obj_cnpj.length = 0;
obj_cnpj[0] = new Option('--','',false,false);
for(x in options){
if(options[x] != ''){
variaveltemp = "~%custom48%~";
var lista = variaveltemp.split(",");
contador = 0;
for (y in lista) {
if (options[x].substr(0,4) == lista[y]) {
obj_cnpj.options[obj_cnpj.options.length] = new Option(options[x].substr(5,options[x].length),options[x].substr(0,4),false,true);
} else {
contador++;
if (contador == lista.length) {
obj_cnpj.options[obj_cnpj.options.length] = new Option(options[x].substr(5,options[x].length),options[x].substr(0,4),false,false);
}
}
}
}
}
}
}
xmlhttp2.send(null);
}
}




#858706 Ajuda Com Formulários.

Posted by luckynho on 06/07/2007, 11:47 in CGI/Perl

Pessoal, bom dia para todos.

Seguinte.. eu trampo numa empresa de e-RH online (HRsmart)
Temos uma ferramenta gringa e adptamos formulários de acordo com as necessidades de cada cliente.

Eu tenho sérios problemas pois nao entendo muito de CGI, mas conheço bem html e asp, porem o asp nao tem nada haver com o CGI, entao eu expliquei e nao expliquei ao msm tempo... rs... vamos la!!

Os formulários trabalham em parceria com mySQL, portanto (HTML, CGI, mySQL)... entao vamos a minha duvida de sempre !!

Tenho o formulário pronto, ai um cliente pediu pra adicionar um campo, dois, tres, que seja. Até a criação dos campos no mySQL é tranquilo. O Que eu nao consigo fazer é o básico: CADASTRAR, ALTERAR

Anexo, tem um arquivo no qual eu uso bastante. Entao pelo que notei, ele (UNICO ARQUIVO) faz alteracao e cadastra.

O que eu preciso realmente entender, ou nem preciso entender, só me digam como eu adiciono um novo campo, altero e etc... já tentei e tals tipo (onde tem o nome do form) colocar ao lado e tal... mas queria mesmo é ter a certeza de que estou fazendo.

Obrigado

Attached Files




#807095 Tipos De Conexão Banco

Posted by luckynho on 14/12/2006, 20:17 in ASP

Olá galera, tenho um site e tals de comercio eletronico. Estou divido em 2 serves pq tem uma parte que precisa estar em SSL.

Bom.... existe a possibilidade de eu conectar meu banco de dados atraves de um URL ?

hoje ele está assim

Application("te_conexao") = "Data Source=" & endereco_fisico & "databases\te_database.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

Teria como mudar sem mexer na estrutura ?




IPB Skin By Virteq