<% currentpage=request("page") if currentpage="" then currentpage=1 end if msql3="Select * from News order by sdate desc" dim cnn3,rsn3 set cnn3=createobject("Adodb.Connection") cnn3.open strcon Set rsn3 = Server.CreateObject("ADODB.Recordset") rsn3.cursortype=adopenstatic RSn3.CursorLocation = 3 rpz=6 rsn3.PageSize =6 rsn3.Open msql3,cnn3,1,2 if rsn3.bof and rsn3.eof then else m=0 n=0 rsn3.absolutepage=cint(currentpage) Rc=rsn3.RecordCount rp=rsn3.PageCount %> <% While not rsn3.eof and m200 then newsDesc=left(newsDesc,200) end if newsimage="" if rsn3("picrev1")<>"" then newsImage=rsn3("picrev1") elseif rsn3("pic1")<>"" then newsImage=rsn3("pic1") end if ' productImage=rsn3("prodpicrev") %> <% rsn3.movenext wend %>
 
News & Events
 
<% if right(ucase(trim(newsImage)),4)=".JPG" or right(ucase(trim(newsImage)),4)=".GIF" or right(ucase(trim(newsImage)),5)=".JPEG" then %> HASAN <%end if %> <%=newstitle%>
<%=newsdesc%> " rev="width: 675px; height: 450px; scrolling: yes;">+ more
<% txtstring="News.asp?catid="&catid if cdbl(rc)>1 and cdbl(rp)>1 then %>   <% for x=1 to cdbl(rp) %> <% if cdbl(currentPage)=x then %> <% end if %>  <%=x%> <% if cdbl(currentPage)=x then %> <% end if %> <%next %> <% end if %>
 
<% end if set rsn3=Nothing set cnn3=Nothing %>

Now Al Khail Represents
 

Sato Treadmill
     
     
 

Soft Stall
     
     
 

HOME

 gaper

ABOUT US

gaper

PRODUCTS

 gaper

COMPANY NEWS & EVENTS

 gaper

ENQUIRIES

 gaper

CONTACT US

 gaper
© Copyright by HBA | All rights reserved