1 reply to this topic

[Shadow Lady]

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>

[cybermix]

voce usou o dreamweaver né, ele gera um monte de lixo atrapalahndo o proprio codigo q ele cria.

aqui vai um exemplo meu para o contador

'conexao com o banco
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("conteudo/database.mdb")

sql = "UPDATE contador SET clicks = clicks +1 WHERE id = " & request.querystring("id")
conexao.execute(sql)

conexao.close
set conexoa = nothing