<%
    set con=server.createObject("adodb.connection")
    con.open Application("Product")
    'update information about
    query="update items set name='" & request("txtName") & "',"
    query=query & "description='" & request("txtDescription") & "',"
    query=query & "remark='" & request("txtRemark") & "'"
    
    
    if isnumeric(request("txtPrice")) then
	query=query & ",price=" & request("txtPrice") & " where id=" & request("id")
    else
	query=query & " where id=" & request("id")
    end if
    
    con.execute query
    
    con.close
    set con=nothing
    
    response.redirect("admin.asp?id=" & request("parent"))
    
%>