räkna klick och länk

När jag klickar på länken ovan, så kommer jag till en sida som säger "Can not find site id or program id. Please inform the webmaster.", vilket borde innebära att felet ligger hos TradeDoubler och inte i ditt script.

RED. Nja, vänta lite nu. Givetvis blir det så, du har ju en querystring i en querystring där nere. Eftersom du har en & i querystringen till TradeDoubler så kommer den första querystringen (på din sida) att tro att det är dens egen. Därför klipper den av där.

ok tack..

finns det nån käck lösning på det utan för den skull behöva ta boret själva klickräknandet?

Jajamensan, jag var bara tvungen att läsa på lite om huruvida det fungerade eller inte. ;)

Först; hur ser koden ut i 'hits.asp'?

har inte den här tyvärr... den plockar hur som helst ut infon från databasen och skickar vidare med en response.redirect

Den här koden kan fungera, du får dock modifiera enligt fält i databasen. Din länk måste se ut så här: sida.asp?id=x där x är ett nummer.

<%
Dim idnr, Cn
idnr = Request.Querystring("id")

If Not IsNumeric(idnr) Then 'ingen siffra
Response.Write "Det måste vara en siffra på id, inte text"
Else 'siffra
idnr = Cint(idnr)

Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("klicks.mdb")
Cn.Execute("UPDATE tbl_klicks Set Klicks=Klicks--1 WHERE Id=" & idnr)
Cn.Close : Set Cn = Nothing

Response.Redirect "http://tracker.tradedoubler.com/click?p=8848&a=797452"
End If
%>

Något så där borde koden kunna se ut - nu är det bara att modifiera och sedan klippa och klistra! :)

Förresten, det här är mitt 1000:e inlägg!

så här ser koden ut i hits.asp

ID är själva http adressen
<%

url = Request.Querystring("id")
datum = date

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "xxx"
sql = "UPDATE lankar SET hits = hits + 1, datum = '" & datum & "' WHERE lank = '" & url & "'"
conn.Execute sql

response.redirect "http://"&url

%>

En snabb kommentar bara... om du använder Access som du skrev ska din update (förutsatt att använder Date/Time fält för ditt datum) väl vara följande:

sql = "UPDATE lankar SET hits = hits + 1, datum = #" & datum & "# WHERE lank = '" & url & "'"

nu ser filen ut så här... men den kommer inte vidare
Id är ett nummer som motsvarar en länk i databasen

id = Request.Querystring("id")
datum = date

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "xxxxx"
sql = "UPDATE lankar SET hits = hits + 1, datum = '" & datum & "' WHERE id ="&id
Conn.Execute sql

Set rs = Server.CreateObject("ADODB.Recordset")
sql1 = "Select lank from lankar where id ="&id
rs.Open sql1

url = rs("lank")

response.redirect "http://"&url

Det kanske är så att längst upp på sidan bör du lägga till

<% Response.Buffer = True %>

och på slutet får du sedan köra med

url = rs("lank")

Response.Clear
Response.Redirect "http://" & url

Om sidan redan har skickats till klienten kan det strula med Redirect.

hade med buffer innan och la till "clear" men det hjälper inte

kika på

http://www.amts.nu/newsite/lankar.asp

den lägger till hits i databsen men skickar inte besökaren vidare

här är länken som jag klickar på i sidan innan

<a href="hits.asp?id=<%=rs("id")%>" target="blank">

id = CInt(Request.QueryString("id"))

Kanske hjälper? Vilken rad är det felmeddelandet syftar på?

jag får inget felmeddelande alls... bara en tom sida.. det är som att den struntar i att utföra redirect

Jag får:

pellsäters sida skrev:

ADODB.Recordset error '800a0e7d'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

/newsite/hits.asp, line 23

Set rs = Server.CreateObject("ADODB.Recordset")
sql1 = "Select lank from lankar where id ="&id
rs.Open sql1

den sista raden är rad 23.. varför får jag inget felmeddelande

Har du testat att skriva
id = CInt(Request.QueryString("id"))?

japp... är det nåt fel med SQL satserna?

/R: Nu fungerar det visst :)

gör det ??? hos mig funkar det inte