opretter samme side 2 gange?

jeg har et lille cms system og jeg kan ikke forstå at når der oprettes en side, så lægger den siden i databsen 2 gange.

Jeg dette er asp koden som der sendes til efter oprettes af en side. Håber der er en der kan finde fejlen. Jeg er ikke sikker på det er på denne side. men jeg kan ikke se hvorfor det skulle være på en af de andre sider.


Sub Save()

    On Error Resume Next
   
    aeURL = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
    aeURL = Replace(aeURL,"admin/AddSubPageAction.asp","")

    Set con = Server.CreateObject("ADODB.Connection")
    con.Open Adminstrconn, "", ""

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

    varErrors = varErrors + HandleErrors(Err.Number, Err.Description)

    rst.Open "SELECT * FROM pages", con,  adOpenKeyset, adLockOptimistic

    varErrors = varErrors + HandleErrors(Err.Number, Err.Description)
   
    ImageFix = Replace(Trim(request("theHTML")),aeURL,"")

    arrayFields = Array("pagename","sublinks","menubarposition","onhold","toplevel","password","bodytext")
    arrayValues = Array(Trim(request("pagename")),Trim(request("sublinks")),request("menubarposition"),request("onhold"),request("toplevel"),Trim(request("password")),ImageFix)

    rst.AddNew arrayFields, arrayValues

    rst.Update

    id = rst("id")

    varErrors = varErrors + HandleErrors(Err.Number, Err.Description)

    rst.Close
    set rst = nothing
    con.Close
    set con = nothing   

    Call SaveLink(id)

End Sub


Sub SaveLink(tempID)

    If Trim(request("linkfrom")) <> "" AND IsNumeric(Trim(request("linkfrom"))) Then

        On Error Resume Next

        Set con = Server.CreateObject("ADODB.Connection")
        con.Open Adminstrconn, "", ""

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

        varErrors = varErrors + HandleErrors(Err.Number, Err.Description)

        rst.Open "SELECT * FROM pages WHERE id = " & Trim(request("linkfrom")), con,  adOpenKeyset, adLockOptimistic

        varErrors = varErrors + HandleErrors(Err.Number, Err.Description)

        If NOT rst.EOF Then

            rst("sublinks") = rst("sublinks") & " " & tempID & " "

            rst.Update

        End If

        varErrors = varErrors + HandleErrors(Err.Number, Err.Description)

        rst.Close
        set rst = nothing
        con.Close
        set con = nothing   
   
    End If

End Sub


Function CrTrim(tempString)

    CrTrim = Replace(Replace(Trim(Replace(Replace(Trim(tempString)," ","£$%"),vbCrLf," "))," ",vbCrLf),"£$%"," ")

End Function
%>