שאלה במשפט SQL.

מכיר = מכיל

כן.


<%@ Language="VBScript" %>
<%

Dim conn, rsForums
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("forums.mdb")

Set rsCategories = Server.CreateObject("ADODB.Recordset")
rsCategories.activeconnection=conn
rsCategories.open "Select * FROM categories"

Set rsForums = Server.CreateObject("ADODB.Recordset")
rsForums.activeconnection=conn

rsForums.open "Select * from forums WHERE cat = "&rsCategories("cid")

%>
<!– #include file="top.asp" –>
<%
response.write "<link rel='stylesheet' type='text/css' href='stylesheet.css'>"
response.write "<p align='right' dir='rtl'>"

%>
<%
response.write "<tr>"
if rsForums.eof=false then
   while not rsCategories.eof
%>
    <table align=center border=1 width=753 bordercolor=#008900 cellpadding=0 cellspacing=0 align=right>
<%
response.write "<TR><td  align='center' background='images/catbg.gif' style='border: 0px;' width='860' height='14' rowspan='2'>"&rsCategories("cname")&"</TD></TR>"
%>
</table>
    <table align=center border=1 width=753 bordercolor=#008900 cellpadding=0 cellspacing=0 align=right>
<%
response.write "<TR><td  align=center bgcolor=#8BBF8B align=right width='100' height='16'><b><font color=white>פורום</font></b></td>"
response.write "<td  align=center bgcolor=#8BBF8B align=right width='833' height='16'><b><font color=white>תיאור</font></b></td></tr>"

while not rsForums.eof
response.write "<tr>"
response.write "<td  align=center><a href='forum.asp?sub="& rsForums("fnumber") &"'>" & rsForums("forum") & "</a></td>"
response.write "<td  align=center>" & rsForums("des") & "</td></tr>"
rsForums.movenext
Wend
   rsCategories.movenext
   Wend
else
response.write "<tr><td  align=center bgcolor=#8BBF8B align=right><b><font color=white>שגיאה!</font></b></td></tr>"
response.write "<tr><td  align=center>אין פורומים זמינים כרגע.</td></tr>"
end if
response.write "</table>"
response.write "</p>"

rsForums.close
set rsForums=nothing
rsCategories.close
set rsCategories=nothing
conn.close
set conn=nothing
%><!– #include file="copy.asp" –>

שיניתי קצת…


   while not rsCategories.eof
rsForums.open "Select * from forums WHERE cat = "&rsCategories("cid")

%>
    <table align=center border=1 width=753 bordercolor=#008900 cellpadding=0 cellspacing=0 align=right>
<%
response.write "<TR><td  align='center' background='images/catbg.gif' style='border: 0px;' width='860' height='14' rowspan='2'>"&rsCategories("cname")&"</TD></TR>"
%>
</table>
    <table align=center border=1 width=753 bordercolor=#008900 cellpadding=0 cellspacing=0 align=right>
<%
response.write "<TR><td  align=center bgcolor=#8BBF8B align=right width='100' height='16'><b><font color=white>פורום</font></b></td>"
response.write "<td  align=center bgcolor=#8BBF8B align=right width='833' height='16'><b><font color=white>תיאור</font></b></td></tr>"

while not rsForums.eof
response.write "<tr>"
response.write "<td  align=center><a href='forum.asp?sub="& rsForums("fnumber") &"'>" & rsForums("forum") & "</a></td>"
response.write "<td  align=center>" & rsForums("des") & "</td></tr>"
rsForums.movenext
Wend
   rsCategories.movenext
   Wend
if rsForums.eof=true then
response.write "<tr><td  align=center bgcolor=#8BBF8B align=right><b><font color=white>שגיאה!</font></b></td></tr>"
response.write "<tr><td  align=center>אין פורומים זמינים כרגע.</td></tr>"
end if

אפשר לשאול עוד שאלה?
יש לי משפט UPDATE:

sql = "UPDATE sub SET poster=#" & now() & "# WHERE snumber=" & forum

משום מה, הוא לא מגיב

דוד.

שיניתי טיפה ת'שאילתה, ככה זה מדפיס:


UPDATE sub SET [poster]=#06/02/2005 13:50:41# WHERE snumber=3

סידרתי כבר..
שאלה חדשה:
מישהו יכול להסביר לי איך אני בודק איזה משתמשים מחוברים לאתר (בדיוק מי), להדפיס את השמות?
אני צריך רק את הדרך

תוכל לפרט טיפה יותר בבקשה [אם אפשר
דוגמונת קטנה]

ניסיתי ככה:


                <%

                        
                    Dim rsOUsers
                    Set rsOUsers = Server.CreateObject("ADODB.Recordset")
                    rsOUsers.Open "Select uid, username, online FROM users WHERE online='true'",conn
                        if cookie <> "" then
                            conn.execute "UPDATE users SET online = 'true' WHERE username = '" & request.cookies("login")("user") &"'"
                                response.cookies("online").Expires=DateAdd("m",2,now())

                                response.cookies("online")="online"
                        else
                                conn.execute "UPDATE users SET online = 'false' WHERE username = '" & request.cookies("login")("user") & "'"
                        End if

                                response.write "כעת מחוברים לאתר:<BR>"
                    While not rsOUsers.eof
                        
                        response.write rsOUsers("username")&" "
                            rsOUsers.MoveNext
                    Wend
                %>

אין שגיאות, אין פלט.

מיש'ו?