SQL = "SELECT * From admin WHERE status IN (3, 4) ORDER BY anvnamn ASC"
När du bifogar kod, använd [kod]-taggar så går den att läsa.
Mvh
Frågan#1
Jag har olika nivåer på min sida och har ochså en sida som visar medlemar. Nu skulle jag villa ha en som bara visar level 3 & 4 :s medlemar men hur gör man då??
Jag bifogar skriptet så ni kan se hur det ser ut. I databasen "admin.mdb" finns kollumen "status". Där finns nivåerna 1 - 4
____________________________________________________
<%
If NOT Cint(Session("niva")) >=1 Then
Session("hej") = "Du måste logga in först!"
Response.Redirect "index.asp"
ELSE
%>
<head>
<link href="msnstyle.css" rel="stylesheet" type="text/css">
<title>Members</title>
</head>
<body bgcolor="#55BEFD" style="border: 1 solid #000000">
<p align="center"> </p>
<p align="center"><font size="2" face="Times New Roman" color="#FFFFFF"><%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db\admin.mdb")&";pwd=jorru"
IF Request.Querystring("action") = "delete" Then
SQL = "DELETE * FROM admin WHERE ID=" & Request.Querystring("id")
Connect.Execute(SQL)
Response.Redirect "admin.asp"
ELSE
SQL = "SELECT * From admin ORDER BY anvnamn ASC"
Set RecSet = Connect.Execute(SQL)
%></font>
</p>
<div align="center">
<table width="288" border="0" style="border: 1px solid #000000">
<tr>
<td width="75"><b><u><font face="Verdana" size="1" color="#FF0000">Name:</font></u></b></td>
<td width="149"><b><u><font face="Verdana" size="1" color="#FF0000">Mail:</font></u></b></td>
<td width="149"><b><u><font face="Verdana" size="1" color="#FF0000">Info:</font></u></b></td>
\</tr\>
\<% Do Until RecSet.EOF %\>
\<tr\>
\<td width="74"\>\<font face="Verdana" color="#000000" size="1"\> \<%=RecSet("anvnamn")%\>\</font\>\</td\>
\<td width="149"\>\<font face="Verdana" color="#000000" size="1"\>\<%=RecSet("email")%\> \</font\>\</td\>
\<td width="149"\>\<font face="Verdana" color="#000000" size="1"\>\<%=RecSet("info")%\> \</font\>\</td\>
\</tr\>
\<%
RecSet.MoveNext
Loop
Recset.Close
Connect.Close
Set Recset = Nothing
Set Connect = Nothing
END IF
%>
</table>
</div>
<% END IF %>