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
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.<
Need help with your Snitz ? Most Snitz & ASP custom coding undertaken. Email for info | Search Engine Optimisation
Edited by - endomorph on 27 February 2006 09:23:50
Status of viewing members ICQ field
Posted - 25 February 2006 : 11:44:45
