<% '======Personal Info ====================================== dim AllInfo SQL = "Select * from [User] where UID = " & session("UserID") oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then AllInfo = oRs.getRows() else response.Cookies("degustibus")("RandomID") = "" response.Cookies("degustibus")("UserID") = "" Response.Redirect "login.asp" session("UserID") = "" session("UserSurname") = "" session("UserSex") = "" end if oRs.close '======Personal Info ====================================== %>

<%if Request.QueryString("errmsg") = "mail" then%><%= ErrorMessage(lg)%><%end if%>

<%=SLoginLogout(lg)%> <%=SLoginTitle(lg)%> <%=SLoginUser(lg)%> <%=SName(lg)%> <%=SSurName(lg)%> <%=SMail(lg)%> <%=SSex(lg)%> Γυναίκα checked<%end if%>>  'Αντρας checked<%end if%>> <%=Spas(lg)%> <%=SPasconf(lg)%> <%=SJob(lg)%> -- <%=SDropDown2(lg)%> -- <% '===== GET A JOB ========================================= set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") SQL = "Select * from UserJob order by "&SJobName(lg)&"" oRs.open SQL, oConn, 3,1,1 while NOT oRs.EOF Response.Write ""&oRs(""&SJobName(lg)&"")&"" oRs.MoveNext wend oRs.close '===== GET A JOB ========================================= %> <%=SCateg(lg)%> -- <%=SDropCateg(lg)%> -- <% '===== GET A USER CATEG ========================================= set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") SQL = "Select * from UserCategs order by "&SUserCategName(lg)&"" oRs.open SQL, oConn, 3,1,1 while NOT oRs.EOF Response.Write ""&oRs(""&SUserCategName(lg)&"")&"" oRs.MoveNext wend oRs.close '===== GET A JOB ========================================= %> <%=SQuestMails(lg)%> :    <%=SYes(lg)%> checked<%end if%>>  <%=SNo(lg)%> checked<%end if%>> <%= SLoginAddr(lg)%> <%= SLoginComp(lg)%> <%=SLoginHistory(lg)%>

<% set oRs = nothing oConn.close set oConn = nothing %>