Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Status of viewing members ICQ field

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
endomorph Posted - 25 February 2006 : 11:44:45
I have been trying to wrap by head round this for a few days but I cannot get what I want.

I want to check if the person viewing a forum/topic is a member and has 'something' in their ICQ field.

If not, they get an error message.

Which variable is the "viewing members name/ID" variable ?

Ayy ideas Podge ? Oh great and wonderful guru ?<
2   L A T E S T    R E P L I E S    (Newest First)
endomorph Posted - 27 February 2006 : 09:16:52
Oneway,

Thanks for that. I managed to sort it in the end.

I used -


dim rspaid
dim paidmember
dim paidcheck
dim strSqlcheck

if paidmember > 1 then
'# Do nothing
else
'# Check if paid member	
set rspaid = server.CreateObject("adodb.recordset")
strSqlcheck = "SELECT M_ICQ FROM " & strMemberTablePrefix & "MEMBERS "
strSqlcheck = strSqlcheck & " WHERE M_NAME = '" & strDBNTUserName & "'"
rspaid.Open strSqlcheck, my_Conn
paidcheck = rspaid("M_ICQ")

if trim(paidcheck) = "Paid" then 
paidmember = 1
else paidmember = 0
end if
rspaid.Close
set rspaid = nothing
end if


Seems to work fine but any comments on the above would be appreciated.<
OneWayMule Posted - 27 February 2006 : 04:35:31
This should give you an idea:
If mLev > 0 Then
	strSql = "SELECT M_ICQ FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID = " & memberID
	Set rsMemberICQ = my_conn.Execute(strSql)
	If Not rsMemberICQ.EOF Then
		strMemberICQ = rsMemberICQ("M_ICQ")
	End If
	rsMemberICQ.Close
	Set rsMemberICQ = Nothing
	If trim(strMemberICQ) = "" Then
		'No ICQ value -> display error here
	Else
		'Do something else here
	End If
Else
	'User is not logged in, display error here
End If


Let me know if you have any questions.<

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.04 seconds. Powered By: Snitz Forums 2000 Version 3.4.07