Problema conteggio click

**mr.fifteen** · 26-06-2006, 14:15

ho utilizzato un conteggio click che ho trovato su HTML...
solo che non conta i click... funziona, la pagina non da problemi ma non incrementa il counter.
Posto il codice:

codice:

<%
imgURL=trim(request.QueryString("imgURL"))
url=trim(request.QueryString("URL"))
alt=trim(request.QueryString("alt"))

if url="" then
%>

Questo è il link:

codice:

<a href="link.asp?url=<%=(rs_link2.Fields.Item("URL").Value)%>" target="_blank">

E questa è la chiusura

codice:

...</html>
<% 
else
%>
<%
set rs = server.CreateObject("ADODB.Recordset")
set rs=nothing
sql = "insert into link (imgURL,URL,alt) values('"& imgURL &"','"& url &"','"& alt &"')"
response.Redirect(url)
%>
<%
end if ' end check for a url value
%>

Qualcuno saprebbe aiutarmi?

**supergeniux** · 26-06-2006, 17:02

posta il codice della pagina link.asp

**mr.fifteen** · 26-06-2006, 23:58

L'hai voluto tu...

è lunghissimo...

VVoVe:

codice:

 <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
imgURL=trim(request.QueryString("imgURL"))
url=trim(request.QueryString("URL"))
alt=trim(request.QueryString("alt"))

if url="" then
%>
<%
Dim myColor1, myColor2, myColor
myColor1 = "#CCCCCC"
myColor2 = "#FFFFFF"
myColor = myColor1
%>

<%
Dim rs_link
Dim rs_link_numRows

Set rs_link = Server.CreateObject("ADODB.Recordset")
rs_link.ActiveConnection = MM_conn_puppatz_STRING
rs_link.Source = "SELECT *  FROM link  ORDER BY inserimento DESC"
rs_link.CursorType = 0
rs_link.CursorLocation = 2
rs_link.LockType = 1
rs_link.Open()

rs_link_numRows = 0
%>
<%
Dim rs_film
Dim rs_film_numRows

Set rs_film = Server.CreateObject("ADODB.Recordset")
rs_film.ActiveConnection = MM_conn_puppatz_STRING
rs_film.Source = "SELECT *  FROM q_film  ORDER BY datax DESC, orax DESC"
rs_film.CursorType = 0
rs_film.CursorLocation = 2
rs_film.LockType = 1
rs_film.Open()

rs_film_numRows = 0
%>
<%
Dim rs_link2
Dim rs_link2_numRows

Set rs_link2 = Server.CreateObject("ADODB.Recordset")
rs_link2.ActiveConnection = MM_conn_puppatz_STRING
rs_link2.Source = "SELECT * FROM q_click ORDER BY count DESC"
rs_link2.CursorType = 0
rs_link2.CursorLocation = 2
rs_link2.LockType = 1
rs_link2.Open()

rs_link2_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 20
Repeat1__index = 0
rs_link_numRows = rs_link_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
rs_link2_numRows = rs_link2_numRows + Repeat2__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Puppatz Inside is back</title>

<meta name="title" content="Puppatz Inside, il sito della comunità Puppatz" />
<meta name="description" content="Il sito della comunità puppatz, al suo interno puoi trovare i risultati del G.S.Vittoria e dei Vipers, oltre che della squadra ufficiale Puppatz, gli smegmanti." />
<meta name="abstract" content="" /> 
<meta name="keywords" content="Puppatz, Puppatzinside, Vittoria, G.S.Vittoria, Gruppo Sportivo Vittoria, HC Vipers Milano, Frasi Celebri, Foto, Fotogallery, Dizionario " /> 
<meta name="robots" content="index,follow" /> 
<meta name="revisit-after" content="1 days" /> 
<meta name="author" content="Mr.Fifteen" /> 
<meta name="publisher" content="Mr.Fifteen" /> 
<meta name="copyright" content="Mr.Fifteen" /> 
<meta name="doc-rights" content="copywritten" /> 
<meta name="doc-class" content="completed" /> 
<meta name="rating" content="general" /> 
<meta name="creation-date" content="21/06/2006" /> 
<meta name="expires" content="-1" /> 
<meta name="mssmarttagspreventparsing" content="true" /> 
<meta http-equiv="content-type" content="text/html; utf-8" /> 
<meta http-equiv="content-language" content="it" /> 
<meta http-equiv="pragma" content="cache" /> 
<meta http-equiv="reply-to" content="fiore_15@fastwebnet.it" /> 
<link href="css/ilpupazzo.css" rel="stylesheet" type="text/css" />

