<% 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 %> Financial accounting, Account Service Provider.
 
Home | About Us | Contact Us | Software
 
Accounting Service Provider Directory. Accounting Information and Resources.
 
Contact US :-
INDIA BRANCH :

201, Gundecha Industrial Complex,
Akurli Road,
Kandivali (East), Mumbai. India.
Tel. No: 00-91-22-2885-1689.
Fax: 00-91-22-2885-1680.
Mobile No: 9221045058.
USA :

501 Silverside Rd, Suite 105
Wilmington, DE 19809.
Phone : 866-249-4291.



 

Home | About Us | Contact Us
© Copyright 2005 Shreejiaccountingservice.com. All rights reserved.
Shreejiaccountingservice - Find best Financial accounting and Account Service Provider. Details Information on Account Service Provider and Financial accounting from www.shreejiaccountingservice.com.