hey guys, me again. i have a small problem that i think i may just need a fresh set of eyes to bust;
i have a counter i put in one of my pages that displays member profiles, what i'm telling this to do is lookup the CUURENT value in the db, and then ad one to in, and then update the db. the problem is, for some reason, and only on certain people's profile, it's incrimenting by 2?
at first i had the code in the page load routine, because it IS a counter, but to troubleshoot, i put it in it's own routing and call it from the page's load routine, but i'm still getting the SAME thing, and what get's me is that it's only doing it on CERTAIN people's profiles, but it's the same damned page that displays them all!??!@
so if someone could kindly take a peep at this and tell me what may be wrong, i'd be grateful:
Code:
if you want to see this bullcrap in action, you can look here, and hit refresh, and then go to other people's pages and see that some of the people's counters are inaccurate:
http://grimmusic.com/?SRC=http://www...spx?uname=ALEX again, thanks for ANY help in advance.
ALEX GRIM; WWW.GRIMMUSIC.COM
Edit/Delete Message

---------------------------
A Black sheep moves easy in the darkness.
[email protected]
WWW.GRIMMUSIC.COM

__________________
---------------------------
A Black sheep moves easy in the darkness.
[email protected]
WWW.GRIMMUSIC.COM

YOU KNOW WHAT, nevermind, it butchered my post, so i don't expect anyone to be able to read this crap. i'll try the code again..............

---------------------------
A Black sheep moves easy in the darkness.
[email protected]
WWW.GRIMMUSIC.COM

ok, here goes nothing again..........


<%@ IMPORT NAMESPACE="SYSTEM.DATA"%>
<%@ IMPORT NAMESPACE="SYSTEM.DATA.OLEDB"%>
<%@ Page TRACE=FALSE LANGUAGE="VBscript" %>
<script language="VB" runat="server">

PUBLIC VEIW AS INTEGER

        Sub Page_Load(Sender As Object, E As EventArgs)

DIM UNAME = REQUEST.QueryString("UNAME")
UNAME2.TEXT = REQUEST.QUERYSTRING("UNAME")
UNAME3.TEXT = REQUEST.QUERYSTRING("UNAME")

IF UNAME = "0000000000000" ANDALSO NOT REQUEST.COOKIES("CK") IS NOTHING THEN
UNAME = REQUEST.COOKIES("CK")("UID")
UNAME3.TEXT = REQUEST.COOKIES("CK")("UID")
UNAME2.TEXT = REQUEST.COOKIES("CK")("UID")
END IF

LINK.TEXT= "http://grimmusic.com/?SRC=http://www.profiles.grimmusic.com/c.aspx?uname=" &uname
YES.NAVIGATEURL = ("VOTE2.ASPX?MYNAME=" & UNAME & "&VOTE=YES&FROM=C")
NO.NAVIGATEURL = ("VOTE2.ASPX?MYNAME=" & UNAME & "&VOTE=NO&FROM=C")
HCOMMENT.NAVIGATEURL = ("COMMENT.ASPX?UNAME="& UNAME)
HPRIVATE.NAVIGATEURL = ("COMMENT.ASPX?UNAME="& UNAME & "&STATUS=PRIVATE")
HMESSAGE.NAVIGATEURL = ("MESSAGE.ASPX?UNAME=" & UNAME)
GALL2.NAVIGATEURL = ("PIC.ASPX?UNAME=" &UNAME)
BUDDY.NAVIGATEURL=("FREINDREQ.ASPX?UNAME=" & UNAME)
VIEWFREIND.NAVIGATEURL=("VEIWFREIND.ASPX?UNAME=" & UNAME)


DIM CON AS OLEDBCONNECTION
DIM DAA AS OleDbDataAdapter
DIM DAS AS DataSET
CON = NEW OLEDBCONNECTION ("PROVIDER=MICROSOFT.JET.OLEDB.4.0;Data Source=Z:\WWW\DATA\MX.mdb")
DAA = NEW OleDbDataAdapter ("SELECT * FROM PROFILE WHERE UNAME='"& UNAME &"'", CON)
DAS = NEW DataSet
DAA.Fill (DAS,"PROFILE")

TRY
IF LEN(DAS.Tables("PROFILE").ROWS(0).ITEM(0).TOSTRING ) = 0 THEN RESPONSE.REDIRECT("NO.ASPX")
CATCH EX AS INDEXOUTOFRANGEEXCEPTION
RESPONSE.REDIRECT("NO.ASPX")
END TRY

IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("RADIO ").TOSTRING) THEN r.TEXT = DAS.Tables("PROFILE").ROWS(0).ITEM("RADIO").TOSTRI NG

IF DAS.Tables("PROFILE").ROWS(0).ITEM("PIC01").TOSTRI NG = "" THEN
PIC.ImageUrl = "01.JPG"
ELSE
PIC.ImageUrl = "USERS/" & UNAME & "/01" & DAS.Tables("PROFILE").ROWS(0).ITEM("PIC01").TOSTRI NG
END IF

IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("AGE") .TOSTRING) THEN AGE.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("AGE").TOSTRING & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("ASTAT E").TOSTRING) THEN STATE.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("ASTATE").TOSTR ING & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("HGT") .TOSTRING) THEN HGT.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("HGT").TOSTRING & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("WGT") .TOSTRING) THEN WHT.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("WGT").TOSTRING & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("CLR") .TOSTRING) THEN CLR.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("CLR").TOSTRING & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("STATU S").TOSTRING) THEN SNGLE.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("STATUS").TOSTR ING & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("ASEX" ).TOSTRING) THEN ************.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("ASEX").TOSTRIN G & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("OCCUP ATION").TOSTRING) THEN OCC.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("OCCUPATION").T OSTRING & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("SIGNA TURE").TOSTRING) THEN SIG.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("SIGNATURE").TO STRING & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("ABOUT ").TOSTRING) THEN ABOUT.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("ABOUT").TOSTRI NG & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("MEDIA ").TOSTRING) THEN MEDIA.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("MEDIA").TOSTRI NG & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("HOPES ").TOSTRING) THEN HOPES.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("HOPES").TOSTRI NG & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("LIKES ").TOSTRING) THEN LIKES.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("LIKES").TOSTRI NG & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("DISLI KES").TOSTRING) THEN DISLIKES.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("DISLIKES").TOS TRING & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("QUOTE ").TOSTRING) THEN QUOTE.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("QUOTE").TOSTRI NG & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("CRUSH ").TOSTRING) THEN CRUSH.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("CRUSH").TOSTRI NG & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("GPPL" ).TOSTRING) THEN GPPL.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("GPPL").TOSTRIN G & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("BPPL" ).TOSTRING) THEN BPPL.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("BPPL").TOSTRIN G & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("INSUL TS").TOSTRING) THEN INSULT.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("INSULTS").TOST RING & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("PRAIS ES").TOSTRING) THEN PRAISE.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("PRAISES").TOST RING & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("OPINI ON").TOSTRING) THEN OPINION.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("OPINION").TOST RING & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("PAGEB G").TOSTRING) THEN PAGEBG.TEXT = DAS.Tables("PROFILE").ROWS(0).ITEM("PAGEBG").TOSTR ING
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("CTIME ").TOSTRING) THEN JOINED.TEXT = "<SPAN CLASS=TDT>" & DAS.Tables("PROFILE").ROWS(0).ITEM("CTIME").TOSTRI NG & "</SPAN>"
IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("LASTO N").TOSTRING) THEN LASTON.TEXT = DAS.Tables("PROFILE").ROWS(0).ITEM("LASTON").TOSTR ING

IF NOT ISDBNULL(DAS.Tables("PROFILE").ROWS(0).ITEM("VEIWS ")) THEN VEIW = DAS.Tables("PROFILE").ROWS(0).ITEM("VEIWS")
VEIWS.TEXT = VEIW

DIM F1
DIM F2
DIM F3
DIM F4
DIM F5


IF LEN(DAS.Tables("PROFILE").ROWS(0).ITEM("TH").TOSTR ING) > 0 THEN
TH.TEXT = DAS.Tables("PROFILE").ROWS(0).ITEM("TH").TOSTRING
ELSE
TH.TEXT = "#000000"
END IF


IF LEN(DAS.Tables("PROFILE").ROWS(0).ITEM("T").TOSTRI NG) > 0 THEN
T.TEXT = DAS.Tables("PROFILE").ROWS(0).ITEM("T").TOSTRING
ELSE
T.TEXT = ""
END IF

IF LEN(DAS.Tables("PROFILE").ROWS(0).ITEM("TDT").TOST RING) > 0 THEN
TDT.TEXT = DAS.Tables("PROFILE").ROWS(0).ITEM("TDT").TOSTRING
ELSE
TDT.TEXT = "#D0D0D0"
END IF

