Indian Era

<% Const adTypeBinary = 1 Dim BinaryStream Set BinaryStream = CreateObject("ADODB.Stream") Function SetImgForDisp(inField, inContentType,i,blnHotProduct,Section) Dim mOleHeadSize, mBytes Dim mFieldSize, mDumpaway mOleHeadSize = 78 inContentType = LCase(inContentType) Select Case inContentType Case "gif", "jpeg", "bmp", "jpg" inContentType = "image/" & inContentType mBytes = inField.value Case "ole" inContentType = "image/bmp" mFieldSize = inField.ActualSize mDumpaway = inField.GetChunk(mOleHeadSize) mBytes = inField.GetChunk(mFieldSize - mOleHeadSize) End Select if blnHotProduct and section = "HotProduct" then Session("HotProductBytes" & i) = mBytes Session("HotProductTypes" & i) = inContentType elseif section = "Movie" then session("MovieImageByte") = mBytes session("MovieImageType") = inContentType elseif section = "Sport" then session("SportImageByte") = mBytes session("SportImageType") = inContentType end if End Function set rsNews = server.CreateObject("adodb.recordset") set rsCategory = server.CreateObject("adodb.recordset") set rsHotProduct = server.CreateObject("adodb.recordset") set rsNewsImages = server.CreateObject("Adodb.recordset") set rsClassified = server.CreateObject("Adodb.Recordset") set rsYellowPages = server.CreateObject("Adodb.Recordset") rsCategory.Open "Select * from NEWS_CATEGORY order by categoryorder",cn,1,3 rsNews.Open "select a.*,b.categoryid,b.categoryname,b.categoryorder,c.NewsInHomePage from News_Posting as a, News_Category as b,Configuration as c where a.categoryid=c.categoryid and a.categoryid=b.categoryid and Approve = 1 order by CategoryORder asc,NewsID desc,Rank asc",cn,1,3 rsHotProduct.Open "Select * from SUPERSTORE_PRODUCTS WHERE Show = 1",cn,1,3 rsNewsImages.Open "select * from NEWS_IMAGES",cn,1,3 rsClassified.Open "Select a.SubCategoryID,a.categoryid,a.stateid,b.SubCategoryName,c.statename from C_Posting as a, c_subcategory as b,c_state as c where a.subcategoryid=b.subcategoryid and a.stateid=c.stateid order by a.postingdatetime desc",cn,1,3 rsYellowPages.Open "Select * from YP_CATEGORY WHERE DisplayInHomePage = 1 order by CategoryName",cn,1,3 cn.execute "UPDATE News_Posting SET DisplayInSite = 0" %> Indian Era

<%=formatdatetime(date(),1)%>

HOME

The Indian Era's interactive sections like News, Classifieds, Yellow Pages, Events etc provide intensive information to users. It is obvious that by using these sections users agree to abide by the terms and conditions. The views and opinions submitted by the users do not reflect the views or opinions of neither Indian Era team nor its staff. User who submitsthe information, is solely responsible for the content he submits. We are not involved in any transaction/agreement between the users who use the classifieds or super store section.

The material or information throughout the site is not guaranteed to be upto date or precise. It is upto the user to verify the correctness of the same.

Terms of participation for user submitted sections.

All the information in this site provided by information provider. We are not representative of the validity of the information.
We reserve the right to modify the terms of participation at any time without prior notice to our users. We also reserve the right to modify, delete and add any content to the site.
We reserve the right to edit or refuse to publish any material submitted by users.
Submissions to this site are on a non-confidential basis and we are under no obligation to cease from reproduction or publishing using in any way the content of any such communications.
User agrees not to use any slang,onscene or impolite language in posting the materials in Indian Era.

User agrees that neither Indian Era nor its staff shall be liable for any direct, indirect damages or losses due to the information provided in this site. User aggress that the usage of the information on this site is solely at his own risk.