Incorrect Increment.

Ok, I think last time my font was small  Please help me out, I'm really clueless here.

dim pageid

pageid=request("ost")

if pageid="" then pageid="2"

dim adocon

dim rspage

dim strsql

Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("everything.mdb")

Set rspage = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT Pages.* FROM Pages WHERE PageID=" & pageid & ";"

rspage.Open strSQL, adoCon

dim pagehtml

pagehtml=rspage("PageHTML")

dim pagecounter

pagecounter=rspage("PageCounter")

pagehtml=replace(pagehtml,"[counter]",pagecounter)

response.write pagehtml

rspage.close

rspage.CursorType = 2

rspage.LockType = 3

rspage.Open strSQL, adoCon

rspage.Fields("PageCounter") = PageCounter+1 'This results in addition of 6, instead of 1.

rspage.Update

rspage.Close

Set rsGuestbook = Nothing

Set adoCon = Nothing

%>