Avatar billede kiddoe Nybegynder
03. maj 2006 - 22:51 Der er 2 kommentarer og
1 løsning

hjælp til tæller

Hej - er der nogen der kan lave en lille tæller for mig?
Den skal kunne tælle vor mange gange en profilside er vist

ex. Man går til bullers profil med -

profiler.asp?unik=buller&foresporgsel=&ordre=&side=1

hvor UNIK = BRUGERNAVNET
Feltet der skal tælle op hedder PROFILVIST


/// profilsiden ser sådan ud

<%@ Language="VBScript" %>
<% Option Explicit %>


<!--#INCLUDE FILE="config_inc.asp"-->
<!--#INCLUDE FILE="connection.asp"-->
<!--#INCLUDE FILE="sprog_inc.asp"-->
<!--#INCLUDE FILE="head_inc.asp"-->
<!--#INCLUDE FILE="CHKLOGIN.ASP"-->

<%DIM RS_SHOW_PROFILES,unik,side,foresporgsel,ordre
unik    =    REQUEST.QUERYSTRING("unik")
side = REQUEST.QUERYSTRING("side")
IF side = "" THEN
side = 1
END IF
foresporgsel = REQUEST.QUERYSTRING("foresporgsel")
ordre = REQUEST.QUERYSTRING("ordre")
SET RS_SHOW_PROFILES = SERVER.CREATEOBJECT("ADODB.RECORDSET")
RS_SHOW_PROFILES.OPEN "SELECT * FROM USERS WHERE brugernavn = '"&unik&"'", DBCONN, 3, 3
IF RS_SHOW_PROFILES.EOF THEN%>
<CENTER><H2 CLASS="FONT"><%=pf_bsk_NOMEMBERSFOUND%></H2>
<%ELSE%>

/////  her kommer så udrækket

<%=pf_ProfilesFor%> <%=unik%>
<%=pf_FirstName%>
osv
osv
<%END IF%>

-- håber der en der kan hjælpe :)
Avatar billede kiddoe Nybegynder
03. maj 2006 - 23:18 #1
det var vist noget sludder -
udtræk ser se'føli' sådan her ud -

<%=RS_SHOW_PROFILES("fornavn")%>
osv
osv
indtil
<%=RS_SHOW_PROFILES("PROFILVIST")%>
Avatar billede kiddoe Nybegynder
03. maj 2006 - 23:37 #2
jeg har lige prøvet med følgende,  men der er kun talt op en gang med 1 - og så sker der ikke mere selvom man åbner siden igen - hvad er der galt her :(

<%
DIM rsvisning,profilvist
unik =    request.querystring("unik")
  Set rsvisning = Server.CreateObject("ADODB.Recordset")
  rsvisning.open "users where brugernavn = '"&unik&"'", dbconn, 3, 3   
  rsvisning.update
  rsvisning("profilvist") = + 1
  rsvisning.Update
  rsvisning.close
  SET rsvisning = nothing
%>
Avatar billede kiddoe Nybegynder
04. maj 2006 - 00:29 #3
NÅÅ - det skulle se sådan ud

<%
DIM rsvisning,profilvist
unik =    REQUEST.QUERYSTRING("unik")
  Set rsvisning = Server.CreateObject("ADODB.Recordset")
  rsvisning.open "users where brugernavn = '"&unik&"'", dbconn, 3, 3   
  rsvisning.UPDATE
  rsvisning("profilvist") = rsvisning("profilvist") + 1
  rsvisning.Update
  rsvisning.CLOSE
  SET rsvisning = NOTHING
%>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester