Räknar fel?

Vad jag kan se blir nyWeek alltid 0.
Alltså körs aldrig

Connect.Execute("INSERT INTO raknare_week (nr,antal,unika,datum) VALUES ("& DatePart("ww", Date(), 2) &",1,1,'"& Now &"')")

Då borde det alltså räcka med att sätta Else före nyWeek = 0
Och ändra IF nyWeek <> 0 then till IF nyWeek = 0 then

Eller detta borde väl funka?

'----------------------------- Räknaren --------------

Set rstRecSet = Connect.Execute("SELECT * FROM raknare where ip = '"& Request.ServerVariables("REMOTE_ADDR") &"' AND datum='" & Date & "'")

if rstRecSet.eof then

'-------------- Plusar på en unik i veckan -----------------------

SQL = "SELECT * From raknare_week WHERE nr <> "& DatePart("ww", Date(), 2) &" AND YEAR(datum) = YEAR(CURDATE()) Order By id Desc"

Set RsWeek = Connect.Execute(SQL)

Do until RsWeek.EOF

IF DatePart("ww", Date(), 2) = DatePart("ww", RsWeek("datum"), 4) then

Connect.Execute("UPDATE raknare_week SET unika = unika + 1 WHERE id = "& RsWeek("id") &"")

Else
'-------------------- OM VECKAN INTE FINNS MED -------------------------
Connect.Execute("INSERT INTO raknare_week (nr,antal,unika,datum) VALUES ("& DatePart("ww", Date(), 2) &",1,1,'"& Now &"')")

End IF

RsWeek.MoveNext
Loop
RsWeek.Close : Set RsWeek = nothing

Eller detta borde väl funka?

Prova så märker du om det funkar eller inte. ;)

Den lägger inte in datumet på den nya veckan utan skapar bara en ny rad..

Menar du att den alltid gör INSERT och aldrig UPDATE?

IF DatePart("ww", Date(), 2) = DatePart("ww", RsWeek("datum"), 4) then

Du har 2 i din ena DatePart och 4 i den andra. Har du provat att ha samma på båda sidorna så att jämförelsevärdet kan bli samma?

Det löste sig när jag la till svensk tid:
Session.LCID = 1053

Fick göra om lite i koden till för att få det att funka :stud
Någon som vet hur man kan optimera den eller bara göra den bättre :r

'----------------------------- Räknaren --------------
Set rstRecSet = Connect.Execute("SELECT * FROM raknare where ip = '"& Request.ServerVariables("REMOTE_ADDR") &"' AND datum='" & Date & "'")

if rstRecSet.eof then

'-------------- Plusar på en unik i veckan -----------------------

SQL = "SELECT * From raknare_week WHERE nr = '"& DatePart("ww", NOW(), 4) &"' AND YEAR(datum) = YEAR(CURDATE()) Order By id Desc"

Set RsWeek = Connect.Execute(SQL)

IF not RsWeek.EOF Then

Connect.Execute("UPDATE raknare_week SET unika = unika + 1 WHERE nr = '"& DatePart("ww", NOW(), 4) + 1 &"' AND YEAR(datum) = YEAR(CURDATE())")

Else
'-------------------- OM VECKAN INTE FINNS MED -------------------------
SQL = "INSERT INTO raknare_week (nr,antal,unika,datum) VALUES ("& DatePart("ww", Date(), 2) &",1,1,'"& Now &"')"

Connect.Execute(SQL)

End IF

RsWeek.Close : Set RsWeek = nothing
'-------------- SLUT Plusar på en unik i veckan SLUT-----------------

En god regel är att börja med att ta bort alla "SELECT *..." och byta ut dem till de aktuella kolumnnamnen.
På alla update, delete och insert så lägger du till ,,128

Connect.Execute(SQL),,128

Som betyder att inget skall returneras.

Ok detta är fixat några mer förslag? :)

Ska man sätta ,,128 efter en COUNT(id) SQL sats?

Kör du med option explicit och dimmar alla variablar? Kapar tiden rätt bra faktiskt.

Ska man sätta ,,128 efter en COUNT(id) SQL sats?

Nej, inte när du hämtar data. Parametern 128 betyder adExecuteNoRecords, och meddelar att inget skall hämtas, så det ska inte skapas något recordset.

"dimmar" variablarna gör jag men använder inte option explicit utan denna kod. Ska jag slänga in option explicit där också för att få bättre prestanda?

<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Expires=-1
Response.Buffer = True
Session.LCID = 1053
%>

Ja, kasta in option explicit högst upp på sidan.

Då får jag detta fel mess:
Active Server Pages error 'ASP 0140'

Page Command Out Of Order

/demo.asp, line 2

The @ command must be the first command within the Active Server Page.

Inte helt högst upp. Ska du ha med @-direktivet måste det vara på översta raden.

Och sätter jag in option explicit efter <%@ LANGUAGE="VBSCRIPT" %>
så funkar inte min databas koppling.

Fel messet:
Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'Connect'

Och min koppling ser ut så här:

Set Connect = Server.CreateObject("ADODB.Connection")
'----- Gamla
Connect.Open = ("Driver={MySQL ODBC 3.51 Driver};Server=ADRESSEN;Port=3306;Database=XXXXX;UID=XXXXXX;PWD=XXXXX;")

Har du Option Explicit måste du deklarera alla variabler. Så, det är bara att sätta igång. :)