Hvor for jeg kun 1 post !

Ud fra det kode du har så kunne det være fordi der kun er en post?
men der er jo nok flere end en når du spørger :)

Du bliver nød til at vise det kode som udskriver posterne, altså ned til linien hvor der står:  loop

<%
SQL = "DELETE * FROM nytabel2006_statastik_buffer_brugere"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2




SQL = "SELECT * FROM nytabel2006_statastik_log_unikke"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2



  DO WHILE NOT rs.EOF







ip_nr = rs("ip")
count_nr = rs("count")
sprog_op = rs("sprog")




SQL = "SELECT count(*) as log_post_brugere FROM nytabel2006_statastik_log_unikke WHERE ip = '" & ip_nr & "' AND count = " & count_nr & ""
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2
log_post_brugere = rs("log_post_brugere")





%><script>alert('<%=ip_nr%>');</script><%




SQL = "SELECT * FROM nytabel2006_statastik_buffer_brugere"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2
rs.addnew
rs("count") = log_post_brugere
rs("ip") = ip_nr
rs("sprog") = sprog_op
rs.Update

rs.MoveNext
LOOP
%>

ok, det er fordi du overskriver dit recordset rs når du laver count og igen når du indsætter en ny post i nytabel2006_statastik_buffer_brugere.

Du skal bruge forskellige navne til hvert recordset du bruger, eksempel kan du rette det recordset du brurger til at tælle:

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2
log_post_brugere = rs("log_post_brugere")


Til rs_count:

Set rs_count = Server.CreateObject("ADODB.Recordset")
rs_count.Open SQL, Conn,1, 2
log_post_brugere = rs_count("log_post_brugere")
rs_count.Close  'ny linie
Set rs_count = nothing  'ny linie



Det samme gælder hvor der sætte ind i den anden tabel:

SQL = "SELECT * FROM nytabel2006_statastik_buffer_brugere"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2
rs.addnew
rs("count") = log_post_brugere
rs("ip") = ip_nr
rs("sprog") = sprog_op
rs.Update


Der kan du evt. kalde det for rs_buf:

SQL = "SELECT * FROM nytabel2006_statastik_buffer_brugere"
Set rs_buf = Server.CreateObject("ADODB.Recordset")
rs_buf.Open SQL, Conn,1, 2
rs_buf.addnew
rs_buf("count") = log_post_brugere
rs_buf("ip") = ip_nr
rs_buf("sprog") = sprog_op
rs_buf.Update
rs_buf.Close  'ny linie
Set rs_buf = Nothing 'nyline

Dette giver en fejl der hedder...:

Operation is not allowed when the object is closed.

På den første linie med denne tekst...: rs.Close  'ny linie



<%
SQL = "DELETE * FROM nytabel2006_statastik_buffer_brugere"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2


rs.Close  'ny linie
Set rs = nothing  'ny linie



SQL = "SELECT * FROM nytabel2006_statastik_log_unikke"
Set rs_rull = Server.CreateObject("ADODB.Recordset")
rs_rull.Open SQL, Conn,1, 2



  DO WHILE NOT rs.EOF







ip_nr = rs_rull("ip")
count_nr = rs_rull("count")
sprog_op = rs_rull("sprog")

rs_rull.Close  'ny linie
Set rs_rull = nothing  'ny linie




SQL = "SELECT count(*) as log_post_brugere FROM nytabel2006_statastik_log_unikke WHERE ip = '" & ip_nr & "' AND count = " & count_nr & ""
Set rs_count = Server.CreateObject("ADODB.Recordset")
rs_count.Open SQL, Conn,1, 2
log_post_brugere = rs_count("log_post_brugere")
rs_count.Close  'ny linie
Set rs_count = nothing  'ny linie





%><script>alert('<%=ip_nr%>');</script><%




SQL = "SELECT * FROM nytabel2006_statastik_buffer_brugere"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2
rs.addnew
rs("count") = log_post_brugere
rs("ip") = ip_nr
rs("sprog") = sprog_op
rs.Update
rs.Close  'ny linie
Set rs = nothing  'ny linie


    rs.MoveNext
  LOOP
%>

du kan slette disse to i toppen da der udføres en DELETE SQL:

rs.Close  'ny linie
Set rs = nothing  'ny linie




Så skal denne rettes:

DO WHILE NOT rs.EOF


Til rs_full:


DO WHILE NOT rs_full.EOF

Det samme gælder for denne:

rs.MoveNext

Det skal være rs_full:

rs_full.MoveNext

Den siger: Object required

På: rs_rull.MoveNext

Prøv at fjerne disse to linier inde i loopet, de skal først være efter loop.

rs_rull.Close  'ny linie
Set rs_rull = nothing  'ny linie

Okay... Den fremklader kun den sidte linie i databasen... Men de er der...
Hvad er der så galt med dette script, til at fremkalde dem...!

<%
SQL = "SELECT TOP 10 * FROM nytabel2006_statastik_buffer_brugere ORDER BY count desc"
Set rs_kald = Conn.Execute(SQL)


if less10 = "" then
less10 = "1"
else
less10 = less10+1
end if
%>


<tr>
<td class="feltnavn" style="width:0px;"><%=less10%></td>
<td class="feltnavn" style="width:0px;"><%=rs_kald("count")%></td>
<td class="feltnavn" style="width:0px;"><%=rs_kald("ip")%></td>
<td class="feltnavn" style="width:0px;"><%=rs_kald("sprog")%></td>
</tr>


<%
rs_kald.Close  'ny linie
Set rs_kald = nothing  'ny linie
%>

Der manger et loop prøv sådan her:


<%
SQL = "SELECT TOP 10 * FROM nytabel2006_statastik_buffer_brugere ORDER BY count desc"
Set rs_kald = Conn.Execute(SQL)


do while not rs_kald.EOF

if less10 = "" then
less10 = "1"
else
less10 = less10+1
end if
%>

<tr>
<td class="feltnavn" style="width:0px;"><%=less10%></td>
<td class="feltnavn" style="width:0px;"><%=rs_kald("count")%></td>
<td class="feltnavn" style="width:0px;"><%=rs_kald("ip")%></td>
<td class="feltnavn" style="width:0px;"><%=rs_kald("sprog")%></td>
</tr>

<%
  rs_kald.Movenext
loop
rs_kald.Close  'ny linie
Set rs_kald = nothing  'ny linie
%>

Hvis jeg nu skriver scriptet således:

SQL = "SELECT * FROM nytabel2006_statastik_buffer_brugere"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2

if ip_nr <> rs("ip") AND count_nr <> rs("count") then

rs.addnew
rs("count") = log_post_brugere
rs("ip") = ip_nr
rs("sprog") = sprog_op
rs.Update

end if


rs.Close  'ny linie
Set rs = nothing  'ny linie


    rs_rull.MoveNext
  LOOP

rs_rull.Close  'ny linie
Set rs_rull = nothing  'ny linie

Så jeg sikre mig at jeg ikke for 2 end poster ind i min database - kommer den med en fejl der hedder...!: Exception occurred.

På denne linie: if ip_nr <> rs("ip") AND count_nr <> rs("count") then

Så skal du prøve at lave dette kode:

SQL = "SELECT * FROM nytabel2006_statastik_buffer_brugere"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2

if ip_nr <> rs("ip") AND count_nr <> rs("count") then

rs.addnew
rs("count") = log_post_brugere
rs("ip") = ip_nr
rs("sprog") = sprog_op
rs.Update

end if



Om til dette så det er i SQL sætningen den tjekker om IP'en og count findes. Findes den ikke tilføjes en ny. Fejlen opstår hvis rs er tomt. Så prøv sådan her, jeg har antaget at count kolonnen er en tal kolonne:


