%@ Language=VBScript %> <% if session("Valid_User") <> "" then response.redirect("index_services.asp") end if %>
|
|
<% PS1 = request.form("Pass1") PS2 = request.form("Pass2") PS3 = request.form("Pass3") PS4 = request.form("Pass4") if PS1 <> "" or PS2 <> "" or PS3 <> "" or PS4 <> "" then dim conn set conn = Server.CreateObject("ADODB.Connection") filePath = Server.MapPath("customers.mdb") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath sql = "select * from Users where Country_Number = '"& PS1 &"' and City_Number = '"& PS2 &"' and Custome_Numbe = '"& PS3 &"' and User_Number = '"& PS4 &"'" set rs = conn.Execute(sql) if rs.EOF then response.write(" Invalid password, please try again or contact Alpha Technical support. ") %> <% else session("Valid_User") = rs("User_Name") rs.Close conn.Close set conn=nothing end if response.redirect("index_services.asp") else %> <% end if %>
|
|
|
Home | Mission Statement
| Products
| Services | Alpha Users Club | Our Customers
| Alpha Events |
Staff |
Career Opportunity |
|
|
For questions or comments about ERP or this web site, contact us at: |
|