Contact Us

<% 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 Dim i Set con = server.CreateObject("ADODB.connection") Set rs = Server.CreateObject("ADODB.recordset") con.Open "DSN=youarethat","youarethat","youarethat2004" %> <% dim M,S Sql = "Select * from category" rs.Open sql,con,1,2 if rs.recordcount > 0 then M = PCase(rs("Catname")) end if %> Contact Us

Home | About Us | Contact Us

Guru Directory

New Entries

Featured Entries

USA	INDIA BRANCH
501 Silverside Rd, Suite 105 Wilmington, DE 19809. Phone : 866-249-4291.	B-207, Patel Shopping Center, Chandavarkar Road, Borivali (W), Mumbai - 400 092. Phone: 91-22-2864-2711. Fax: 91-22-2864-2718.

Youarethat.com Articles
	Astrology	Mind	Karma	Reiki
	Yoga	Coaching	Peace	Meditation
	Gita	Tarot	Religion	God
	Koran	Future	Buddha	Hypnosis
	Vastu	Tantra	Energy	Zen

Home | About Us | Contact Us | Yrt Information