<% if session("username")<> "" then%>
<%
sub button(intPrev,intNext,TotalPages)
dim Counter
if intPrev <> 0 then
'Response.Write " Previous Page "
end if
if rst.AbsolutePage <> -3 then
'Response.Write " Next Page "
end if
Counter=1
Response.Write " Page :"
while Counter <= TotalPages
if cint(Counter)=cint(PageIndex) then
Response.Write "" & Counter & ""
else
Response.Write "" & Counter & ""
end if
if cint(Counter) <> cint(TotalPages) then
Response.Write " | "
end if
Counter = Counter + 1
wend
end sub
%>
From the 16th Century till date, Chemical research teams have used glass containers for a very basic reason - the glass container is transparent, almost invisible. And so, the contents and the reaction are clearly visible. But, because chemists must heat , cool and mix chemical substances, ordinary glass is not always adequate for laboratory work.
Laboratory work requires apparatus made in a glass which can readily be moulded into any desired shape or form which offers maximum inertness when in contact with the widest range of chemical substances which can withstand thermal shock without fracture and high temperature work without deforming and which will be resilient enough to survive the everyday knocks to which it will be subjected in normal laboratory handling washing and sterilizing process.
BOROSIL® is the trade name of such a glass.
Items made by under the trade name BOROSIL® represent optimum mechanical thermal and chemical behavior. This glass is used in laboratories as well as for industrial applications where maximum thermal resistance, thermal shock resistance, mechanical resistance as well as unusual chemical resistance are required.
<%
dim Rst
set Rst=server.CreateObject("ADODB.recordset")
Rst.Open "select * from Beaker_desc_vwr",Conn,3,1,1
if Rst.EOF =true then
Response.Write "No Records Avialable in the Database"
else
dim intPageSize,PageIndex,TotalPages
dim RecordCount,RecordNumber,Count
intpageSize=10
PageIndex=request("PageIndex")
if PageIndex="" then PageIndex=1
RecordCount=Rst.RecordCount
RecordNumber=(intPageSize * PageIndex) - intPageSize
Rst.PageSize =intPageSize
Rst.AbsolutePage = PageIndex
TotalPages=Rst.PageCount
dim intPrev,intNext
intPrev=PageIndex - 1
intNext=PageIndex +1
Count=1
while not Rst.EOF and Count<=intPageSize
'if Count mod 2 <>0 then
%>
