Trash can cleaning, Residential and Commercial Garbage Can Cleaning Services


	News
	6/18/2008 New Territory Opens in Burbank, CA SaniCan is pleased to announce that it's latest Territory will be opening in Reseda, CA in the next few weeks 4/15/2009 Text Links Text Links 5/27/2008 SaniCan Announces Cleaning & Franchise Forum SaniCan is pleased to announce that its new Garbage Can Cleaning Forum is now available at http://www.sanicanforum.com 5/27/2008 As Seen on CBS 'Good Morning Sacramento' Take a look at the recent CBS interview of our Franchise in Sacramento, CA

RESIDENTIAL & COMMERCIAL GARBAGE CAN CLEANING

Garbage and the Environment are Big, Big topics Nowadays

How do you dispose of rubbish without damaging the environment?
How do you avoid health hazards, at home, at the workplace, at food outlets?

The arrival of the plastic Garbage Can has made storage and disposal so much easier, but this has led to your Garbage Can being the single most unhygienic thing in your home or workplace. Unpleasant odors, the presence of flies, ants and other pests, as well as the potential risk of bacteria, can cause diseases such as Salmonella, E-Coli and Listeria.

Now Sanican offer a correct alternative to the dirty job of cleaning that Garbage Can yourself. 'Trash busters' SaniCan provide an environmentally friendly residential and commercial mobile cleaning service. Our fully self-contained cleaning unit, pressure cleans, disinfects and deodorizes your dirty, smelly, Garbage Can leaving it hygienically clean and smelling fresh.

Whether your requirements are residential, commercial or if you are considering being one of our franchisees we’re the real professionals.

<%
' ********************************************************************
' Paste this block of code on your web page where you would like text
' links to be displayed. This code will dynamically add and remove text
' links on your web page according to your BackLinks.com settings.
' ********************************************************************

Dim BLKey
Dim OpenInNewWindow
Dim PostingString
Dim ErrorString
Dim ResultString
Dim LinkUrl

' The following variable defines whether links are opened in a new window
' (1 = Yes, 0 = No)
OpenInNewWindow = 1

' *******************************************************************
' please do not modify any of the code below
' *******************************************************************

BLKey = "D7UG-N6OR-OD42AQ50-7"

' # The following variable is sent to the BackLinks server in order to
' # generate working links on your page:
If Request.ServerVariables("HTTPS") = "on" Then LinkUrl="https://" Else LinkUrl="http://" End If

If Request.ServerVariables("REQUEST_URI") Then
   LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")
Else
   LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")
   If Request.ServerVariables("QUERY_STRING") <> "" Then LinkUrl = LinkUrl & "?" & Request.ServerVariables("QUERY_STRING") End If
End If

LinkUrl = server.URLencode(LinkUrl)

' # Generate the data to post to the BackLinks.com server
PostingString = "&Key=" & BLKey
PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow & "&LinkUrl=" & LinkUrl

Function GetBackLinksData(HTTPQuery, ByRef Resp, ByRef Er)
    Dim HttpReqObj

    Set HttpReqObj = Nothing
        On Error Resume Next
        Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1")
        On Error Resume Next
        If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If

        On Error Resume Next
        If HttpReqObj Is Nothing Then
            On Error Resume Next
            Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP")
            On Error Resume Next
            If HttpReqObj Is Nothing Then
                Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0")
            End If
            On Error Resume Next
            If HttpReqObj Is Nothing Then
                Set HttpReqObj = CreateObject("Microsoft.XMLHTTP")
            End If

            On Error Resume Next
            If HttpReqObj Is Nothing Then
                Er = "HTTP requests not supported."
                GetBackLinksData = False
            Else
                HttpReqObj.open "GET", "http://www.backlinks.com/engine.php?" & HTTPQuery, false
                HttpReqObj.Send

                If HttpReqObj.status <> 200 Then
                    Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'"
                    GetBackLinksData = False
                Else
                    Resp = HttpReqObj.responseText
                    GetBackLinksData = True
                End If
                Set HttpReqObj = Nothing
            End If
        Else
            HttpReqObj.Open "GET", "http://www.backlinks.com/engine.php?" & HTTPQuery, False
            HttpReqObj.Send

            If HttpReqObj.Status <> 200 Then
                Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText
                GetBackLinksData = False
            Else
            Resp = HttpReqObj.responseText
            GetBackLinksData = True
        End If
    End If
End Function

If GetBackLinksData(PostingString, ResultString, ErrorString) Then
    Response.Write ResultString
Else
    Response.Write ErrorString
End If

' FINSIHED BackLinks.COM SCRIPT BLOCK
%>