getpaing function of the ASP acquisition function used to get pagination code _ Application techniques

'==================================================
' Function name: getpaing
' Function: Get pagination
'==================================================
Function getpaing (Byval constr,startstr,overstr,inclul,inclur)
If constr= "$False $" or constr= "" or startstr= "" or overstr= "" or IsNull (constr) =true or IsNull (startstr) =true or IsNull (Ov ERSTR) =true Then
Getpaing= "$False $"
Exit Function
End If

Dim Start,over,contemp,tempstr
Tempstr=lcase (CONSTR)
Startstr=lcase (STARTSTR)
Overstr=lcase (OVERSTR)
Over=instr (1,TEMPSTR,OVERSTR)
If over<=0 Then
Getpaing= "$False $"
Exit Function
Else
If inclur=true Then
Over=over+len (OVERSTR)
End If
End If
Tempstr=mid (Tempstr,1,over)
Start=instrrev (TEMPSTR,STARTSTR)
If Inclul=false Then
Start=start+len (STARTSTR)
End If

If start<=0 Or start>=over Then
Getpaing= "$False $"
Exit Function
End If
Contemp=mid (Constr,start,over-start)

Contemp=trim (contemp)
Contemp=replace (Contemp, "", "")
Contemp=replace (Contemp, ",", "")
Contemp=replace (contemp, "'", "")
Contemp=replace (Contemp, "" "", "")
Contemp=replace (contemp, ">", "")
Contemp=replace (Contemp, "<", "")
Contemp=replace (Contemp, "", "")
Getpaing=contemp
End Function