ASP och Regular Expressions

        'Det är dags att uppdatera kundvagnen.
        if Request.QueryString("action") = "update" then
                'Kontrollera så att antalet verkligen är ett heltal för att undvika databasknas.
                Set objRE = New RegExp
                objRE.Pattern = "^[0-9]+$"
                If objRE.Test(Request.Form("antal")) = 1 then
                        antal = CInt(Validate(Request.Form("antal")))
                        'Om det nya antalet är 0, radera varan ur kundkorgen.
                        if antal = 0 then
                                objConn.Execute("DELETE FROM Ordrar WHERE order_id = "&Request.Form("varor"))
                        'I annat fall, uppdatera kundkorgen med det nya antalet.
                        else
                                objConn.Execute("UPDATE Orders SET order_antal = "&antal&" WHERE order_id = "&Request.Form("varor"))
                        end if
                end if
                'Ladda om huvudframen.
                %><script>parent.mainframe1.location.reload();</script><%
        'Slut på uppdatering.
        end if

function Validate(strang)
        Validate = Trim(Replace(Replace(Replace(Replace(Server.HtmlEncode(strang), "'", "'"),"/","/"),"\","]"),chr(34),"""))
end function