<style type="text/css">
<!--
.Stile1 {color: #55A0FF}
-->
</style>
</head>

<body leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td valign="top" class="fondonero"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="menu Stile1">
      <tr>
        <td height="110" valign="top" class="topnero"><div align="left">[img]img/ilpupazzo.jpg[/img]</div></td>
      </tr>
      <tr>
        <td class="menulink"><ul>[*]Home Page[*]News[*]Fotogallery[*]Tarel's[*]Fedebuster[*]Giudizi Film[*]Frasi celebri  [*]Dizionario[*]Download[*]Programmi[*]PPS[*]Catino's Art[/list]</td>
      </tr>
      <tr>
        <td class="menulink"><p align="center"><span class="menu">Benvenuto

              <%= Session("MM_Username") %></span></p>          </td>
      </tr>
      <tr>
        <td class="menulink">

<span class="menu">Vivamente consigliato

              The Beatles e Milano

          Un giorno per sempre</span></p>
          <p align="center">[img]img/copertinalibro.gif[/img]</p></td>
      </tr>
      <tr>
        <td class="menulink"></td>
      </tr>
      <tr>
        <td class="menulink"><ul>[*]Area privata [/list]</td>
      </tr>
      <tr>
        <td class="menulink">
	<iframe src="http://uplink.aruba.it/show.asp?id=15297&dimX=120&dimY=298&colBordo=FFFFFF&colSfondo=000000&colTitolo=FFFFFF&colTesto=FFFFFF&colTitolo2=0000FF&colTesto2=CCCCCC" width="120" height="300" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="no"></iframe>
    <div align="center">
      
    </div></td>
      </tr>
    </table></td>
    <td valign="top" class="fondobianco"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td valign="top"><div align="left">
                     [img]img/bannergsv.jpg[/img]
			  </noscript>
		    </div></td>
        <td width="200" height="110" rowspan="2" valign="top" class="topbianco"><div align="center">[img]img/login.jpg[/img]</div></td>
      </tr>
      <tr>
        <td height="50" valign="top" class="topbianco"><form method="get" action="http://www.google.com/search">
          <table bgcolor="#FFFFFF">
            <tr>
              <td valign="top">
                  <input type="text" name="q" size="35" maxlength="255" value="" />
                  <input type="hidden" name="hl" value="it" />
                  <input type="submit" name="btnG" value="Cerca con Google" />              </td>
            </tr>
          </table>
        </form></td>
        </tr>
      <tr valign="top">
        <td class="testo">
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="200" valign="top"><h1>Link</h1>
                <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" class="quadrato">
                  <tr <%
' technocurve arc 3 asp vb bv block2/3 start
Response.Write(" style='background-color:" & myColor & "'")
' technocurve arc 3 asp vb bv block2/3 start
%>>
                    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td class="titolofoto">I siti preferiti dallo staff puppatz </td>
                        </tr>
                      <% 
While ((Repeat2__numRows <> 0) AND (NOT rs_link2.EOF)) 
%>
                        <tr <%
' technocurve arc 3 asp vb bv block2/3 start
Response.Write(" style='background-color:" & myColor & "'")
' technocurve arc 3 asp vb bv block2/3 start
%>>
                          <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td width="160" rowspan="5" class="fotolink">" target="_blank">[img]public/link/<%=(rs_link2.Fields.Item([/img]" alt="Clicca per andare al link!" width="150" height="35" border="0" /></td>
                                <td width="66%"><%=(rs_link2.Fields.Item("alt").Value)%></td>
                              </tr>
                              <tr>
                                <td>Inserito il: <%=(rs_link2.Fields.Item("inserimento").Value)%></td>
                              </tr>
                              <tr>
                                <td>Click: <%=(rs_link2.Fields.Item("count").Value)%></td>
                              </tr>
                              <tr>
                                <td class="scrittaverde">"></td>
                              </tr>
</table></td>
                        </tr>
                        <%
' technocurve arc 3 asp vb bv block3/3 start
if myColor = myColor1 then
	myColor = myColor2
else
	myColor = myColor1
end if
' technocurve arc 3 asp vb bv block3/3 start
%>
                        <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rs_link2.MoveNext()
Wend
%>

                        <tr>
                        <td class="conteggiofoto"></td>
                        </tr>
                    </table></td>
                    </tr>
                  <%
' technocurve arc 3 asp vb bv block3/3 start
if myColor = myColor1 then
	myColor = myColor2
else
	myColor = myColor1
end if
' technocurve arc 3 asp vb bv block3/3 start
%>
                </table>
                

</p>
                

</p></td>
            </tr>
          </table>
          

</p>
           
         </td>
        <td height="500" class="link"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="film">

Ultimo Film Recensito:</p>
              <p align="center">">[img]public/film/<%=(rs_film.Fields.Item([/img]" alt="<%=(rs_film.Fields.Item("nomeFilm").Value)%>" width="150" height="200" border="0" />

                [img]img/<%=(rs_film.Fields.Item([/img]" class="stellette" /></p></td>
          </tr>
          <tr>
            <td class="link2">

Link:</p>         <% 
While ((Repeat1__numRows <> 0) AND (NOT rs_link.EOF)) 
%>
              <p align="center"><a href="<%=(rs_link.Fields.Item("URL").Value)%>" target="_blank">
     
                [img]public/link/<%=(rs_link.Fields.Item([/img]" alt="<%=(rs_link.Fields.Item("alt").Value)%>" width="150" height="35" border="0" /></a>


                <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_link.MoveNext()
Wend
%>
</p></td>
          </tr>
        </table></td>
      </tr>
      
    </table></td>
  </tr>
</table>
</body></html>
<% 
else
%>
<%
set rs = server.CreateObject("ADODB.Recordset")
set rs=nothing
sql = "insert into link (imgURL,URL,alt) values('"& imgURL &"','"& url &"','"& alt &"')"
response.Redirect(url)
%>
<%
end if ' end check for a url value
%>
<%
rs_link.Close()
Set rs_link = Nothing
%>
<%
rs_film.Close()
Set rs_film = Nothing
%>
<%
rs_link2.Close()
Set rs_link2 = Nothing
%>

**U235** · 27-06-2006, 00:36

cioe' fammi capire, non ti aggiunge nel database la pagina richiesta e non ti da errore ? :master:

e il counter dov'è?

**supergeniux** · 27-06-2006, 00:59

l'update della query non ci sta, e ci sta pure nella parte finale una query che non viene eseguita!

**mr.fifteen** · 27-06-2006, 10:05

Io ho cercato di adattare questo codice che ho trovato su HTML alla mia pagina...

codice:

<% 
' Value for the url being requested
url=trim(request.querystring("url"))

' if no url is detected then show then
' show a page with links 
if url="" then %>
<html>
<title>CodeAve.com(Count Clicks to a Db)</title>
<head>
<base target="_blank">
</head>
<body bgcolor="#FFFFFF">

Yahoo

AOL

Excite


Mail2Web


ASPIn


SAS

</body>
</html>
<% 
' if there is a url value detected add it to the db
' and redirect the browser to the url
else 
%>

<%

' Create a server record set object
set rs = server.createobject("ADODB.Recordset")

' SQL statement that will insert the url and the ip address
sql = "insert into clicks (url,ip) values('"& url &"','"& ip &"')" 

' kill the recordset  
set rs=nothing

' redirect to the url 
response.redirect url 
%>


<% end if ' end check for a url value %>

Discussione: Problema conteggio click

Strumenti discussione

Ricerca discussione

Visualizza

Problema conteggio click

Permessi di invio