deaktiver "save" funtion

mærkeligt spg - det ved jeg godt,men det er til en demo som ikke må kunne gemme.
Hvad skal jeg ændre i dette script for at deaktivere "save" funktionen, men det skal stadig fungere ligesomom at det virker
(der vil så komme en tekst : Ændringer er nu gemt BEMÆRK : da dette er en demoversion virker Gem funktionen ikke)

-----

'## save content
if request.form("action")="save" then

    response.write "<link rel='stylesheet' TYPE='text/css' HREF='/admin/includes/default.css'>"

    dim tempContent
    dim strHeader,strFooter
    dim strIndhold
    dim strTemp,strTemp2
    dim oFile,oText

    tempContent = Request.Form("tempContent")

    if not strFilename = "" and blnEdit then

        '## Do backup
        if blnBackup then
            funcContentBackup()
        end if

        '## Get document-elements from file
        call funcGetSpanTags()
       
        Set oFile=CreateObject("Scripting.FileSystemObject")
        Set oText=oFile.CreateTextFile(filename_path)

        tempContent = strBodyStart & tempContent & strBodyEnd
        tempContent = replace(tempContent,"&amp;","&")
        tempContent = replace(tempContent,"&quot","""")

        oText.writeline (tempContent)

        oText.close

        response.write dicLanguage("change_saved") &"<br><br>"
        response.write dicLanguage("click") &" <a href='/admin/default.asp?folder=" & strFolder &"'>"& dicLanguage("here") &"</a>"& dicLanguage("goto_front")
    else
        response.write dicLanguage("only_edit")
       
        for each strType in split(strFiletypeEdit,",")
            response.write strType &"<br>"
        next

        response.write "<br>"& dicLanguage("click") &" <a href='/admin/default.asp?folder=" & strFolder &"'>"& dicLanguage("here") &"</a>"& dicLanguage("goto_front")
    end if
---