<% dim dsn dim objConn dim loginRec dim i dim command dim lastId if session("access") <> "9" then response.redirect("http://www.machinedevice.com") end if command = request("command") if command = "delete" then dsn="DBQ=" & Server.Mappath("md.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open dsn Set loginRec = Server.CreateObject("ADODB.Recordset") loginRec.Open "DELETE * FROM login WHERE login.id=" & request("id"), objConn, 1, 2 set loginRec = nothing set objConn = nothing end if 'for i = 1 to 1000 'if request("id" & i) = "" then 'exit for 'end if 'response.write("Username" & i & "= " & request("username" & i) & "
") 'response.write("password" & i & "= " & request("password" & i) & "
") 'response.write("access" & i & "= " & request("access" & i) & "
") 'response.write("id" & i & "= " & request("id" & i) & "
") 'next if Request.ServerVariables("request_method") = "POST" then dsn="DBQ=" & Server.Mappath("md.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open dsn Set loginRec = Server.CreateObject("ADODB.Recordset") loginRec.Open "delete * from login ", objConn, 1, 2 for i = 1 to 1000 if(request("id" & i)) = "" then exit for end if loginRec.Open "SELECT * FROM LOGIN", objConn, 1, 2 loginRec.AddNew() loginRec("Username") = request("username" & i) loginRec("password") = request("password" & i) loginRec("access") = request("access" & i) loginRec("id") = request("id" & i) loginRec.update loginRec.close next set loginRec = nothing set objConn = nothing end if dsn="DBQ=" & Server.Mappath("md.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open dsn Set loginRec = Server.CreateObject("ADODB.Recordset") loginRec.Open "select * from login order by id", objConn %> Machine Device - Innovative solutions for all your equipment needs
[  CONTACT US  |  ABOUT US  |  SITE MAP  |  SHOP TOUR  |  PROJECT GALLERY  ]
<%if session("access") = 9 then%><%else%><%end if%> Machine Device
MACHINE DEVICE HOME  >  SECURE ACCESS

Machine Device Customer Equipment

Secure Access Admin
<% i = 0 lastId = 1 while not loginRec.EOF i = i + 1 %> "> <% lastId = loginRec("id") loginRec.MoveNext wend if command = "add" then %> <% end if %>
">   " size="20"> " size="20">
  

   


Billboard
Edit

<% dsn="DBQ=" & Server.Mappath("md.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open dsn Set billboardRec = Server.CreateObject("ADODB.Recordset") billboardRec.Open "select * from billboard order by id", objConn, 1, 2 while not billboardRec.EOF %><%=billboardRec("id")+1%>. <%=billboardRec("txt")%>
<% billboardRec.moveNext wend billboardRec.close set billboardRec = nothing set objConn = nothing %>

WELCOME TO THE MACHINE DEVICE SECURE RESOURCE SITE  
  © 2004-2015 Machine Device Corporation  
 
<% set loginRec = nothing set objConn = nothing %>