IF LEN(DAS.Tables("PROFILE").ROWS(0).ITEM("THT").TOST RING) > 0 THEN
THT.TEXT = DAS.Tables("PROFILE").ROWS(0).ITEM("THT").TOSTRING
ELSE
THT.TEXT = "BEIGE"
END IF

IF LEN(DAS.Tables("PROFILE").ROWS(0).ITEM("TD").TOSTR ING) > 0 THEN
TD.TEXT = DAS.Tables("PROFILE").ROWS(0).ITEM("TD").TOSTRING
ELSE
TD.TEXT = "#2C2C2C"
END IF



TRY

IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("F1"). TOSTRING) THEN
DIM DAX1 AS OLEDBDATAADAPTER
DIM DSX1 AS DATASET
F1 = DAS.Tables("PROFILE").ROWS(0).ITEM("F1").TOSTRING
DAX1 = NEW OLEDBDATAADAPTER("SELECT UNAME,ONLINE,PIC01 FROM PROFILE WHERE UNAME='" & F1 & "'", CON)
DSX1 = NEW DataSet()
DAX1.Fill (DSX1, ("PROFILE"))
IF1.IMAGEURL = "/USERS/" & F1.TOSTRING & "/01" & DSX1.TABLES(0).ROWS(0).ITEM("PIC01").TOSTRING
HF1.NAVIGATEURL = "C.ASPX?UNAME=" & F1
LF1.TEXT = F1
END IF

IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("F2"). TOSTRING) THEN
DIM DAX2 AS OLEDBDATAADAPTER
DIM DSX2 AS DATASET
F2 = DAS.Tables("PROFILE").ROWS(0).ITEM("F2").TOSTRING
DAX2 = NEW OLEDBDATAADAPTER("SELECT UNAME,ONLINE,PIC01 FROM PROFILE WHERE UNAME='" & F2 & "'",CON)
DSX2 = NEW DataSet()
DAX2.Fill (DSX2, ("PROFILE"))
IF2.IMAGEURL = "/USERS/" & F2.TOSTRING & "/01" & DSX2.TABLES(0).ROWS(0).ITEM("PIC01").TOSTRING
HF2.NAVIGATEURL = "C.ASPX?UNAME=" & F2
LF2.TEXT = F2
END IF


IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("F3"). TOSTRING) THEN
DIM DAX3 AS OLEDBDATAADAPTER
DIM DSX3 AS DATASET
F3 = DAS.Tables("PROFILE").ROWS(0).ITEM("F3").TOSTRING
DAX3 = NEW OLEDBDATAADAPTER("SELECT UNAME,ONLINE,PIC01 FROM PROFILE WHERE UNAME='" & F3 & "'",CON)
DSX3 = NEW DataSet()
DAX3.Fill (DSX3, ("PROFILE"))
IF3.IMAGEURL = "/USERS/" & F3.TOSTRING & "/01" & DSX3.TABLES(0).ROWS(0).ITEM("PIC01").TOSTRING
HF3.NAVIGATEURL = "C.ASPX?UNAME=" & F3
LF3.TEXT = F3
END IF

IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("F4"). TOSTRING) THEN
DIM DAX4 AS OLEDBDATAADAPTER
DIM DSX4 AS DATASET
F4 = DAS.Tables("PROFILE").ROWS(0).ITEM("F4").TOSTRING
DAX4 = NEW OLEDBDATAADAPTER("SELECT UNAME,ONLINE,PIC01 FROM PROFILE WHERE UNAME='" & F4 & "'",CON)
DSX4 = NEW DataSet()
DAX4.Fill (DSX4, ("PROFILE"))
IF4.IMAGEURL = "/USERS/" & F4.TOSTRING & "/01" & DSX4.TABLES(0).ROWS(0).ITEM("PIC01").TOSTRING
HF4.NAVIGATEURL = "C.ASPX?UNAME=" & F4
LF4.TEXT = F4
END IF


