<%@ Language=VBScript %> <%Response.Buffer= true %> <% response.redirect "../comman1/employees.asp"%> <% Dim x, y, temp, serv, D, hits x = Trim(day(date())) D = Application( "serv" ) if D = x Then Application( "hits" ) = Application( "hits" ) + 1 Else Application( "hits" ) = 1 End if y = x temp = y Application( "serv" ) = temp %> Unisoft Infotech - Providing Supply Chain & Enterprise Solutions

HOME :: GATEWAY :: EMPLOYEES

There have been <%=Application( "hits" )%> hits To this page today!
<% on error resume next Strconn="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=sa;Data Source=203.200.31.171;Initial Catalog=TalentManagement;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=Unisoft;Use Encryption for Data=False;Tag with column collation when possible=False" dim strconn,objConn,objRs,objSql const adLockoptimistic=3 const adOpenDynamic=2 const adcmdtable=2 Session("StrConn")=strconn set objconn=server.CreateObject("ADODB.connection") set objrs=server.CreateObject("ADODB.recordset") objConn.Open strconn objSql="Select * from logn where lname='" & Request.Form("uname") & "' and pword='" & Request.Form("pword") & "'" objrs.Open objSql,objConn,adOpenDynamic %>

Customers
Employees
Employees
Username :
Password :                  
                                 
<% on error resume next if Request.form("uname")<>"" then if objRs.Fields("login")="0" then if objRs.EOF = true then %> <% if Request.QueryString()="ind" then Response.Redirect "http://www.unisoftinfotech.com/ind/employees.asp?1" elseif Request.QueryString()="aus" then Response.Redirect "http://www.unisoftinfotech.com/aus/employees.asp?1" elseif Request.QueryString()="sea" then Response.Redirect "http://www.unisoftinfotech.com/sea/employees.asp?1" elseif Request.QueryString()="usa" then Response.Redirect "http://www.unisoftinfotech.com/usa/employees.asp?1" elseif Request.QueryString()="tai" then Response.Redirect "http://www.unisoftinfotech.com/tai/employees.asp?1" else %>
<% end if %> <% on error resume next else objRs.Close objConn.Execute("update logn set login='" & 1 & "' where lname='" & Request.Form("uname") & "' and pword='" & Request.Form("pword") & "'") session("UNAME")=lcase(Request.Form("uname")) session("PWRD")=lcase(Request.Form("pword")) Response.redirect "frontpage.asp" %> <% end if end if end if %>