Problemet med nedan är att det skapas en massa poster med samma datum. Om inte ett datum finns i databasen så ska det skapas, annars ska det uppdateras. Nu skapas det nya rader med samma datum vid varje träff... Är jag för trött eller ???
<% 'Kollar om datumet finns. Om ej så ska raden skapas.
sql = "SELECT * FROM T_site_statistik WHERE datum = #" &varThisDate &"# AND site_url = '" &varPagePath &"'"
Response.Write ("<hr>Söker efter dagens rad..." &sql &"<hr>")
set rs = objConn.execute(sql)
if rs.eof then
'Dagens data finns ej. Ska skapas.
varHitsToday = varHitsToday +1
Query = "Insert into T_site_statistik "
Query = Query & "(senaste_ip, datum, tillhor_ar, tillhor_manad, tillhor_vecka, veckodag, site_url, traffar_idag) "
Query = Query & "Values ('" &varBesokareIp & "',"
Query = Query & "#" & date & "#,"
Query = Query & "" & varThisYear & ","
Query = Query & "" & varThisMonth & ","
Query = Query & "" & varThisWeek & ","
Query = Query & "" & varThisWeekday & ","
Query = Query & "'" & varPagePath & "',"
Query = Query & "" & varHitsToday & ""
Query = Query & ")"
Response.Write ("<hr>Datum finns ej: " &Query &"<hr>")
objConn.execute(query)
else ....
Söker efter dagens rad...SELECT * FROM T_site_statistik WHERE datum = #2004-10-10# AND site_url = '/site_unga/mall_innehall_start.asp'
<% varThisDate = date
varThisWeek = DatePart("WW", date)
varThisYear = DatePart("YYYY", date)
varThisMonth = DatePart("M", date)
varThisWeekday = DatePart("W", Date)
varBesokareIp = request.servervariables("REMOTE_ADDR")
varHitsToday = 0
varHitsTodayStaff = 0
varPagePath = Request.ServerVariables("SCRIPT_NAME")
%>
% 'Kollar om datumet finns. Om ej så ska raden skapas.
sql = "SELECT * FROM T_site_statistik WHERE site_url = '" &varPagePath &"' AND datum = '" &date &"'"
Response.Write ("<hr>Söker efter dagens rad..." &sql &"<hr>")
set rs = objConn.execute(sql)
'response.write rs("ID")
if rs.eof then
'Dagens data finns ej. Ska skapas.
varHitsToday = varHitsToday +1
Query = "Insert into T_site_statistik "
Query = Query & "(senaste_ip, datum, tillhor_ar, tillhor_manad, tillhor_vecka, veckodag, site_url, traffar_idag) "
Query = Query & "Values ('" &varBesokareIp & "',"
Query = Query & "'" & date & "',"
Query = Query & "" & varThisYear & ","
Query = Query & "" & varThisMonth & ","
Query = Query & "" & varThisWeek & ","
Query = Query & "" & varThisWeekday & ","
Query = Query & "'" & varPagePath & "',"
Query = Query & "" & varHitsToday & ""
Query = Query & ")"
Response.Write ("<hr>Datum finns ej: " &Query &"<hr>")
objConn.execute(query)
else...
OK... Det fungerar om jag har en webläsare öppen och klicker på "för unga" och sedan "för vuxna" (se: https://www.projektnelson.se )
Men så fort jag surfar in från en annan dator så skapas en ny post fastän den utprintade sqlfrågan stämmer till 100% med det den ska leta efter i databasen. Informationen FINNS i databasen. Det borde bli en träff. Grrr....
