luckynho

<%
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....

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)
----------------------------------------------------------------^

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);
}
}

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

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 ?