Help!!

[piratinc]

where do I get wrong here ?!
I want to make some info to be avainlable only for VIP Members and who's not VIP not to be able to see the info. In the database I have the default value FALSE... I want when switching to TRUE the VIP info to be available
Thank you very much!!! And pls help!!!



<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from Users where VIP = '" & Request("VIP") & "'"
rs.Open strSQL, myConn
%>

<%if Request("VIP")=True then%>
<font face="Verdana" size="2">VIP INFO</font>
<%end if%>

<%
rs.Close
Set rs = Nothing
myConn.Close
Set myConn = Nothing
%>

[rdoekes]

I guess you would like to know from the database whether a person is a VIP. And I assume you know the person's ID

It would make sense to pass the person's ID to the database and let the DB return whether this person is a VIP, based on his/her profile.

rs.Open "SELECT VIP FROM users WHERE user_id = " & Request("usid"), myConn

If rs("VIP") = True Then
etc...

[piratinc]

no no no
I need it this way... if MEMBER IS VIP then the info to show... If not VIP then don't show info... but the page remain the same!

Thanks for your help!!

[magus]

I think that you want the info is available only for VIP member list, and you get the querystring from request("VIP"). Is that right?

let me try:

<% if (Request("VIP")="True") then %>
<font face="Verdana" size="2">VIP INFO</font>

... your code for the info suppose tobe here

<%end if%>

if you want to get the value from URL it has to be a string

[piratinc]

