[0xfo7d]

תוכל אולי לומר לי איך אני משלב את מה שהסברת לי בקטע קוד הזה:

<%
dim conn,rs,sql

Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open "db"

sql="select * from users "

set rs=server.CreateObject ("ADODB.Recordset")

rs.Open sql,conn

do while not rs.EOF 
Response.Write "<tr>"


Response.Write "<td bgcolor='#FFFFFF' width='0%' align='right' valign='middle' class='textnews' style='border-bottom: 1px solid #E4E4E4;font-size: 12px;'>" & rs("User_name")  & "</td>"


Response.Write "<td bgcolor='#E4E4E4' width='0%' align='center' valign='middle' class='textnews' style='border-bottom: 1px solid #E4E4E4;font-size: 12px;'>" & rs("Password")  & "</td>"


Response.Write "<td bgcolor='#FFFFFF' width='25%' align='center' valign='middle' class='textnews' style='border-bottom: 1px solid #E4E4E4;font-size: 12px;'>&nbsp;" & rs("Name_Price_List")  & "</td>"


Response.Write "<td bgcolor='#E4E4E4' width='25%' align='center' valign='middle' class='textnews' style='border-bottom: 1px solid #E4E4E4;font-size: 12px;'>"
select case rs("Status")
case 0
Response.Write  "משתמש רגיל"
case 1
Response.Write  "<font color='red'>מנהל</font>"
case 2
Response.Write  "מושעה"
end select
Response.Write "</td>"


Response.Write "<td bgcolor='#FFFFFF' width='25%' align='center' valign='middle' class='textnews' style='border-bottom: 1px solid #E4E4E4;font-size: 12px;'><a href=UpdateMembers.asp?User_name=" &  rs("User_name") & "><img src='edit.gif' border='0'></a></td>"


Response.Write "<td bgcolor='#FFFFFF' width='25%' align='center' valign='middle' class='textnews' style='border-bottom: 1px solid #E4E4E4;font-size: 12px;'>"
if rs("Status")=1 then
Response.Write "---"
else
Response.Write "<a href=DelMembers.asp?User_name=" &  rs("User_name") & "><img src='delete.gif' border='0'></a>"
end if
Response.Write "</td>"

Response.Write "</tr>"

rs.MoveNext 
loop
	
	rs.Close
	set rs=nothing
	conn.Close 
	set conn=nothing
	
%>

תודה רבה.