:: WEB MASTER ::
USER NAME
PASSWORD
DEFAULT LANGUAGE
<% SQL = "Select * from tb_Languages ;" Dim LanguageID LanguageID =0 set cn = Connect (pathDB&"\db\data.mdb") set rs = openTb(SQL,cn) %>
>All
<%while not rs.eof %>
" <%if cint(LanguageID)=cint(rs("LanguageID")) then Response.Write("Selected")%>> <%=rs("Language")%>
<% rs.movenext wend rs.close set rs = nothing set cn = nothing %>
<%if request("login")="failed" then%>
User name or Password incorrect.
<%end if%>