%
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
<%
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