Information Technology Services

<%' BEGINNING OF CODE%> <% Dim strDB 'Connection string for the database 'If the following line does not work comment it out with a ' at the start of the line and uncomment another string strDB="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath) 'Uncomment this connection string if you are using Access Database 2000 or 2002 'strDB = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDataBasePath) 'Uncomment this connection string if you are using a DSN (note: DSN is slower than the above connection strings) 'strDB = "DSN=NAME_OF_DSN" 'Replace the NAME_OF_DSN with the DSN Dim data Dim str_online set data = server.createobject("ADODB.RecordSet") data.activeconnection = strDB data.source = "SELECT * FROM tblsettings " data.open str_online = data("online") data.close %><%IF str_online = "5" THEN %>Live Support: Avaliable <% ELSE Response.write "Live Support: Unavaliable " end if%> <%' END OF CODE%>

Uecoms, Inc. is a leading provider of Information Technology services globally. We know that no one solution fits all clients. We tailor IT solutions to meet each client's specific business needs. It's about Uecoms IT talent. Wherever they go, they make a great difference, bringing you Innovative IT solutions for your business. Our staff is certified in different technologies, bringing you a world of difference and satisfied services.

Please click on one of the following services to find out more

bizDNS (Uecoms Intellectual Property Framework)
Information System and Decisions Framework (ISDF)
Uecoms Consulting Services (UCS)
Uecoms Overseas Consultants Services (UOCS)