למה זה מראה ככה ?
הקוד הוא:
הקוד הוא:
<%@ Language=VBScript %> <html> <body> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("db.mdb")) Dim username Dim rs, sql set rs = Server.CreateObject("ADODB.recordset") sql = "SELECT * FROM members" rs.Open sql ,conn %> <table border="1" width="100%"> <tr> <td width="50%" align="center">דואר אלקטרוני</td> <td width="50%" align="center">שם משתמש</td> </tr> <tr> <% Do While Not rs.EOF email = rs("email") username = rs("username") Response.Write " <td width=50% align=center>"&email&"</td> " Response.Write " <td width=50% align=center>"&username&"</td> " rs.MoveNext loop %> </tr> </table> <% rs.close conn.close %> </body> </html>
תודה רבה