<% ' Do not edit below this line ' --------------------------------------- sub subGetSharedVueContent() on error resume next dim objXmlHttpSV, strURL set objXmlHttpSV = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttpSV.setTimeouts 30000, 180000, 60000, 60000 strURL = "http://hp.sharedvue.net/sharedvue/pull/?svhost=" & request.servervariables("server_name") & request.servervariables("script_name") if (len(request.querystring) > 0) then strURL = strURL & escape("?" & request.querystring) end if objXmlHttpSV.open "GET", strURL, False objXmlHttpSV.send if (objXmlHttpSV.status = 200) then response.write objXmlHttpSV.responseText else response.write vbcrlf & "" & vbcrlf end if set objXmlHttpSV = Nothing end sub ' subGetSharedVueContent call subGetSharedVueContent() %> Main page - AFA Systems

 

Since 1992, AFA Systems has provided complete technology solutions to small and medium size businesses. From wiring to internet connectivity and training, we offer your business an array of services and products as a turn key solution.

Jobs Opening:

Contact Information:

 

 

Important Notice:

It came to our attention that another entity is using our business name and trying to open credit accounts with vendors.

We only have one business address and are not in the process of opening any new business accounts.

We have notified the authorities.

If you have any question, please contact us at the information below.

 

 

4719 Ingersoll St.

Houston, TX 77027

 

(713) 355-4440

(713) 355-4441 FAX

Visit our HP Solutions Showcase