Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
....
Dim SaveScrollLocation As New StringBuilder
Dim SetScrollLocation As New StringBuilder
SaveScrollLocation.Append("<scr" & "ipt language='javascript'>")
SaveScrollLocation.Append("function SaveScrollLocation () {")
SaveScrollLocation.Append("document.offer_detail.__SCROLLLOC.value = document.body.scrollTop;")
SaveScrollLocation.Append("}")
SaveScrollLocation.Append("document.body.onscroll=SaveScrollLocation ;")
SaveScrollLocation.Append("</scr" & "ipt>")
RegisterStartupScript("saveScroll", SaveScrollLocation.ToString())
If Page.IsPostback Then
SetScrollLocation.Append("<scr" & "ipt language='javascript'>")
SetScrollLocation.Append("function SetScrollLocation () {")
SetScrollLocation.Append("document.body.scrollTop = " & Request("__SCROLLLOC") & ";")
SetScrollLocation.Append("}")
SetScrollLocation.Append("document.body.onload=SetScrollLocation ;")
SetScrollLocation.Append("</scr" & "ipt>")
RegisterStartupScript("setScroll", SetScrollLocation.ToString())
End If
End Sub