this page does not go to the session(msg) what could be wrong.

code below:


Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.Open application("dbaseConn")
    Set oRset = Server.CreateObject("ADODB.Recordset")
    Set oRsetA = Server.CreateObject("ADODB.Recordset")
    strSql = "SELECT * FROM qryContentTheCompanyLocationsList3 WHERE Id = " & intId
    oRset.Open strSql, oConn, adOpenStatic, adLockOptimistic

    'get previous item having this same position, if any
    strSql = "SELECT Id FROM qryContentTheCompanyLocationsList3 WHERE ListPosition = " & intListPosition & " AND Id <> " & intId
    'strSql = " SELECT Id FROM "
    oRsetA.Open strSql, oConn, adOpenStatic, adLockOptimistic

    'get title
    'strTitle = strTitle

    'add/edit data
    strUpdateType = "edited"
    intUpdateType = 2
    if oRset.eof then
        oRset.AddNew
        strUpdateType = "added"
        intUpdateType = 1
    end if

    oRset("Title") = strTitle
    oRset("Address") = strAddress
    oRset("Phone") = strPhone
    oRset("Fax") = strFax
    oRset("EmailAddress") = strEmailAddress
    oRset("ListPosition") = intListPosition
    oRset.Update


    'get Id of new or added item
    intId = oRset("id")
    oRset.Close

    'adjust positions, if need be

    intPositionAdjust = intListPosition 'get requested position
    do while not oRsetA.eof
        intOldPositionItemId = oRsetA("id") 'get id of item previously having this position
        oRsetA.Close
        intPositionAdjust = intPositionAdjust + 1 'increment order no

        'increment position of item previously having this position
        strSql = "UPDATE qryContentTheCompanyLocationsList3 SET ListPosition = " & intPositionAdjust & " WHERE Id = " & intOldPositionItemId
        oConn.Execute strSql

        'get id of any other item with incremented order no, if any
        strSql = "SELECT Id FROM qryContentTheCompanyLocationsList3 WHERE (ListPosition =" & intPositionAdjust & " AND Id <> " & intOldPositionItemId & ")"
        oRsetA.Open strSql, oConn, adOpenStatic, adLockOptimistic
    loop
    oRsetA.Close

    '-----update audit records - TypeId, ElementSectionId, ElementTypeId, ElementId, ElementTitle, EditorId, TimeUpdate
' strSql = "qryAuditUpdateAdd " & intUpdateType & ", 1, 3, " & intId & ", 'Locations: " & strTitle & "', " & CInt(session("UserId")) & ", " & CDbl(Now)

strSql = " SET IDENTITY_INSERT AuditUpdate ON INSERT INTO AuditUpdate(TypeId, ElementSectionId, ElementTypeId, ElementId, ElementTitle, UserId, TimeUpdate)VALUES ([TypeId], [ElementSectionId], [ElementTypeId], [ElementId], [ElementTitle], [UserId], CDate([TimeUpdate])); " & intUpdateType & ", 1, 3, " & intId & ", 'Locations: " & strTitle & "', " & CInt(session("UserId")) & ", " & CDbl(Now)
    oConn.Execute strSql

    'close data sources
    oConn.Close
    set oRset=nothing
    set oRsetA=nothing
    set oConn=nothing

    'display results
    session("msg") = "Success! <i>The Company Locations " & strUpdateType & "."
    response.Redirect("msg.asp")
%>

I think a bit more information, other than a "solve this" instruction would really help.

Do you get an error? If so, what error message do you get? If you don't get an error, what behavior are you seeing?

It's a bit too much to ask for us to figure out what the problem is for you; but if you describe the problem, we might be able to help you.

Imar
---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

It displays " THIS PAGE CAN NOT BE DISPLAYED PAGE"

I know a little trick to find out exactly what the error is.

First, run the page to get the "PAGE CANNOT....." error.

Then select all of your code and type one letter on the page. Refresh the browser. You will see your one letter. Then do a Control + Z to get your code back and refresh the browser again. Most of the time an error will display with the offending line number.

Check it out.

Hi
Your error seems to be comming as a result of syntax error in your code, scrowing down on the error page you see the line number which gives this error.

You're missing a MoveNext for the recordset. You're using "do while not oRsetA.eof" but since you never use MoveNext, Eof will never be true and the code loops forever. Or, in fact, it loops until the page times out and you get this error.

Would you mind posting questions on this forum, instead of sending me mail directly? I can't possibly answer all the mail I receive....

Imar
---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

The ERROR PAGE NOW HAS THIS BELOW:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]Could not find stored procedure 'qryAuditUpdateAdd'.

/cms/contentthecompany/boardmanagementAddEditFn.asp, line 132


THIS STARTED YESTERDAY.BUT THE WEBSITE CHANGES ,IT UPDATES THE SITE AND THE CHANGES ARE VISIBLE BUT I DO NOT LIKE THIS ERROR MESSAGE BEING DISPLAYED.

We can hear you load and clear; there is no need to shout ;) (Writing in ALL CAPS is considered shouting).

You are using Sql server, right? Are you sure you are connecting to the right database and that that database has a stored procedure: 'qryAuditUpdateAdd'??

Imar

yes i am connecting to a SQL server and i created that stored procedure, and lastly the script does what it is meant to do, but i do not want to see the error again.