Statistik til nyhedsbrev

Kan det skyldes at under forløbet sker der dobbelt indsætning fordi du har brugt samme kode to gange? - eller måske fordi du rammer den samme side (indholdt den kode som indsætter til databasen) to gange?

Måske fortælle hvor mange filer man møder på sin vej ved at trykke på øverste link du skriver?!

Evt. så skriv din indsætningskode til databasen. Måske gør du det forkert?!

kode som ser ud til at virke:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/scandlines.asp" -->
<%
'Undgå for mange scriptlimiters (<% ), de har det med at sløve scriptet!
SetLocale(1030)
Set rsNyhedsbrev = Server.CreateObject("ADODB.Recordset")
rsNyhedsbrev.ActiveConnection = MM_scandlines_STRING

'Undgaa *, vi skal kun bruge id, så derfor nøjes vi med id!
rsNyhedsbrev.open("SELECT IDnyhedsbreve FROM BorderShopNyhedsbrev ORDER BY IDnyhedsbreve DESC")
    nyhedsbrevID = (rsNyhedsbrev.Fields.Item("IDnyhedsbreve").Value)
'Luk basen med det samme!
rsNyhedsbrev.Close()
Set rsNyhedsbrev = Nothing

'Ingen grund til at definere date og time her... Det går vi i sql'en
link        = Request.Querystring("Link")
modtager    = Request.Querystring("Modtager")
url            = Request.Querystring("URL")

Set rsInsert = Server.CreateObject("ADODB.Recordset")
rsInsert.ActiveConnection = MM_scandlines_STRING
'husk at smide dine værdier ind i sql'en...
insert = "INSERT INTO BorderShopStatistik (nyhedsbrevID, Link, Dato, Tid, Modtager, URL) VALUES (" & nyhedsbrevID & ", '" & link & "', '" & date() & "', '" & time() & "', '" & modtager & "', '" & url & "')"
    rsInsert.open(insert)
'rsInsert.Close()
Set rsInsert = Nothing
Response.Redirect(url)
'http://www.border-wines.dk/newstats.asp?Link=Brugerdefinerede links&Modtager=Michael&URL=http://www.because.dk
%>