Begränsa till 5 poster

sql = "select count(*),min(dateTimeColumn) " & _
" from tabell where profilid = "&Request.Querystring("ProfilId")
set rs = conn.execute(sql)

if  cint(rs(0)) = 5 then
sql = "update tabell " & _
" set dateTimeColumn = current_timestamp, " &_
" anvid = " & Request.Querystring("AnvId")  & _
" where profilid = "&Request.Querystring("ProfilId") & _
" and dateTimeColmn = '" & rs(1) & "'"
else
sql = "insert into tabell values ( " &_
 Request.Querystring("ProfilId") & _
"," & Request.Querystring("AnvId") & _
",current_timestamp)"
end if
rs.close
conn.execute sql,,128

Varför har du en räknare med i tabellen? Min kod förutsätter att det inte finns någon sådan kolumn med.

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 19 aug 2001]

Hej!

Tack för hjälpen, verkar vara en kanonlösning, ska testa :)

mvh jörgen

------------------
*** Var går gränsen mellan långa kortbyxor och korta långbyxor? ***

Hej!

Lite problem som jag inte hajar riktigt:

1. Varför måste man ange GROUP BY när man använder min, max eller count?

2. Min kod ser nu ut enligt nedan. Och det finns 5 poster i databasen med 5 olika AnvId vilka finns med i båda tabellerna. Den skriver ut en post och genererar sedan ett felmess:

ADODB.Recordset.1 error '80020009'

Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.

/hundmagazine/forum/profil.asp, line 179

if cint(rs(0)) = 5 then

sql = "SELECT count(*), min(dteDate), Profil.req_Username " & _

"FROM b1180.ProfilVisit " & _
"INNER JOIN b1180.Profil " & _
"on ProfilVisit.ProfilId = Profil.AnvId " & _
"where ProfilId = "&Request.Querystring("AnvId") & _
" GROUP BY ProfilId "

set rs = Connection.execute(sql)

Do until rs.EOF

response.write "<p>  "& rs("req_Username") &", "& rs("dteDate") &" "

rs.movenext
loop

if cint(rs(0)) = 5 then
sql = "update b1180.ProfilVisit " & _
" set dteDate = Now(), " & _
" VisitId = " & Request.kaka("Koll")("check") & _
" where ProfilId = "&Request.Querystring("AnvId") & _
" and dteDate = '" & rs(1) & "'"
else

Dim Tid
Tid = Now()

sql ="insert into b1180.ProfilVisit "

sql = sql & "(VisitId, ProfilId, dteDate) "

sql = sql & "VALUES(" & Trim(Request.kaka("Koll")("check")) & ", " & Trim(Request.Querystring("AnvId")) & ", '" & Tid & "') "

end if
rs.close

Connection.Execute sql,,128

mvh Jörgen

------------------
*** Var går gränsen mellan långa kortbyxor och korta långbyxor? ***

Hej!

Kom på en sak till. Så som det är nu begränsar den till totalt 5 poster i databasen. Men den ska begränsa till 5 poster med ett unikt ProfilId. Alltså ska det bara få förekomma 5 poster med samma ProfilId men dock fler poster i databasen.

Hur kommer jag ifrån att använda Group BY när jag använder COUNT, MIN, MAX, finns det något annat trix för att slippa något av det. Annars grupperar den och visar bara en.

mvh Jörgen

------------------
*** Var går gränsen mellan långa kortbyxor och korta långbyxor? ***

Du måste ha group by om du blandar kolumner och aggregatfunktioner som avg,max etc. Mängdfunktionerna returnerar alltid ett värde men man vet aldrig hur många värden det blir om man har en kolumn, och därför blir det svårt att få ihop det till en tabell där alla rader har lika många kolumner. Däremot om man använder group by så returnerar aggregatfunktionerna ett värde per grupp (med avseende på de kolumner som grupperas).

Att du får felet med EOF beror på att du använder rs(0) efter det att du har loopat igenom alla rader och redan nått till slutet.

Du får nog dela upp det i två delar, en där du bara visar data och en där du gör update/insert

Alternativt så kan du hämta posterna sorterat i fallande datumordning och räkna antalet. Om det är 5 stycken så kan du uppdatera den posten annars göra insert

set rs = execute("SELECT dteDate, Profil.req_Username,profil.anvid " & _
" FROM b1180.ProfilVisit " & _
"INNER JOIN b1180.Profil " & _
"on ProfilVisit.ProfilId = Profil.AnvId " & _
"where ProfilId = "&Request.Querystring("AnvId") & _
" order by dteDate desc "

visits = 0
while not rs.eof 
  visits = visits -- 1
  if  visits = 5 then
      dtedate = rs("dtedate")
      anvid = rs("anvId")
  end if
'skriv ut
  rs.movenext
wend

if  visits = 5 then
'update
else
'insert
end if

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 19 aug 2001]

Tusen tackar LarsG för alla dina kanonsvar :e

mvh Jörgen

------------------
*** Var går gränsen mellan långa kortbyxor och korta långbyxor? ***