Hi, Im a beginner with ASP and Im trying to use a very simple hit counter on my page, I can display the current value in the database no problem, but the code I have does not update the number each time the page loads. Im not quite sure whats going on can someone help, thanks!

Neil

<%
    Dim objConn, objRS
    Set objConn = Server.CreateObject("ADODB.Connection")
    Set ObjRS = Server.CreateObject("ADODB.Recordset")

    objConn.Provider = "Microsoft.Jet.OLEDB.4.0"
    strDBFile = Server.MapPath(".") & "\database.mdb"
    objConn.Open strDBFile
    Set objRS.ActiveConnection = objConn

    objRS.Open "SELECT wapcount from hitcounter"
    SQL = UPDATE hitcounter SET wapcounter = wapcounter + 1
    objConn.Execute(SQL)
%>

Please modify ur code as:

<%
    Dim objConn, objRS
    Set objConn = Server.CreateObject("ADODB.Connection")
    Set ObjRS = Server.CreateObject("ADODB.Recordset")

    objConn.Provider = "Microsoft.Jet.OLEDB.4.0"
    strDBFile = Server.MapPath(".") & "\database.mdb"
    objConn.Open strDBFile

    SQL = UPDATE hitcounter SET wapcounter = wapcounter + 1
    objConn.Execute(SQL)

    Set objRS.ActiveConnection = objConn
    objRS.Open "SELECT wapcount from hitcounter"
%>

Om Prakash

Hi, thanks Om but that doesnt work, its just a re-arranged version of my previous code so it does the same job and still doesnt work. I just have problems adding 1 to the current value in the database and updating that value so it saves. I cannot get it to work.

Help from someone would be appreciated.

Thanks

Neil

The code rearranged because, you are selecting the data from the sametable and then updating the table. I thought, the data is updated but it is not getting reflected.

Can u provide some more information..

What is the initial or current value of the wapcounter?
Do you get any error after update statement?

Om Prakash

Hi Neil
Please modify ur code as:

<%
    Dim objConn, objRS, SQL
    Set objConn = Server.CreateObject("ADODB.Connection")
    Set ObjRS = Server.CreateObject("ADODB.Recordset")

    objConn.Provider = "Microsoft.Jet.OLEDB.4.0"
    strDBFile = Server.MapPath(".") & "\database.mdb"
    objConn.Open strDBFile

    SQL = "UPDATE hitcounter SET wapcounter = 1 where wapcounter is null"
    objConn.Execute(SQL)

    SQL = "UPDATE hitcounter SET wapcounter = wapcounter + 1"
    objConn.Execute(SQL)

    Set objRS.ActiveConnection = objConn
    objRS.Open "SELECT wapcount from hitcounter"
%>

Regards
Raj

Regards
Raj