Shadow Lady

Olá pessoal!!! Eu fiz este script e no iis funcionou, mas qdo coloquei no ar, não funciona. vejam o código:
é um sistema de busca interna ele procura por cpf. esta á pagina para a busca:

<form name="form_busca" method="default" action="resultados.asp">
              <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif">
      <input name="CPF" type="text" id="CPF">
      <input type="submit" name="Submit" value="Buscar!">

esta é a página de resultados:

<%
set conexao = server.createobject("adodb.connection")
abrir = "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="&server.mappath("../databases/CADLEGAL.mdb")
conexao.open abrir
query_busca = request.querystring("cpf")

set resultados = server.createobject("adodb.recordset")
ins_sql = "select * from tabela_dados where cpf like '%"&query_busca&"%'"

resultados.open ins_sql, conexao, 3

total_resultados = resultados.recordcount
%> <font size="2" face="sans-serif"><font color="#333333" size="3">

<br>
Resultados da busca por <strong><%=query_busca%></strong></font><br>
Foram encontrados<strong> <%=total_resultados%> </strong>registros<br>
<br>
<br>
<% do while not resultados.eof %>
>> <%=resultados("cpf")%>"><%=resultados("nomeemp")%><br>
<%=resultados("razaosocial")%><br>
<br>
<% resultados.movenext
loop
resultados.close
set resultados = nothing
%>
</font>

qual é o erro? já estou

Eu tentei, mas vou ter que apelar para ajuda.

eu tenho um sistema de busca e login/senha. ambos funcionam beleza.
Mas o que eu quero é fazer é que um determinado usuário faça uma busca e que me armazenasse em uma outra tabela. ficando assim:

usuário x: realizou 5 buscas ou:
usuário x: busca x, y, z (e mostrando o q ele buscou)

vou ter q chamar todas as tabelas? como faz? to se não for pedir muito, o código

pois é, fiz uma porrada de testes antes de hospedar. E td funcionava legal. Daí qdo hospedei, a página não abria. liguei para o suporte e me disseram q era erro de programação. Agora não estou mais confiando no iis. Será q o suporte está certo?

oi gente! Resolvi explicar para vcs um passo-a-passo pq muita gente pergunta como compartilhar internet em outras maquinas. entao vamos lá.

a 1ª coisa a ser feita é ter as placas de rede nas maquinas. (pode ser 10 , 10/100), mas se uma tiver 10 e a outra 10/100 só vai ter velocidade 10, pq a segunda irá se adaptar conforme a velocidade da primeira, que é 10;

se vc tem duas maquinas para compartilhar, siga o seguinte:
-compre 1 cabo crossover (são cabos com os fios invertidos) ou faça (talvez eu explique em outro tuto).Este cabo podem ser ligado diretamente em outro pc placa com placa;

se vc tem 2 ou mais maquinas, siga o seguinte:
-compre um hub ou switch (diferença de preço: quase nenhuma) o switch está substituindo o hub pouco a pouco, logo não existirão mais;
-cabos utp cat5e (cabos para a rede Ethernet) compre uma para cada maquina e coloque as extremidades no hub/switch;

agora esta parte serve para todos:
- para fazer a rede local funcionar, é necessário que todos estejam usando o mesmo protocolo, ou seja, estejam falando a mesma língua. O protocolo para ser feito isto se chama IP. Então é necessário configurar todos os IPs.
O IP é um endereço lógico da sua máquina. Ela é composta por 4 octetos com números binários, que convertemos para uma fácil memorização. Estes endereços IPs tem 3 classes: A, B, C sendo que:
A tem 1 octeto de rede e 3 de rede;
B tem 2 octetos de rede e 2 de rede e
C tem 3 octetos de rede e 1 de host.
Além dos endereços ips, é necessário a máscara de rede. Com a máscara é possível criar sub-redes em ambientes maiores, mas não vou entrar em detalhes.
A máscara padrão para cada classe é:
A- 255.0.0.0
B- 255.255.0.0
C- 255.255.255.0
Estou enfatizando isto pq é muito importante saber para o perfeito funcionamento da sua rede e também para diagnosticar problemas.

Agora vamos aplicar tudo isto:
- existe uma maquina q será o servidor de internet. Esta maquina é que receberá a conexão de fora (é nela que tem instalado a ADSL). Para configurá-la entre em painel de controle e veja as configurações de rede. Nele, acrescente o protocolo TCP/IP e acrescente o endereço ip nela. Exemplo: endereço ip: 10.2.0.1 máscara:255.0.0.0 (veja que estou usando um endereço de classe A) e em gateway não coloque nada. memorize este ip pq vc irá usá-lo depois.

- nas outras maquinas faça a mesma coisa, mas mude o endereço de host Ex. endereço ip: 10.2.0.2 máscara: 255.0.0.0 em gateway coloque o endereço do servidor. neste exemplo, coloquei 10.2.0.1.

Neste ponto, sua rede local funcionará, habilite agora compartilhamento de impressoras e arquivos. Agora só falta a internet.

- pegue o servidor de internet e baixe um proxy em muitos sites de downloads por aí. Eu vou usar como exemplo o AnalogX, pq é fácil e grátis Só tem um detalhe: as outras maquinas não poderao usar programas de correio, como o Outlook isto pq ele não habilita as portas POP e SMTP, mas existem outros programas que fazem
Depois de instalá-lo coloque ON e todas as portas e onde estiver o endereço digite o endereço ip (no caso 10.2.0.1). E só.
- nas outras máquinas entre em propriedades do explorer (direito do mouse) entre em conexões e configurações da Lan. Ele tem a opção ->usar servidor proxy. entre em avançados e abrirá o endereço e porta.
-Coloque endereço: coloque o do servidor, que no meu caso é 10.2.0.1 e porta coloque 6588 faça em todos os protocolos. Se vc fez tudo direitinho, a conexão está feita.

Só algumas observações: no windows 98 existe um programa de compartilhamento de internet, mas ele só funciona se o sistemas forem iguais, ou seja, todos 98. Se forem sistemas diferentes, siga este tuto que fiz. Eu nunca testei em Me, mas sei q funciona em 2000 e XP (XP é até mais facil)
Qquer dúvida, estou aki.

Este código mostra resultados de uma busca e também coloquei um contador p/ este link. O resultado da busca está funcionando, menos o contador. Onde estou errando? já fiquei por isto...


<%@LANGUAGE="JAVASCRIPT"%>
<!--#include file="Connections/conexao_teste.asp" -->
<%
var Recordset1__MMColParam = "1";
if (String(Request.QueryString("cpf")) != "undefined" &&
String(Request.QueryString("cpf")) != "") {
Recordset1__MMColParam = String(Request.QueryString("cpf"));
}
%>
<%
var Recordset1 = Server.CreateObject("ADODB.Recordset");
Recordset1.ActiveConnection = MM_conexao_teste_STRING;
Recordset1.Source = "SELECT * FROM tabela_dados WHERE cpf = '"+ Recordset1__MMColParam.replace(/'/g, "''") + "'";
Recordset1.CursorType = 0;
Recordset1.CursorLocation = 2;
Recordset1.LockType = 1;
Recordset1.Open();
var Recordset1_numRows = 0;
%>
<%
var Repeat1__numRows = 10;
var Repeat1__index = 0;
Recordset1_numRows += Repeat1__numRows;
%>
<%=(Recordset1.Fields.Item("cpf").Value)%>
<p><%=(Recordset1.Fields.Item("nome_emp").Value)%></p>
<p><%=(Recordset1.Fields.Item("razao_social").Value)%></p>
<p>
<%=(Recordset1.Fields.Item("nome_fisica").Value)%></p>
<font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif"><%=(Recordset1.Fields.Item("descricao").Value)%></font>
<p>


Aqui começa a parte do contador

<!--#include file="Connections/contador.asp" -->
<%

if(Request.QueryString("id") <> "") then Command1__var_id = Request.QueryString ("id")

%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
Recordset1__MMColParam = Request.QueryString("id")
End If
%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_contador_STRING
Command1.CommandText = "UPDATE contador SET clicks = clicks +1 WHERE id = " + (Command1__var_id, "", "") + " "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<%
Recordset1.Close();
%>
</p>