%
function PCase(sValue)
iPos = 1
Do While InStr(iPos, sValue, " ", 1) <> 0
iSpace = InStr(iPos, sValue, " ", 1)
sTemp = sTemp & UCase(Mid(sValue, iPos, 1))
sTemp = sTemp & LCase(Mid(sValue, iPos + 1, _
iSpace - iPos))
iPos = iSpace + 1
Loop
sTemp = sTemp & UCase(Mid(sValue, iPos, 1))
sTemp = sTemp & LCase(Mid(sValue, iPos + 1))
PCase = sTemp
End Function
%>
<%
Dim con
Dim rs,objRs
Set con = server.CreateObject("ADODB.connection")
Set rs = Server.CreateObject("ADODB.recordset")
Set objRs = Server.CreateObject("ADODB.recordset")
host = request.ServerVariables("HTTP_HOST")
lft = left(host,4)
if(lft = "www." or lft = "WWW.") then
host = right(host, (len(host)-4))
end if
%>
<%
dim T,D,K,Z
Sql = "Select * from hosts where host ='" & host & "'"
rs.Open sql,con,1,2
if rs.recordcount > 0 then
t = rs("main_keyword")
y = rs("host_text")
Z = rs("host")
end if
con.close
%>
Data Backup Solution, Backup Software Solution.
Welcome
to Shreejiaccountingservice.com
Backup Software Solution :
We carry various types of software from leading brands and
you can choose your required software from a vast catalog.
Whether you are planning to buy software for your company
or for reselling to your clients, we can advise you the best
strategy to get the most out of your investment.
Software By Category
This categorised list will enable you to select your required
software by type. The following is a list of popular categories.
If you do not see your desired software here, let us know
and we will get back with all required details soon.
Operating System
Operating systems make your computer work. Whether you need
the latest version of Windows, Linux or Mac software, we carry
them all.
Chabria Infotech Pvt. Ltd - Finding the right Data Backup
Solution and Backup
Software Solution for your company. Provides
online backup services with Backup Software Solution and Data
Backup Solution to backup users' data automatically everyday from www.chabria.info.