Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

zanelati2002

conta cliques

Por , em ASP Clássico

Recommended Posts

zanelati2002    0

zanelati2002
Postado

bom mudei antes queria fazer por link como abaixo e contava os clique certinho olhem o codigo

 

<% Response.buffer= True %><!--#include file="conectar.asp"--><head><LINK href="../images/estilos.css" rel=stylesheet type=text/css><LINK href="../images/padrao.css" rel="stylesheet" type="text/css"></head><body bgcolor="#E0E0E0"><font face="Verdana" size="1"></font><% AbreConexaoid=request.querystring("id")If id="" ThenSql = "SELECT * FROM sites WHERE status=1 ORDER BY site"Set rs = Conexao.Execute(Sql) If rs.EOF Then else While Not rs.EOF %><a href="links.asp?id=<%=rs("id")%>&url=<%=rs("url")%>" target="_blank" ><%=rs("site")%></a><BR><% rs.MoveNextWendEnd If %><BR><a href="pedido.asp" target="_top"><b> Seu Site aqui! </b></a><BR><a href="cliques.asp" target="_top"><b> Cliques em seu Site! </b><% ElseSql = "UPDATE sites SET cliques = cliques + 1 WHERE id = "&id&" "Conexao.Execute(Sql)Response.Redirect(Request.Querystring("url")) End IfSet id = nothingSet rs = nothing %>

só que agora to tentando fazer assim mais não ta contando os cliques quanod clico no site olhem

 

<% Response.buffer= True %><!--#include file="conectar.asp"--><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><TITLE>Barra de Parceria</TITLE><META http-equiv=Content-Type content="text/html; charset=windows-1252"><META content="MSHTML 6.00.2600.0" name=GENERATOR><META content=FrontPage.Editor.Document name=ProgId><base target="_blank"></HEAD><script language=JavaScript>function goTo(form) {var myindex=form.dest.selectedIndexwindow.open(form.dest.options[myindex].value);}</SCRIPT><BODY text=#000000 vLink=#000000 aLink=#000000 link=#000000 leftMargin=0 background=fnd_barra.jpg topMargin=0><B><FONT face="Verdana, Arial, Helvetica, sans-serif" color=white size=1><form method="POST" name="myForm"><TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=1 cellSpacing=0 cellPadding=0 width=745 border=0>  <TBODY>  <TR>	<TD width=98 height=1 valign="top">	  <P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><A 	  href="" target=_blank>		<IMG 	  height=26 alt="Portal WeB Scripts" src="barra_log.gif" 	  width=140 border=0></A></P></TD></FONT></B>	<TD width=1081 height=1>	  <P style="MARGIN-TOP: 2px; MARGIN-BOTTOM: 0px" 	align=center></P></TD><B><FONT 	face="Verdana, Arial, Helvetica, sans-serif" color=white size=1>	<TD vAlign=center width=4 	background= height=1>	  <P style="MARGIN-TOP: 2px; MARGIN-BOTTOM: 0px"> </P></TD></FONT>	<TD width=136 background= 	  height=1><DIV align=center>	  <% AbreConexaoid=request.querystring("id")If id="" ThenSql = "SELECT * FROM sites WHERE status=1 ORDER BY site"Set rs = Conexao.Execute(Sql) If rs.EOF Then else While Not rs.EOF %>	  <SELECT class=parceiros onchange=goTo(this.form) 	  style="FONT-SIZE: 8pt; WIDTH: 134px; COLOR: #000000; FONT-FAMILY: Verdana; HEIGHT: 134px; BACKGROUND-COLOR: #ebebeb"					name=dest size="1">  					<OPTION>.::: Selecione :::.</OPTION>					<option value="<%=rs("url")%>"><%=rs("site")%>					</option>		<option value="http://www.onemasters.com/parceria/">Seja nosso parceiro		</option>		<option>---------------------------</option>		</SELECT><% rs.MoveNextWendEnd If %><B><FONT face=Verdana 	  color=white size=1> </FONT></B></P></DIV></TD></TR></TBODY></TABLE></form></B><P style="MARGIN-TOP: 2px; MARGIN-BOTTOM: 0px"> </P></BODY></HTML><% ElseSql = "UPDATE sites SET cliques = cliques + 1 WHERE id = "&id&" "Conexao.Execute(Sql)Response.Redirect(Request.Querystring("url")) End IfSet id = nothingSet rs = nothing %>

o que to fazendo de errado sera que quando mostro os sites

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

galera ta contando o clique mais não ta indo para o site indicado o que faço

 

olha só estou colocando assim <option value="http://www.onemasters.com/parcerias/barra.asp?id=<%=rs("id")%>&url=<%=rs("url")%><%=rs("site")%>"><%=rs("site")%>

 

 

o endereço é este para teste online http://www.sitedozanelati.com/parcerias/barra.asp

tem que ir para o site www.onemasters.com

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito