מה הבעיה פה???????
עשיתי אם אני מכניס אור באנגלית אז אנ ירואה תטבלה של ההזמנות והוא אומר לי end שאני שם end אז הוא אומר לי חסר " בשורה 29 מה לעשות??... תודה לעוזרים <%@ Language=VBScript %> <% dim id,pass id=Request("txtname") pass=Request("txtpass") dim conn,rs,sql,CodeNumber,color sql="select * from Login where Id='" & id & "' and Password ='" & pass & "'" set conn=server.CreateObject("ADODB.Connection") 'conn.Provider="microsoft.jet.oledb.4.0" conn.Open "dsn=MyTable" 'conn.Open "C:\Inetpub\wwwroot\DataBase\customers.mdb" set rs=server.CreateObject("ADODB.Recordset") rs.Open sql,conn,3,3 if rs.EOF then ' לא נמצא עובד רשום Response.Write "<center><h2><font color=white> עובד לא רשום במערכת " else 'set rs=nothing 'rs.Close Response.Cookies("name")="yossi" Response.Redirect "AddItem.asp" end if %> <body bgcolor=blue>
עשיתי אם אני מכניס אור באנגלית אז אנ ירואה תטבלה של ההזמנות והוא אומר לי end שאני שם end אז הוא אומר לי חסר " בשורה 29 מה לעשות??... תודה לעוזרים <%@ Language=VBScript %> <% dim id,pass id=Request("txtname") pass=Request("txtpass") dim conn,rs,sql,CodeNumber,color sql="select * from Login where Id='" & id & "' and Password ='" & pass & "'" set conn=server.CreateObject("ADODB.Connection") 'conn.Provider="microsoft.jet.oledb.4.0" conn.Open "dsn=MyTable" 'conn.Open "C:\Inetpub\wwwroot\DataBase\customers.mdb" set rs=server.CreateObject("ADODB.Recordset") rs.Open sql,conn,3,3 if rs.EOF then ' לא נמצא עובד רשום Response.Write "<center><h2><font color=white> עובד לא רשום במערכת " else 'set rs=nothing 'rs.Close Response.Cookies("name")="yossi" Response.Redirect "AddItem.asp" end if %> <body bgcolor=blue>