%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim login,UserID,Password,VarError UserID = TRIM (Request.Form("UserID")) Password = TRIM (Request.Form("Password")) Set login = Server.CreateObject("ADODB.Recordset") login.ActiveConnection = Site_Connection login.Source = "SELECT * FROM members WHERE memberemail = '"&UserID&"' AND MemberPassword ='"&Password&"'" login.Open() %> <% if request.form("upload") <> "" AND not login.eof then session("userlogin") = login.Fields.Item("memberemail").Value response.redirect("breakfast.asp") end if if login.eof AND request.form("upload") <> "" then VarError = "Sorry username or password error please try again" %>
|
|||||||||||||||||||||