The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
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 ?<
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 ?<
نوشته شده در
This should give you an idea:
Let me know if you have any questions.<
Code:
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 IfLet me know if you have any questions.<
نوشته شده در
Oneway,
Thanks for that. I managed to sort it in the end.
I used -
Seems to work fine but any comments on the above would be appreciated.<
Thanks for that. I managed to sort it in the end.
I used -
Code:
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.<