IF NOT IsDbNull(DAS.Tables("PROFILE").ROWS(0).ITEM("F5"). TOSTRING) THEN
DIM DAX5 AS OLEDBDATAADAPTER
DIM DSX5 AS DATASET
F5 = DAS.Tables("PROFILE").ROWS(0).ITEM("F5").TOSTRING
DAX5 = NEW OLEDBDATAADAPTER("SELECT UNAME,ONLINE,PIC01 FROM PROFILE WHERE UNAME='" & F5 & "'",CON)
DSX5 = NEW DataSet()
DAX5.Fill (DSX5, ("PROFILE"))
IF5.IMAGEURL = "/USERS/" & F5.TOSTRING & "/01" & DSX5.TABLES(0).ROWS(0).ITEM("PIC01").TOSTRING
HF5.NAVIGATEURL = "C.ASPX?UNAME=" & F5
LF5.TEXT = F5
END IF


CATCH EX AS EXCEPTION
END TRY



IF DAS.Tables("PROFILE").ROWS(0).ITEM("ONLINE").TOSTR ING <> "YES" THEN
IX.IMAGEURL ="1.GIF"
ELSE
IX.IMAGEURL = "0.GIF"
END IF

DIM DS62 AS DataSet
DIM DA62 AS OleDbDataAdapter
DIM RC62 AS Integer
DIM DS22 AS DataSet
DIM DA22 AS OleDbDataAdapter
DIM RC22 AS Integer
DIM DS33 AS DataSet
DIM DA33 AS OleDbDataAdapter
DIM RC33 AS Integer

DA62 = NEW OLEDBDATAADAPTER("SELECT * FROM FREIND WHERE MYNAME='" & UNAME & "'",CON)
DS62 = NEW DataSet()
DA62.Fill (DS62, ("SCORE"))
FNUM.TEXT = DS62.Tables ("SCORE").ROWS.COUNT

DA62 = NEW OLEDBDATAADAPTER("SELECT * FROM SCORE WHERE MYNAME='" & UNAME & "'",CON)
DS62 = NEW DataSet()
DA62.Fill (DS62, ("SCORE"))
RC62 = DS62.Tables ("SCORE").ROWS.COUNT

DA22 = NEW OLEDBDATAADAPTER("SELECT * FROM SCORE WHERE MYNAME='" & UNAME & "' AND VOTE='YES'",CON)
DS22 = NEW DataSet()
DA22.Fill (DS22, ("SCORE"))
RC22 = DS22.Tables ("SCORE").ROWS.COUNT

DIM SCORE
DIM S = RC22 / RC62
IF S <> 1 THEN
DIM SC = REPLACE(S,"0.","")
SCORE = LEFT(SC,2)
IF SCORE = 1 THEN SCORE = 10
IF SCORE = 2 THEN SCORE = 20
IF SCORE = 3 THEN SCORE = 30
IF SCORE = 4 THEN SCORE = 40
IF SCORE = 5 THEN SCORE = 50
IF SCORE = 6 THEN SCORE = 60
IF SCORE = 7 THEN SCORE = 70
IF SCORE = 8 THEN SCORE = 80
IF SCORE = 9 THEN SCORE = 90
ELSE
SCORE = 100
END IF
FF.TEXT = SCORE & "%"
IF RC62 = 0 THEN FF.TEXT = "NOT YET RATED"

CON.Close
CON = NOTHING

RESPONSE.WRITE("" & VEIW &"<br>")
COUNTER
END SUB



SUB COUNTER
RESPONSE.WRITE("" & VEIW &"<br>")
IF NOT REQUEST.COOKIES("CK") IS NOTHING ANDALSO REQUEST.QUERYSTRING("UNAME") <> REQUEST.COOKIES("CK")("UID").TOSTRING THEN
DIM CON1 AS OLEDBCONNECTION
DIM CM AS OleDbCOMMAND
CON1 = NEW OLEDBCONNECTION ("PROVIDER=MICROSOFT.JET.OLEDB.4.0;Data Source=Z:\WWW\DATA\MX.mdb")
CON1.OPEN
DIM STR AS STRING = "UPDATE PROFILE SET VEIWS='" & VEIW +1 & "' WHERE UNAME='"& REQUEST.QUERYSTRING("UNAME") & "'"
CM = NEW OleDbCOMMAND (STR,CON1)
CM.EXECUTENONQUERY()
CON1.CLOSE
END IF

END SUB
</SCRIPT>

---------------------------
A Black sheep moves easy in the darkness.
[email protected]
WWW.GRIMMUSIC.COM

look at the bottom subroutine, that's where the update method is, and the "VEIW" variable was given a value up towards the top.

---------------------------
A Black sheep moves easy in the darkness.
[email protected]
WWW.GRIMMUSIC.COM