Function minPage(page_no,page_total)
Dim numTemp
numTemp=(Int((page_no-1)/10))*10+1
minPage=numTemp
End Function
Function maxPage(page_no,page_total)
Dim numTemp
numTemp=(Int((page_no-1)/10))*10+10
If numTemp>page_total Then
numTemp=page_total
End If
maxPage=numTemp
End Function
Function mychange(strTemp)
strTemp=Replace(strTemp,"&","&")
strTemp=Replace(strTemp,chr(39),"´")
strTemp=Replace(strTemp,chr(34),""")
strTemp=Replace(strTemp,chr(13),"")
strTemp=Replace(strTemp,chr(32)," ")
strTemp=Replace(strTemp,chr(9)," ")
mychange=strTemp
End Function
Function change(strTemp)
strTemp=Replace(strTemp,"&","&")
strTemp=Replace(strTemp,"´",chr(39))
strTemp=Replace(strTemp,""",chr(34))
strTemp=Replace(strTemp,"",chr(13))
strTemp=Replace(strTemp," ",chr(32))
strTemp=Replace(strTemp," ",chr(9))
change=strTemp
End Function
%>