SQL = "SELECT * FROM nytabel2006_statastik_buffer_brugere where ip = '" & ip_nr & "' and [count] = " &  count_nr
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2

if rs.EOF then

rs.addnew
rs("count") = log_post_brugere
rs("ip") = ip_nr
rs("sprog") = sprog_op
rs.Update

end if

Så kommer den med denne fejl...: Data type mismatch in criteria expression.

På denne linie: rs.Open SQL, Conn,1, 2 - på den du lige skrev....

Så prøv at rette denne linie:
SQL = "SELECT * FROM nytabel2006_statastik_buffer_brugere where ip = '" & ip_nr & "' and [count] = " &  count_nr

Til denne:

SQL = "SELECT * FROM nytabel2006_statastik_buffer_brugere where ip = '" & ip_nr & "' and [count] = '" &  count_nr & "'"

Den laver stadig dubletter....!

Og der kommer 12 poster ud...

Er det så de rigtgie parametre den tjekker på?

Så vidt jeg kan se ligger du variblen:  log_post_brugere ind i count men tjekker på om count er lig varialben count_nr  hvilken en af de to skal det være??

Hvis det skal være log_post_brugere, så prøv at rette denne linie:

SQL = "SELECT * FROM nytabel2006_statastik_buffer_brugere where ip = '" & ip_nr & "' and [count] = '" &  count_nr & "'"

Til dette:

SQL = "SELECT * FROM nytabel2006_statastik_buffer_brugere where ip = '" & ip_nr & "' and [count] = '" &  log_post_brugere & "'"

Nu kommer de pågældene poster ud men den sotere slet ikke...!
Selvom jeg har skrevet:  ORDER BY count desc

Jo den sortere nok efter det første tal, ud fra SQL sætningen så er kolonnen count af typen tekst. Tekst sortere karakter for karakter :)

Prøv at konverter count til int i SQL sætningen sådan her:

ORDER BY int(count) desc

Det var godt nok _____ !!
Det virker SkU... - 1000 tak...

Har lige nogle spørgsmål...

er:

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2

det samme som:

Set rs_kald = Conn.Execute(SQL)

og hvad gør at du lige satte: int(count) rundt om count og hvorfor har du sat count i [] tidligere ex. [count]

er:

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2

det samme som:

Set rs_kald = Conn.Execute(SQL)


Både ja og nej. Man får det samme ud af det. Et recordset med data fra database.  Den første metode er det recordsetet som connecter til database og får data i sig. Den anden metode er det connection som executer en SQL og ligger data ind i et recordset. Typsik er der ingen forskel på de to og man man frist vælge hvilken metode man ønker at bruge. Der er en undtagelse hvor den første metode skal bruges og det er hvis man vil lave paging og det er fordi man bruger bookmarks og speical properties på recordset som kun bliver sat i ved første metode.


og hvad gør at du lige satte: int(count) rundt om count og hvorfor har du sat count i [] tidligere ex. [count]

Int(count), int() er en funktion som konverter en teskt til et tal. Teksten skal indeholde et tal, men fordi typen er teskt vil sorteren ikke give det man forventer. Klammerne omkring [count] betyder at det som er inden for klammerne er et kolonnenavn eller tabelnavn i SQL sætningen. Man bruger det hvis et navne indeholder uheldige tegn som - og +. Samt når man bruger reserverede ord som kolonnenavne, count bruger til at tælle med så for at undgå fejl sætte jeg [] omkring. Men den brokker sig åbenbart ikke over count i ORDER BY delen..

Igen.. 1000 tak for hjælpen...

Det var en stor hjælp... - Så har jeg jo også lært noget idag... :)

kunne du hjælpe mig med et lig. problem...?

Kunne virkelig godt bruge noget hjælp på: http://www.eksperten.dk/spm/696477 hvis du havde tid...?