יש לו הודעת שגיאה…

הנה הקוד


<%@ Language="VBScript" codepage=1255%>
<font face=tahoma>
<%
session("user") = request.form("user")
session("pass") = request.form("pass")
username = session("user")
pass = session("pass")
Set c = Server.CreateObject("adodb.connection")
c.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("")
c.execute "select user,pass from users where user='"& username &"' and pass='"& pass &"'"
if c.eof then
response.write "<center>"
response.write "<img src=error.jpg>"
response.write "<a href=login.htm>חזרה</a>"
else
response.write "<center>"
response.write "<img src=yes.jpg>"
response.write "<a href=gb.asp>כניסה למערכת</a>"
end if
%>
</font>
<%
c.close
set c = nothing
%>