Count !

strSQL = "update rsprofile set counter = counter+1"

...er det det du mener?

Sæt dette ind:

Conn.Execute("UPDATE profiler SET counter = counter +1 WHERE profilID =" & Request.QueryString("ProfilID"))

der hvor du vil ha' den til at tælle!
//>Rune

Husk WHERE ellers opdater du alle record men 1 !!!

strSQL = "update rsprofile set counter = counter+1 WHERE brugerID =" & brugerIDManKiggerPå

hov, glemte WHERE:
strSQL = "update rsprofile set counter = counter+1 WHERE brugersid=" & brugersprofil

oki det var hurtigt svar :-)

nu har jeg dette i scriptet

strSQL = "update users set counter = counter+1 WHERE username =" & profile

men den counter ikke???

strSQL = "update users set counter = counter+1 WHERE username =" & profile
Conn.Execute(strSQL)

//>Rune

oki nu fatter jeg intet*GG* (er heller ikke så go til asp)

nu får jeg fejl i conn.execute(strsql)

der står dette i scriptet nu

<%
sql = "SELECT * FROM users WHERE username Like '" & startletter & "%' ORDER BY username"
Set rsProfile = Server.CreateObject("ADODB.Recordset")
rsProfile.Open sql, conn, 3, 3

strSQL = "update users set counter = counter+1 WHERE username =" & id

Conn.Execute(strSQL)

%>

fx.

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")

strSQL = "update users set counter = counter+1 WHERE username =" & profile
Conn.Execute(strSQL)

så skulle det gerne virke.. hvis ikke, hvilken fejl får du så?
-husk lige at rette scriptet til så det passer til din database-sti!
//>Rune

jeg får denne fejl

Microsoft JET Database Engine error '80040e14'

Syntax error in UPDATE statement.

/show_profil.asp, line 233

og sådan her ser det ud.

<%
Dim sql,counter,vagt, hojde, hafarve, ojfarve, ryger, landsdel, sexorient, ptype, udsende, rsProfile, username, sex, lookfor, startletter, user, profil ,id


startletter = Request.QueryString("user")

username = Request.Cookies("username")
if username = "" then
  Response.Redirect("nologin.asp?page=show_profil.asp")
end if
%>

</font>

                                <p align="center" style="line-height: 100%; word-spacing: 0; margin-top: 0; margin-bottom: 0"><font color="#000000" face="Garamond" size="2">  <!--#include file="conn.asp"-->
<%
sql = "SELECT * FROM users WHERE username Like '" & startletter & "%' ORDER BY username"
Set rsProfile = Server.CreateObject("ADODB.Recordset")
rsProfile.Open sql, conn, 3, 3

strSQL = "update users set counter = counter+1 WHERE username =" & profile
Conn.Execute(strSQL)


%>
conn.asp er den der åbner databasen.

<%
Dim sql,counter,vagt, hojde, hafarve, ojfarve, ryger, landsdel, sexorient, ptype, udsende, rsProfile, username, sex, lookfor, startletter, user, profil ,id


startletter = Request.QueryString("user")

username = Request.Cookies("username")
if username = "" then
  Response.Redirect("nologin.asp?page=show_profil.asp")
end if
%>

</font>

                                <p align="center" style="line-height: 100%; word-spacing: 0; margin-top: 0; margin-bottom: 0"><font color="#000000" face="Garamond" size="2">  <!--#include file="conn.asp"-->
<%
sql = "SELECT * FROM users WHERE username Like '" & startletter & "%' ORDER BY username"
Set rsProfile = Server.CreateObject("ADODB.Recordset")
rsProfile.Open sql, conn, 3, 3

strSQL = "update users set counter = counter+1 WHERE username ='" & profile & "'"
Conn.Execute(strSQL)
%>

Prøv lige med dette!
//>Rune

Stadig fejl  /medions

Den hvor du vælder har du:  username Like '" &startletter & "%'
Det betyder jo at man bare behøver skrive begyndelsen af username så du må bruge den user man finder ved søgeningen:

rsProfile.Open sql, conn, 3, 3

if NOT rsProfile.EOF then
  strSQL = "update users set counter = counter+1 WHERE username ='" & rsProfile("username") & "'"
  Conn.Execute(strSQL)
end if

eagleeye/

der får jeg også fejl !

hvilken ?

i den linje hvor Conn.Execute(strSQL) står

Microsoft JET Database Engine error '80040e14'

Syntax error in UPDATE statement.

/show_profil.asp, line 233

arh counter er reserveret ord i Access, prøv at sætte [] omrkring [counter]:

strSQL = "update users set [counter] = [counter]+1 WHERE username ='" & rsProfile("username") & "'"

den opdater stadig kun counteren på ham der er logget ind `s profil!!!

men der er ikke fejl på siden?

så prøv at udskrive denne strSQL inde Conn.execute:

strSQL = "update users set [counter] = [counter]+1 WHERE username ='" & rsProfile("username") & "'"
Response.write strSQL
Conn.Execute(strSQL)


og tjek om den i WHERE username = 'RIGTIG NAVN HER' skriver det rigtige navn.

det funker nu tak  alle

håber det er ok jeg deler point`s`ne mellem jer

Anytime
Thx 4 Poinz

//>Rune

Søgte underr Counter-Strike og fik denne frem?