<%@ Language=VBScript %> Web-researchers.com, web design, developing, hosting, multimedia presentation & e-commerce solution provider. Home page <% ' Recordsets Dim rsNewsE Dim iNewsId, sNewsTitle,sNewsContents, strSql, iYs Dim sTableName Dim sYearE, sDaye, sMonthE, sWkDayE, sDateE Dim sHourE, sMinE, sTimee ' Initilize Farsi day & month initEnglishDayAndMonth() ' Get variables sent by the server ' Open rsNewsE as Read only strSql = "SELECT * FROM tblNews" Set rsNewsE = Server.CreateObject("ADODB.Recordset") rsNewsE.Open strSql,Session("adoConnection"),1,2 'check database %> <% Function Format(iNum) Dim sFormat sFormat = "" if iNum > 0 then if iNum < 10 then sFormat = "0" & CStr(iNum) Else sFormat = CStr(iNum) End if End if Format = sFormat End function %>
 
Home Contact us FA
Home
About us
Web design
Web hosting
Multimedia
e-Commerce
Solutions
Contact us
Pazhoheshiar, web & e-commerce
Pazhoheshiar, web & e-commerce
 
 
Web-researchers.com is the official website of Pazhoheshiar, web advertising agency. Since 1997, we have been experiencing a steady progress which has turned us into a leading web developing and e-commerce integration firm. We
provide our customers with a positive and effective online presence tailored to meet their budget, needs, and interest; as well as holding fast to sound function, style and user friendly accessibility. That is why so far we have designed and hosted a great number of web sites that have got their peculiar features.
Our spanking experienced web site designers, developers and graphic artists’ exceptional expertise guarantee attractive and well balanced web sites which along with our rapid, secure and reputable servers, located in Toronto-Canada, helps you get online and known.
  
 
 

News:

  
  <% 'loop for news if rsNewsE.RecordCount <> 0 then rsNewsE.MoveLast for i=0 to 2 ' Get news title & news contents & close recordset With rsNewsE sNewsTitle = .Fields("NewsTitle") sNewsContents = .Fields("NewsContents") sWkDayE = asWeekDayE(.Fields("WeekDay") - 1) sMonthE = asMonthE(.Fields("Month") - 1) sDayE = Format(.Fields("Day")) sYearE = CStr(iYs) sHourE = Format(.Fields("Hour")) sMinE = Format(.Fields("Minute")) sYearE=.Fields("Year") End With ' set sDatef & sTimeF sDateE = sWkDayE & " " & sMonthE & " " & sDayE & ", " & sYearE sTimeE = sHourE & ":" & sMinE %> <% rsNewsE.MovePrevious next else Response.Write "database is empty" ' Release sNewsE rsNewsE.close Set rsNewsE = Nothing end if rsNewsE.close %>

<%=sdateE%>

<%=sTimeE%>
 
<%=sNewsTitle%>
<%=sNewsContents%>
 
 
 

  Search :
 
Members

  Username:

  Password:

  Quick Link

  Web hosting plans: