<% @ LANGUAGE = VBScript ENABLESESSIONSTATE = False %> <% if request.cookies("status")("usersuper") = "" then _ response.redirect("error.asp") %>
ADMIN

<% strSQL_main = "select * from User order by User_name" Set recMain = Connect.Execute(strSQL_main) While Not recMain.eof i = i + 1 %> <% strTemp = True if recMain("User_add") = strTemp then chkAdd="checked" if recMain("User_del") = strTemp then chkDel="checked" if recMain("User_edit") = strTemp then chkEdit="checked" if recMain("User_view") = strTemp then chkView="checked" if recMain("User_view_all") = strTemp then chkViewAll="checked" if recMain("User_super") = strTemp then chkSuper="checked" if recMain("User_disable") = strTemp then chkDisable="checked" %> "> <% recMain.MoveNext chkAdd = "" chkDel = "" chkEdit = "" chkView = "" chkViewAll = "" chkSuper = "" chkDisable = "" Wend recMain.Close Connect.Close Set Connect = Nothing %>
Användarnamn:  Lösenord:  name="txtAdd">Add: name="txtDel">Del: name="txtEdit">Edit: name="txtView">View: name="txtViewAll">View All: name="txtSuper">Super: name="txtDisable">Aktiv: Spara Radera

 NY ANVÄNDARE
Användarnamn:  Lösenord:  Add: Del: Edit: View: View All: Super: Aktiv: Spara