<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <%Option explicit%> <% dim adocon,rs,Myself dim UserInfo,flag Myself = Request.ServerVariables("PATH_INFO") set adocon=GetMdbConnection(DbLoc, DbPwd) if request.form("uid")<>"" then on error resume next set UserInfo=new clsUser With UserInfo ' .value=array(request.form("uid"),request.form("pwd"),_ ' adocon,usrTable,loggingTable) .uid=request.form("uid") .pwd=request.form("pwd") set .conn=adocon .userTable=usrTable .logTable=loggingTable .logon if err.number <>0 then response.write err.source&"
" response.write err.description 'DisplayConErr adocon response.end end if if .lstatus<>"" then response.redirect "destination.asp" end if End with end if %>
Accounting Software Pro
Accounting Software.com.hk

Small Business to Enterprise
Accounting Software

 Free Demos   > Rebate   > Accountants   >  Help   > Contact Us >   >       Home  | 中 文 版 |     Enquiry (852) 2392 2936
Login to Accounting software database

Login Page || Sign up now

Username :
Password :
<% adocon.close set adocon=nothing %>