<%@Language="VBScript"%> <%Response.Buffer=True%> Login Screen

 

Seed Selling Login Screen

<% dim cn,rs,us if request.form.Item("log")="" then %> <%response.write "Please Enter Username And Password To Login" %> <% else Session("username")=Request.Form("log") set con=server.CreateObject("adodb.connection") set rs=Server.CreateObject("Adodb.recordset") con.Open "Provider=microsoft.jet.oledb.4.0;Persist Security Info=false; Data Source ="&SERVER.MapPath("selling.mdb") con.CursorLocation=3 rs.Open "select * from login where username='" & Request.Form("log") & "' and password ='" & request.form.Item("pass") & "'",con,2,3 if not rs.EOF then if rs(0)="admin" then response.redirect "admin.asp" else response.redirect "seedselling.asp" end if rs.close con.close else %>
 User Name
  Password
                               BACK
<% Response.write "Illegal Username and Password" %> <% end if end if %>