Still can't make it work :(((
PLEASE HELP ME PPL :((

I can't make it if in the database (access) VIP=True the member who is vip to see to other members, vip or not, the vip info... In this moment the script has no errors but don't show the VIP DETAILS that exists in DB to any vip member...
But if in DB the VIP field = True it shows to ANY MEMBER (vip or not) the info.... I can't understand...
My english skills aren't that advanced but I am sure you will understand what I said and please take a look at the code (is the entire page) and you'll see in blue where I have problems.

Please if posible give me some help here...

THANK YOU !!


*ATTACHED IS THE SCRIPT*

[piratinc]

<!--#include file="MyConn.asp"-->
<%if session("brugernavn")="" then response.redirect("mainerror.asp")

page = Request("page")
Response.Buffer = True%>
<TABLE WIDTH=800 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD WIDTH=1 HEIGHT=576 ROWSPAN=8>
<IMG SRC="images/img_03.jpg" WIDTH=1 HEIGHT=576 ALT=""></TD>
<TD WIDTH=186 HEIGHT=576 ROWSPAN=8 colspan="3" valign="top">
</TD>
<TD WIDTH=613 HEIGHT=631 COLSPAN=6 ROWSPAN=8 valign="top">
<!-- start main -->
<%Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Users where UserID = " & Request("ID") & ""
rs.Open strSQL, myConn, 1, 3

if session("Admin")=False then
if rs("Deleted")=True then response.redirect("fejl.asp?error=Profile deleted or inactive..")

end if
end if

Set rsviews = Server.CreateObject("ADODB.RecordSet")
strSQLviews = "Select * From Views where Username = '" & Session("Brugernavn") & "' AND

Owner='"&rs("Username")&"'"
rsviews.Open strSQLviews, myConn, 1, 3

Set rsView = Server.CreateObject("ADODB.RecordSet")
strSQLView = "Select * From Profile_Views where Visitor = '"&Session("Brugernavn")&"' AND

Owner = '"&rs("Username")&"' AND Dato = Date()"
rsView.Open strSQLView, myConn, 1, 3

on error resume next
Set rst = Server.CreateObject("ADODB.RecordSet")
strSQLt = "Select * from Notater where Owner='"&Session("Brugernavn")&"' AND

Profil='"&rs("username")&"'"
rst.Open strSQLt, myConn, 1, 3

if rsView.bof or rsView.eof then
rsView.addnew
rsView("Owner") = rs("Username")
rsView("Visitor") = Session("Brugernavn")
rsView.update

rs("Views") = rs("views")+1
rs("totalViews") = rs("totalviews")+1
rs.update
end if

if rsviews.eof then

rs("Views") = rs("views")+1
rs("totalViews") = rs("totalviews")+1
rs.update

rsviews.addnew
rsviews("Owner") = rs("username")
rsviews("Username") = session("Brugernavn")
rsviews.update

end if%>
<p><font size="1" face="Verdana">
<a

href="mail.asp?page=new&mailmodtager=<%=rs("Username")%>&Brugernavn=<%=session("Brugernavn")

%>">Trimite mesaj</a> | <a href="fav.asp?mode=new&bruger=<%=rs("Username")%>">Adauga la

favorite</a> | <a href="ignore.asp?mode=new&bruger=<%=rs("Username")%>">Blocheaza</a> | <a

href="album.asp?page=vis&bruger=<%=rs("Username")%>">Album foto</a>
| <a target="_blank" href="newmsg.asp?page=new&user=<%=rs("Username")%>">Instant

message</a></font><br>
<font size="1" face="Verdana"><%if session("Admin")=True then%>ADMIN FUNCTION:
<a href="pic_del.asp?username=<%=rs("Username")%>">Del picture</a> -
<a href="admin_del.asp?username=<%=rs("username")%>">Del profile<%end if%></a></font></p>
<p><font face="Verdana" style="font-size: 1pt">&nbsp; </font><font size="1"

face="Verdana"><br>
Ultima autentificare: <%if rs("Online")=True then response.write("Utilizatorul este ONLINE")

else response.write(""&rs("LastOn")&"") end if%></font></p>
<%'if the user save a note about this profile, lets add it to the database..
if page="gem" then
on error resume next
Set rsgem = Server.CreateObject("ADODB.RecordSet")
strSQLgem = "Select * from Notater where Owner='"&Session("Brugernavn")&"' AND

Profil='"&rs("Username")&"'"
rsgem.Open strSQLgem, myConn, 1, 3

If Not (rsgem.BOF Or rsgem.EOF) Then
response.redirect("profile.asp?page=old&id="&request("id")&"&notat="&Request("Notat")&"")
end if

rsgem.addnew
rsgem("Owner")=Session("Brugernavn")
rsgem("Notat")=Request("Notat")
rsgem("Profil")=rs("username")
rsgem.update
response.redirect("profile.asp?id="&request("id")&"")
end if
if page="old" then
on error resume next
Set rsgem = Server.CreateObject("ADODB.RecordSet")
strSQLgem = "Select * from Notater where Owner='"&Session("Brugernavn")&"' AND

Profil='"&rs("username")&"'"
rsgem.Open strSQLgem, myConn, 1, 3

rsgem("Notat")=Request("Notat")
rsgem.update
response.redirect("profile.asp?id="&request("id")&"")
end if
%>
<form method="POST" action="profile.asp?id=<%=request("id")%>&page=gem">
<p>
<font size="1" face="Verdana">Daca doriti sa adaugati o nota speciala despre aces

utilizator ea va fi salvata in sectiunea Notite.</font><br>
<textarea rows="4" name="Notat" cols="47"><%=rst("Notat")%></textarea>&nbsp;
<input type="submit" value="Adauga" name="B1"></p>
</form>
&nbsp;<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"

bordercolor="#111111" width="100%" id="AutoNumber1" height="1">
<tr>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC">
<b><font face="Verdana" size="1">Utilizator:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC"><font size="1"

face="Verdana"><%=rs("Username")%></font></td>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC">
<b><font face="Verdana" size="1">Oras:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC"><font size="1"

face="Verdana"><%=rs("From")%></font></td>
</tr>
<tr>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font size="1" face="Verdana">&nbsp; </font>
</b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
</tr>
<tr>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#E8E8E8"><b><font size="1"

face="Verdana">
Sex:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#E8E8E8"><font size="1"

face="Verdana"><%=rs("Sex")%></font></td>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#E8E8E8"><b><font size="1"

face="Verdana">
Culoare ochi:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#E8E8E8"><font size="1"

face="Verdana"><%=rs("Eye")%></font></td>
</tr>
<tr>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
</tr>
<tr>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC">
<b><font face="Verdana" size="1">Varsta:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC"><font size="1"

face="Verdana"><%=rs("Age")%> ani </font>
</td>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC"><b><font size="1"

face="Verdana">
Culoare par:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC"><font size="1"

face="Verdana"><%=rs("Hair")%></font></td>
</tr>
<tr>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>

[piratinc]

</tr>
<tr>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#E8E8E8"><b><font size="1"

face="Verdana">
Orientare:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#E8E8E8"><font size="1"

face="Verdana"><%=rs("Sexu")%></font></td>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#E8E8E8"><b><font size="1"

face="Verdana">
Copii:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#E8E8E8"><font size="1"

face="Verdana"><%=rs("Kids")%></font></td>
</tr>
<tr>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
</tr>
<tr>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC">
<b><font face="Verdana" size="1">Inaltime:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC"><font size="1"

face="Verdana"><%=rs("Height")%>
</font></td>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC"><b><font size="1"

face="Verdana">
Tip relatie dorita:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC"><font size="1"

face="Verdana"><%=rs("Search")%></font></td>
</tr>
<tr>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
</tr>
<tr>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#E8E8E8"><b><font size="1"

face="Verdana">
Greutate:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#E8E8E8"><font size="1"

face="Verdana"><%=rs("weight")%>
</font></td>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#E8E8E8">
<b><font size="1" face="Verdana">Fumator:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#E8E8E8">
<font face="Verdana" size="1"><%=rs("Smoke")%> </font></td>
</tr>

[piratinc]

<tr>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
</tr>
<tr>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC"><b><font size="1"

face="Verdana">
Educatie:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC"><font size="1"

face="Verdana"><%=rs("Edu")%>
</font></td>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC">
<b><font size="1" face="Verdana">Etnie:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#D8E0EC">
<font face="Verdana" size="1"><%=rs("Race")%> </font></td>
</tr>


<tr> HERE IS MY PROBLEM !!





<%If rs("VIP") = "True" Then %>

<td width="11%" height="1" style="border-style: solid; border-width: 0; padding: 0"><b><font

face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding: 0"><font

size="1" face="Verdana">&nbsp;</font></td>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding: 0"><b><font

face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding: 0"><font

size="1" face="Verdana">&nbsp;</font></td>
</tr><tr>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#F1F1F1"><b>
<font size="1" face="Verdana" color="#ff0000">E-mail:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#F1F1F1">
<font size="1" face="Verdana"><%=rs("emailpublic")%> </font></td>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#F1F1F1">
<b><font size="1" face="Verdana" color="#ff0000">Telefon:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#F1F1F1"><font face="Verdana"

size="1"><%=rs("Telefon")%> </font></td>
</tr>
<%else%>
<tr>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding: 0"><b><font

face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding: 0"><font

size="1" face="Verdana">&nbsp;</font></td>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding: 0"><b><font

face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding: 0"><font

size="1" face="Verdana">&nbsp;</font></td>
</tr><tr>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#F1F1F1"><b>
<font size="1" face="Verdana" color="#000000">E-mail:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#F1F1F1">
<font size="1" face="Verdana" color=#003366>Nu sunteti membru VIP <a

href="error.asp?error=Aceasta optiune nu este momentan disponibila. Va vom tine la curent

despre posibilitatea de a deveni membru VIP">[info]</a></font></td>
<td width="11%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#F1F1F1">
<b><font size="1" face="Verdana" color="#000000">Telefon:</font></b></td>
<td width="39%" height="1" style="border-style:solid; border-width:0; padding-left:4;

padding-right:4; padding-top:1; padding-bottom:1" bgcolor="#F1F1F1"><font face="Verdana"

size="1" color="#003366">Nu sunteti membru VIP <a href="error.asp?error=Aceasta optiune nu

este momentan disponibila. Va vom tine la curent despre posibilitatea de a deveni membru

VIP">[info]</a></font></td>
<%end if%>
</tr>



END OF MY PROBLEM !!

<tr>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
<td width="11%" height="1" style="border-style: solid; border-width: 0; padding:

0"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="1" style="border-style: solid; border-width: 0; padding:

0"><font size="1" face="Verdana">&nbsp;</font></td>
</tr>
<tr>
<td width="11%" height="19"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="19">&nbsp;</td>
<td width="11%" height="19"><b><font face="Verdana" size="1">&nbsp;</font></b></td>
<td width="39%" height="19">&nbsp;</td>
</tr>
<tr>
<td width="100%" height="19" colspan="4">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"

bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="100%" valign="top"><b><font face="Verdana" size="1">Profil:<br></font>
</tr>
<tr>
<td width="100%" valign="top">
<img src="photos/<%=rs("Picture")%>" border="0">
</td>


</tr>
</table>
</td>
</tr>
</table>





<%rs.Close
Set rs = Nothing
myConn.Close
Set myConn = Nothing
%>

<!-- end main -->
</TD>

</TR>
</TABLE>
</BODY>
</HTML>

[magus]

I assumed that the datatype in Access Database is Yes/No
So the code supposed to be like this:

<% If (rs("VIP") = True) Then %>
.....
<% end if %>