My Philosophy

"It is better to stand up for one's own beliefs and get kicked in the shin rather than lie down and get hit on the face"

---- Suman K Kasturi

Suman K Kasturi

Welcome to my personal website. The objective of this site is to become closer to the world in the e-Environment, apart from sharing my complete works........More

Visit my other site at www.sumankasturi.co.in


"Now featuring Suman's charity site" click hereto visit this site to contribute towards charity
My Charity Site


I am proud to be an Indian

Site Updates

My Favourite Dictum:Telugu

"కెరటం నా ఆదర్శం

లేచి పడుతుందని కాదు

పడినా కూడా లేస్తుందని"

 

My Favourite Dictum:English

"Compromise makes a good umbrella
but a poor roof"

 

My Favourite Dictum:Sanskrit

कर्मण्येवाधिकारस्ते मा फलेषु कदाचन ।

मा कर्मफलहेतुर्भूर मा ते संगोऽस्त्वकर्मणि ॥

 ©SumanKasturi 2001-2008
Webmaster: Suman K Kasturi

This site is best viewed in 1024 X 768 pixels in IE 5.0 or above
Custom Search
<% Function googleColor(value, random) Dim colorArray colorArray = Split(value, ",") googleColor = colorArray(random Mod (UBound(colorArray) + 1)) End Function Function googleScreenRes() Dim screenRes, delimiter, resArray screenRes = Request.ServerVariables("HTTP_UA_PIXELS") delimiter = "x" if IsEmpty(screenRes) Then screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS") delimiter = "," end If resArray = Split(screenRes, delimiter, 2) if (UBound(resArray) + 1) = 2 Then googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1) end If End Function Dim googleTime, googleDt, googleScheme, googleHost googleTime = DateDiff("s", "01/01/1970 00:00:00", Now()) googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer))) googleScheme = "http://" if StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://" googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST")) Dim googleAdUrl, googleAdOutput googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_ "ad_type=text_image" &_ "&channel=7782015444" &_ "&client=ca-mb-pub-4828650300341110" &_ "&dt=" & googleDt &_ "&format=mobile_single" &_ "&host=" & googleHost &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&oe=utf8" &_ "&output=xhtml" &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_ "&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_ googleScreenRes() Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") googleAdOutput.Open "GET", googleAdUrl, false googleAdOutput.Send Response.Write(googleAdOutput.responseText) %>
eXTReMe Tracker

Want to own your own personal website? click here